Merge branch 'master' of http://gitbio.ens-lyon.fr/aduvermy/HTRfit

vignettes/tutorial.Rmd

@@ -114,9 +114,9 @@ By using the estimated intercept obtained from the previous analysis of publicly
 
 ```{r design_init, warning = FALSE, message = FALSE}
 ## -- init a design 
-input_var_list <- init_variable( name = "genotype", mu = 0, sd = 0.29, level = 2) %>%
-                  init_variable( name = "environment", mu = 0.27, sd = 0.6, level = 4) %>%
-                  add_interaction( between_var = c("genotype", "environment"), mu = 0.44, sd = 0.89) %>% 
+input_var_list <- init_variable( name = "genotype", mu = -0.68, sd = 3.83, level = 2) %>%
+                  init_variable( name = "environment", mu = -0.29, sd = 1.74, level = 4) %>%
+                  add_interaction( between_var = c("genotype", "environment"), mu = 0.21, sd = 1.99) %>% 
                   set_correlation(between_var = c("genotype", "environment"), corr = 0.4224420) %>% 
                   set_correlation(between_var = c("genotype", "genotype:environment"), corr = -0.4543833) %>%
                   set_correlation(between_var = c("environment", "genotype:environment"), corr = -0.3095052)
@@ -242,9 +242,9 @@ Let's consider a scenario where a team is strategizing a new experiment encompas
  
 ```{r design_init_200, warning = FALSE, message = FALSE}
 ## -- init a design 
-input_var_list <- init_variable( name = "genotype", mu = 0, sd = 0.29, level = 100) %>%
-                  init_variable( name = "environment", mu = 0.27, sd = 0.6, level = 4) %>%
-                  add_interaction( between_var = c("genotype", "environment"), mu = 0.44, sd = 0.89) %>% 
+input_var_list <- init_variable( name = "genotype", mu = -0.68, sd = 3.83, level = 2) %>%
+                  init_variable( name = "environment", mu = -0.29, sd = 1.74, level = 4) %>%
+                  add_interaction( between_var = c("genotype", "environment"), mu = 0.21, sd = 1.99) %>% 
                   set_correlation(between_var = c("genotype", "environment"), corr = 0.4224420) %>% 
                   set_correlation(between_var = c("genotype", "genotype:environment"), corr = -0.4543833) %>%
                   set_correlation(between_var = c("environment", "genotype:environment"), corr = -0.3095052)