library(data.table)
library(stringr)
#########################################
#replace new NAs and NAIs at once
INCFile<-"INCLUSION_LEVELS_FULL-mm10-9.tab"
OUTFile1<-"INCLUSION_LEVELS_FULL-mm10-9.NAs.tab"
OUTFile2<-"INCLUSION_LEVELS_FULL-mm10-9.NAIs.tab"
source("replaceNAI.R")
replaceNAI(INCFile, OUTFile1,OUTFile2)
#########################################
# Only replace new NAs
INCFile<-""
OUTFile<-""
source("replaceNA.R")
replaceNA(INCFile, OUTFile)