Re: Incidence/frequency of numbers in lists
- To: mathgroup at smc.vnet.net
- Subject: [mg47622] Re: Incidence/frequency of numbers in lists
- From: "Peter Pein" <petsie at arcor.de>
- Date: Sun, 18 Apr 2004 04:15:20 -0400 (EDT)
- References: <c5qj8m$fvs$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
"Diana" <diana53xiii at earthlink.remove13.net> schrieb im Newsbeitrag news:c5qj8m$fvs$1 at smc.vnet.net... > 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. > Diana, Select[SortedEdgeSet, Min[Length /@ Split[#1]] >= 3 & ] splits each row in e.g. {{1,1,1,1,1},{2,2,2,2,2},..,{6,6}}, calculates the length of each sublist {5,5,...,2}, takes the minimum 2, takes this value to decide whether the row will be selected or not and finally returns the list of selected rows. -- Peter Pein, Berlin to write to me, start the subject with [