Skip to content
Snippets Groups Projects
Commit 397f66a5 authored by fduveau's avatar fduveau
Browse files

Correct variable values

parent 17a22b71
No related branches found
No related tags found
No related merge requests found
...@@ -114,9 +114,9 @@ By using the estimated intercept obtained from the previous analysis of publicly ...@@ -114,9 +114,9 @@ By using the estimated intercept obtained from the previous analysis of publicly
```{r design_init, warning = FALSE, message = FALSE} ```{r design_init, warning = FALSE, message = FALSE}
## -- init a design ## -- init a design
input_var_list <- init_variable( name = "genotype", mu = 0, sd = 0.29, level = 2) %>% input_var_list <- init_variable( name = "genotype", mu = -0.68, sd = 3.83, level = 2) %>%
init_variable( name = "environment", mu = 0.27, sd = 0.6, level = 4) %>% init_variable( name = "environment", mu = -0.29, sd = 1.74, level = 4) %>%
add_interaction( between_var = c("genotype", "environment"), mu = 0.44, sd = 0.89) %>% 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", "environment"), corr = 0.4224420) %>%
set_correlation(between_var = c("genotype", "genotype:environment"), corr = -0.4543833) %>% set_correlation(between_var = c("genotype", "genotype:environment"), corr = -0.4543833) %>%
set_correlation(between_var = c("environment", "genotype:environment"), corr = -0.3095052) 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 ...@@ -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} ```{r design_init_200, warning = FALSE, message = FALSE}
## -- init a design ## -- init a design
input_var_list <- init_variable( name = "genotype", mu = 0, sd = 0.29, level = 100) %>% input_var_list <- init_variable( name = "genotype", mu = -0.68, sd = 3.83, level = 2) %>%
init_variable( name = "environment", mu = 0.27, sd = 0.6, level = 4) %>% init_variable( name = "environment", mu = -0.29, sd = 1.74, level = 4) %>%
add_interaction( between_var = c("genotype", "environment"), mu = 0.44, sd = 0.89) %>% 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", "environment"), corr = 0.4224420) %>%
set_correlation(between_var = c("genotype", "genotype:environment"), corr = -0.4543833) %>% set_correlation(between_var = c("genotype", "genotype:environment"), corr = -0.4543833) %>%
set_correlation(between_var = c("environment", "genotype:environment"), corr = -0.3095052) set_correlation(between_var = c("environment", "genotype:environment"), corr = -0.3095052)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment