diff rscript2.R @ 3:3f412e6d2f9b draft

Uploaded
author morinlab
date Wed, 30 Nov 2016 18:46:16 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/rscript2.R	Wed Nov 30 18:46:16 2016 -0500
@@ -0,0 +1,4 @@
+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)
\ No newline at end of file