Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Incidence/frequency of numbers in lists

• To: mathgroup at smc.vnet.net
• Subject: [mg47615] Re: [mg47599] Incidence/frequency of numbers in lists
• From: Oleksandr Pavlyk <pavlyk at phys.psu.edu>
• Date: Sun, 18 Apr 2004 04:15:12 -0400 (EDT)
• Organization: Penn State University; Department of Physics
• References: <200404170631.CAA16308@smc.vnet.net>
• Reply-to: pavlyk at phys.psu.edu
• Sender: owner-wri-mathgroup at wolfram.com

Hi Diana,

I think the following lines will do what you intend

In[20]:=
Clear[PurgeData]

In[21]:=
PurgeData[data_, range_:6, requiredIncidence_:3] :=
Select[data,
      Function[lst,
        Min[
           Map[Length[Cases[lst, #1]] &, Range[range]
        ] >= requiredIncidence]
]

Then

PurgeData[YourArray] will return the purged array.

Regards,
Sasha

Diana wrote:
> 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.

• References:
  • Incidence/frequency of numbers in lists
    • From: "Diana" <diana53xiii@earthlink.remove13.net>