220615

article/article_figures.Rmd

@@ -251,8 +251,9 @@ pheno_before_plot
 pheno_before_zoom <- qtl_plot(pheno_before,lod=data.frame(group = c("alpha=0.05", "alpha=0.1","alpha=0.63"),
                  lod = threshold_before[1:3]),
          ylab="LOD score",
-         chrs = "7",
-         size=0.6) +
+         chrs = "13",
+         size=0.6,
+         rug = TRUE) +
     theme(legend.position = "none",
           strip.background = element_blank(),
           strip.text.x = element_blank()) +

article/data2/data2.Rmd

@@ -163,7 +163,6 @@ pheno_after_plot
 ## Number of markers kept after each function
 
 ```{r barplot}
-# TO DO WHEN ESTMAP OK
 none <- tab2 %>% nrow()
 match <- tab2 %>% filter(exclude_match==0) %>% nrow()
 allele <- tab2 %>% filter(exclude_match==0&exclude_allele==0) %>% nrow()