Re: Any better way for finding frequencies of list entries?
- To: mathgroup at smc.vnet.net
- Subject: [mg26976] Re: [mg26923] Any better way for finding frequencies of list entries?
- From: Matt.Johnson at autolivasp.com
- Date: Tue, 30 Jan 2001 03:38:25 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Statistics`DataManipulation`"]
Off[General::spell, General::spell1]
list = RealDigits[N[Pi, 60]][[1]];
Transpose[{Range[0, 9], CategoryCounts[list, Range[0, 9]]}]
{{0, 3}, {1, 5}, {2, 6}, {3, 9}, {4, 6}, {5, 6}, {6, 4}, {7, 5}, {8, 6}, {9,
10}}
-matt
Domi <doud25 at caramail.com> on 01/26/2001 09:30:01 PM
cc:
Subject: [mg26976] [mg26923] Any better way for finding frequencies of list entries?
Hello Mathematica experts out there,
I want to determine the frequencies of the entries in a list of integers
For example, the following piece of code seems to work with Pi:
pi = Join
[ {3}, ToExpression[Characters[StringDrop[ToString[N[Pi, 57]], {1,
2}]]]]
Table[{i, Count[pi, i]}, {i, 0, 9}]
{{0, 3}, {1, 5}, {2, 6}, {3, 9}, {4, 4}, {5, 6}, {6, 4}, {7, 5},
{8, 6}, {9, 9}}
Question: Is there a more elegant way to do that?
Regards from Domi.