13 Aleatorização de experimentos
13.1 Experimento Completamente Aleatorizado
Aleatorize um experimento com três tratamentos (T1, T2 e T3) e cinco réplicas considerando um planejamento inteiramente casualizado.
13.1.1 Código
# Carregando a biblioteca agricolae
library(agricolae)
# Definir número de replicações e tratamentos
rep <- 5
tratamentos <- c("T1", "T2", "T3")
# Criar o design experimental completamente aleatorizado
design <- design.crd(tratamentos, r = rep, seed = 42)13.1.2 Resultado
# Visualizar o plano experimental
print(design$book)## plots r tratamentos
## 1 101 1 T3
## 2 102 1 T1
## 3 103 2 T3
## 4 104 3 T3
## 5 105 1 T2
## 6 106 2 T2
## 7 107 2 T1
## 8 108 3 T2
## 9 109 3 T1
## 10 110 4 T2
## 11 111 4 T1
## 12 112 4 T3
## 13 113 5 T3
## 14 114 5 T2
## 15 115 5 T113.2 Experimento Aleatorizado em Blocos
Aleatorize um experimento com três tratamentos (T1, T2 e T3) e seis réplicas considerando um delineamento casualizado em blocos.
13.2.1 Código
# Carregando a biblioteca agricolae
library(agricolae)
# Definir número de replicações e tratamentos
rep <- 6
tratamentos <- c("T1", "T2", "T3")
# Criar o design experimental completamente aleatorizado
design <- design.rcbd(tratamentos, r = rep)13.2.2 Resultado
# Visualizar o plano experimental
print(design$book)## plots block tratamentos
## 1 101 1 T1
## 2 102 1 T2
## 3 103 1 T3
## 4 201 2 T3
## 5 202 2 T2
## 6 203 2 T1
## 7 301 3 T2
## 8 302 3 T1
## 9 303 3 T3
## 10 401 4 T2
## 11 402 4 T1
## 12 403 4 T3
## 13 501 5 T3
## 14 502 5 T1
## 15 503 5 T2
## 16 601 6 T3
## 17 602 6 T1
## 18 603 6 T2