subset lists based on a condition in r -

-

i have data frame looks like:

df = read.table(text="s00001    s00002  s00003  s00004  s00005  s00006   gg  aa  gg  aa  gg  ag   cc  tt  tt  tc  tc  tt   tt  cc  cc  tt  tt  tt   aa  aa  gg  aa  ag  aa   tt  cc  cc  tt  tc  tt   gg  gg  gg  aa  gg  gg", header=t, stringsasfactors=f)

i count number of character strings same letters (i.e. "aa", "cc", "gg", or "tt") each row. did use table() function count elements , generated list based on if names of lists "homo". tried subset lists didn't work. here scripts:

a <- apply(df,1, function(x) table(x)) b <- apply(df,1, function(x) (names(table(x)) %in% c("aa","cc","gg","tt"))) a[b] ## didn't work

i expect data frame generated:

2 3 1 3 2 4 4 1 2 3 1 5

appreciate helps.

we single apply

t(apply(df, 1, function(x) {tbl <- table(x)         tbl[names(tbl) %in% c("aa", "cc", "gg", "tt")]})) #      [,1] [,2] #[1,]    2    3 #[2,]    1    3 #[3,]    2    4 #[4,]    4    1 #[5,]    2    3 #[6,]    1    5

Comments

Post a Comment

Popular posts from this blog

ruby - Trying to change last to "x"s to 23 -

-
i have been playing around irb , have string looks this: irb(main):072:0> puts ["[\"4354 5432 5432 xxxxx\", \"6547 6547 8543 xxxxx\", \"2344 6543 6674 xxxxx\", \"2346 6236 7543 xxxxx\", \"1273 5585 5587 xxxxx\"]"] => nil irb(main):073:0> what want gsub last 2 "x" s of each 17 digit combination, 23 . what i've tried far (i've been using rubular): a.gsub(/\d[x]/,"23") <= grabs "x" s i'm close a.gsub(/\w[x{2}]/,"23") <= grabs "x" s grabs two digits each combination. is there easier way i'm not understanding? a.gsub(/\d{4} \d{4} \d{4} xxx\kxx/, '23') \d{4} = 4 digits what \k drop matched far. can use don't replace entire number, still able validate have in desired format.
Read more

jquery - Clone last and append item to closest class -

-
this bare-bones code on page: <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <di
Read more

c - Unrecognised emulation mode: elf_i386 on MinGW32 -

-
i'm trying make kernel, , cannot link c output assembly. ld . i'm getting error: unrecognized emulation mode: elf_i386 i'm using windows 10 professional mingw32 , msys. code using: link.ld /* * link.ld */ output_format(elf32-i386) entry(start) sections { . = 0x100000; .text : { *(.text) } .data : { *(.data) } .bss : { *(.bss) } } kernel.c /* * kernel.c */ void kmain(void) { const char *str = "my first kernel"; char *vidptr = (char*)0xb8000; //video mem begins here. unsigned int = 0; unsigned int j = 0; /* loops clears screen * there 25 lines each of 80 columns; each element takes 2 bytes */ while(j < 80 * 25 * 2) { /* blank character */ vidptr[j] = ' '; /* attribute-byte - light grey on black screen */ vidptr[j+1] = 0x07; j = j + 2; } j = 0; /* loop writes string video memory */ while(str[j] != '\0') { /
Read more