RE: Incidence/frequency of numbers in lists
- To: mathgroup at smc.vnet.net
- Subject: [mg47638] RE: [mg47599] Incidence/frequency of numbers in lists
- From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
- Date: Tue, 20 Apr 2004 03:18:40 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
>-----Original Message----- >From: Diana [mailto:diana53xiii at earthlink.remove13.net] To: mathgroup at smc.vnet.net >Sent: Saturday, April 17, 2004 8:32 AM >To: mathgroup at smc.vnet.net >Subject: [mg47638] [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. > Some methods proposed using Min Length /@ Split must be augmented when zero occurrances were possible, e.g.: Select[data, And @@ Thread[Through[{Min, Length}[Length /@ Split[#]]] >= {3, 6}] &] -- Hartmut Wolf