comparison filter.r @ 10:82016fd934c8 draft

Uploaded
author davidvanzessen
date Thu, 25 Jun 2015 06:12:17 -0400
parents d8de51314d3f
children
comparison
equal deleted inserted replaced
9:d2b9dd23d944 10:82016fd934c8
30 30
31 dat$past = do.call(paste, c(dat[unlist(strsplit(selection, ","))], sep = ":")) 31 dat$past = do.call(paste, c(dat[unlist(strsplit(selection, ","))], sep = ":"))
32 32
33 dat = dat[!duplicated(dat$past), ] 33 dat = dat[!duplicated(dat$past), ]
34 34
35 dat = dat[dat$Functionality != "No results" & dat$Functionality != "unproductive",]
36
35 write.table(x=dat, file=output, sep="\t",quote=F,row.names=F,col.names=T) 37 write.table(x=dat, file=output, sep="\t",quote=F,row.names=F,col.names=T)