Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Incidence/frequency of numbers in lists

  • To: mathgroup at smc.vnet.net
  • Subject: [mg47614] Re: Incidence/frequency of numbers in lists
  • From: drbob at bigfoot.com (Bobby R. Treat)
  • Date: Sun, 18 Apr 2004 04:15:11 -0400 (EDT)
  • References: <c5qj8m$fvs$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

That's called a 455 by 24 matrix, not  "24 - 255 table".

The following code does what you want, I think:

data={{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}};
keepQ=Min[Frequencies[#][[All,1]]]>2&;
keepQ/@data
Select[data,keepQ]

{True,False,True,True,True,False,True}

{{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,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,5,5,5,6,6,6,6}}

Bobby

"Diana" <diana53xiii at earthlink.remove13.net> wrote in message 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.


  • Prev by Date: Re: A simple integral
  • Next by Date: Elliptic Curves and Cryptography Questions
  • Previous by thread: RE: Incidence/frequency of numbers in lists
  • Next by thread: Re: Incidence/frequency of numbers in lists