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/ .