diff --git a/vignettes/tutorial.Rmd b/vignettes/tutorial.Rmd index d0865841c7a815dd1b00537b0b6770e2ff88d468..32e6c751288da29c771312915823fa1217214d2e 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)