diff --git a/article/.RData b/article/.RData
index c8130f635622681c2df9bb9a4405cdae16dca143..439a2e1d9b2f72071735afc73410e1969b8bb902 100644
Binary files a/article/.RData and b/article/.RData differ
diff --git a/article/article_figures.Rmd b/article/article_figures.Rmd
index 12129833e83ab94c7ccdd95a489e5fbd108f6e97..2ad0c9169d548c929dc995123fc326a279b0f1a4 100644
--- a/article/article_figures.Rmd
+++ b/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()) +
diff --git a/article/data2/data2.Rmd b/article/data2/data2.Rmd
index a9b474327acdf85e7946e71fc1bd434c5459eb40..5befcc1b728413b4f9a2643a3a5ac3d877c659c6 100644
--- a/article/data2/data2.Rmd
+++ b/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()