Diseños Experimentales

library(agricolae)

DCA

Factor → dosis de fertilización nitrogenada (kg/ha) 0 ~ testigo 50 100 Diseño: DCA Repeticiones: 5 UE → 3 dosis x 5 rep = 15

# Definición de los tratamientos (factor: dosis de fertilización nitrogenada)
tratamientos <- c("0", "50", "100")

# Diseño completamente al azar (DCA) con 5 repeticiones
diseño <- design.crd(
  trt = tratamientos,   # tratamientos
  r = 5,                # número de repeticiones
  seed = 123,           # semilla para reproducibilidad
  serie = 2             # numeración de las unidades experimentales
)

# Visualización del diseño generado
print(diseño)

$parameters
$parameters$design
[1] "crd"

$parameters$trt
[1] "0"   "50"  "100"

$parameters$r
[1] 5 5 5

$parameters$serie
[1] 2

$parameters$seed
[1] 123

$parameters$kinds
[1] "Super-Duper"

$parameters[[7]]
[1] TRUE


$book
   plots r tratamientos
1    101 1           50
2    102 1          100
3    103 2          100
4    104 1            0
5    105 2            0
6    106 3          100
7    107 3            0
8    108 4            0
9    109 2           50
10   110 3           50
11   111 4           50
12   112 4          100
13   113 5           50
14   114 5          100
15   115 5            0

DBCA

Factor 1 → dosis de fertilización nitrogenada (Kg/ha) Factor 2 → cultivares papa peruanita canchan Diseño: DBCA Repeticiones: 4 UE → 3 dosis x 2 cultivos x 4 rep = 24

trt<-c(3,2) # factorial 3x2
outdesign <-design.ab(trt, r=3, serie=2)
book<-outdesign$book
book

   plots block A B
1    101     1 2 1
2    102     1 3 2
3    103     1 1 2
4    104     1 1 1
5    105     1 3 1
6    106     1 2 2
7    107     2 3 1
8    108     2 2 2
9    109     2 1 2
10   110     2 1 1
11   111     2 3 2
12   112     2 2 1
13   113     3 3 2
14   114     3 2 1
15   115     3 3 1
16   116     3 1 1
17   117     3 2 2
18   118     3 1 2