X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=combine_imprinted_genes.R;fp=combine_imprinted_genes.R;h=c1e9271716df4b266abf62b69e182d11db04c4a8;hb=f951452f00e246f3b4c6f09444d398efaf8be477;hp=7b75d523fd5cd0bcc440435b5b1ab73491d13e1b;hpb=2140dbbd32ea2731908a3aba4a637a6ab1acdb93;p=imprinted_genes.git

diff --git a/combine_imprinted_genes.R b/combine_imprinted_genes.R
index 7b75d52..c1e9271 100644
--- a/combine_imprinted_genes.R
+++ b/combine_imprinted_genes.R
@@ -4,6 +4,10 @@ args <- commandArgs(trailingOnly=TRUE)
 
 geneimprint <- fread(args[1])
 geneimprint <- geneimprint[!grepl(" ",Gene),]
+
+geneimprint <- geneimprint[Status!="Not Imprinted",]
+geneimprint <- geneimprint[Status!="Unknown",]
+
 parent <- fread(args[2])
 ### fix up the 0 prefixed chromosomes
 parent[,chr:=gsub("^0","",chromosome)]