view rscript2.R @ 6:fd09386ad95f draft default tip

Uploaded
author morinlab
date Wed, 30 Nov 2016 18:50:05 -0500
parents 3f412e6d2f9b
children
line wrap: on
line source

maf <- read.delim("./output", header=T, na.strings=c(""," ","NA"))
colnames(maf) = sapply(colnames(maf), tolower)
final <- maf[!(is.na(maf$sift)) | !(is.na(maf$polyphen)),]
write.table(final, sep = '\t', quote = FALSE, row.names = FALSE, col.names = TRUE)