diff --git a/.Rproj.user/shared/notebooks/paths b/.Rproj.user/shared/notebooks/paths index f7981f85816e8bfeabadadc7943a9d617abaeca3..8f701e15f38b02427e5aa93d2526eff96a59d5c4 100644 --- a/.Rproj.user/shared/notebooks/paths +++ b/.Rproj.user/shared/notebooks/paths @@ -16,3 +16,4 @@ /home/marie/Documents/stuart_package/stuart/README.md="8BBA9900" /home/marie/Documents/stuart_package/stuart/man/genos.Rd="383A8DC0" /home/marie/Documents/stuart_package/stuart/vignettes/stuaRt.Rmd="007031F6" +/mnt/gaia/gaia_mouselab/Marie/Package_stuaRt/Article/Figures/Maestro/map_before_neogen/map_before_neogen.R="36D40A63" diff --git a/R/write_rqtl.R b/R/write_rqtl.R index f682977db1d797c74d32a3b102b5a48a2c2f2341..d08f63624348c3e10815e30a5a3bdc0cdf6bd72f 100755 --- a/R/write_rqtl.R +++ b/R/write_rqtl.R @@ -60,7 +60,7 @@ write_rqtl <- function(geno,pheno,tab,ref,par1,par2,par_N=TRUE,prefix,pos,path=N geno <- left_join(geno,ref,by=c("marker"="marker")) #remove snps with no position - geno <- geno %>% filter(is.na(chr)==FALSE) + geno <- geno %>% filter(is.na(chr)==FALSE) %>% filter(is.na(!!sym(pos))==FALSE) #recode "-" in "N" in geno file geno <- geno %>% mutate(allele_1 = recode(allele_1, diff --git a/stuart_1.0.2.tar.gz b/stuart_1.0.2.tar.gz index c901000a6c4dee6480f2ed3953a009bb59438f3c..add13c08183fe149b5af608164bf7a1c3a198c90 100644 Binary files a/stuart_1.0.2.tar.gz and b/stuart_1.0.2.tar.gz differ