On Mar 30, 2011, at 7:27 PM, Henrique Dallazuanna wrote:

Try this:

lapply(l, function(x)x[x[,'Sum'] == 3,])

If this is the right answer, you should send a "solved" message. The dput extract was incomplete.

--
David.

On Wed, Mar 30, 2011 at 7:38 PM, Herbert, Alan G <aherb...@bu.edu> wrote:
Hi R-users,

I have a list containing numeric tables of differing row length. I want to make a new list that contains only rows from tables with a "Sum" greater than 3, plus the names of each table. I was wondering whether there is an elegant way to do this using apply of related functions as this list has many thousands of such tables.

Here is an example of the list


$AACS

                       POOL

INFO                     pool1 pool2 pool6 pool7 pool8 pool.all Sum

 12:125561133:novel         0     0     0     0     1        0   1

 12:125570904:novel         0     0     0     0     1        0   1

 12:125571014:novel         0     1     0     0     0        0   1

 12:125571038:novel         0     0     0     1     0        0   1

 12:125575996:novel         0     0     0     1     0        0   1

 12:125591844:rs2297478     1     0     1     0     0        1   3

 12:125599114:novel         0     0     0     1     0        0   1

 12:125612668:novel         0     0     0     0     1        0   1

 12:125612839:rs900411      1     0     1     0     1        1   4

 12:125626650:novel         0     0     0     0     1        0   1

 12:125626737:novel         0     0     0     1     0        0   1



$AADAC

                       POOL

INFO pool1 pool2 pool5 pool6 pool7 pool8 pool.all Sum

3:151542411:novel 0 0 0 0 1 0 1 2

3:151542412:novel 0 0 0 0 1 0 1 2

3:151542643:novel 0 1 0 0 0 0 0 1

3:151545322:rs2410836 0 1 0 0 0 0 1 2

3:151545323:rs62272918 0 1 0 0 0 0 1 2

3:151545509:novel 0 0 1 0 0 0 1 2

3:151545601:rs1803155 1 1 1 1 1 1 1 7

3:151545721:novel 0 0 1 0 0 0 0 1

3:151545802:novel 0 0 0 0 1 0 0 1

3:151545824:novel 0 1 0 0 0 0 0 1


Thanks for your help

       [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.




--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

David Winsemius, MD
Heritage Laboratories
West Hartford, CT

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to