RE: Incidence/frequency of numbers in lists
- To: mathgroup at smc.vnet.net
- Subject: [mg47625] RE: [mg47599] Incidence/frequency of numbers in lists
- From: "tgarza01 at prodigy.net.mx" <tgarza01 at prodigy.net.mx>
- Date: Sun, 18 Apr 2004 04:15:29 -0400 (EDT)
- Reply-to: tgarza01 at prodigy.net.mx
- Sender: owner-wri-mathgroup at wolfram.com
Let x be your 455 x 24 matrix. Define the function
In[1]:=
moreThanTwo[x_List]:=Min[Count[x,#]&/@Range[1,6]]>2
Then apply as follows:
In[2]:=
Select[x,moreThanTwo[#]&]
This will produce the list you want. Try the example:
In[33]:=
ex=Table[Random[Integer,{1,6}],{455},{24}];
In[4]:=
Select[ex,moreThanTwo[#]&]
Tomas Garza
Mexico City
Original Message:
-----------------
From: Diana diana53xiii at earthlink.remove13.net
To: mathgroup at smc.vnet.net
Subject: [mg47625] [mg47599] Incidence/frequency of numbers in lists
Hi math folks,
I have a 24 - 455 table. I have named the table SortedEdgeSet.
The first few lines look like the following:
{{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6},
{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6},
{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6},
{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6},
{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6},
{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6},
{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 6},...
The numbers 1 - 6 are listed 24 times in each of 455 sublists.
I would like to create a new table which does not contain the sublist
members which have two or fewer occurances of any of the six numbers in the
sublist. I only want sublists which have three or more of each of the
numbers.
So, for example, I would want to exclude the second sublist line:
{1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6},
because it only has two 6's in it.
I don't know what an occurance function might be in Mathematica. Can anyone
help?
Thanks,
Diana M.
--
=====================================================
"God made the integers, all else is the work of man."
L. Kronecker, Jahresber. DMV 2, S. 19.
--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .