annotate rscript2.R @ 3:3f412e6d2f9b draft

Uploaded
author morinlab
date Wed, 30 Nov 2016 18:46:16 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3
3f412e6d2f9b Uploaded
morinlab
parents:
diff changeset
1 maf <- read.delim("./output", header=T, na.strings=c(""," ","NA"))
3f412e6d2f9b Uploaded
morinlab
parents:
diff changeset
2 colnames(maf) = sapply(colnames(maf), tolower)
3f412e6d2f9b Uploaded
morinlab
parents:
diff changeset
3 final <- maf[!(is.na(maf$sift)) | !(is.na(maf$polyphen)),]
3f412e6d2f9b Uploaded
morinlab
parents:
diff changeset
4 write.table(final, sep = '\t', quote = FALSE, row.names = FALSE, col.names = TRUE)