From 397f66a503d7e7ad21ba8e6489a5405e4b68c7e6 Mon Sep 17 00:00:00 2001
From: fduveau <102-fduveau@users.noreply.gitbio.ens-lyon.fr>
Date: Fri, 26 Jan 2024 15:52:58 +0100
Subject: [PATCH] Correct variable values
---
vignettes/tutorial.Rmd | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/vignettes/tutorial.Rmd b/vignettes/tutorial.Rmd
index d086584..32e6c75 100644
--- a/vignettes/tutorial.Rmd
+++ b/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)
--
GitLab