Diseño de experimentos

library(collapsibleTree)

set.seed(123)
datos = data.frame(
  resp = runif(12, 2.5, 3.5),
  factor = gl(3,4,12,
              c('t1','t2','t3'))
)
datos

##        resp factor
## 1  2.787578     t1
## 2  3.288305     t1
## 3  2.908977     t1
## 4  3.383017     t1
## 5  3.440467     t2
## 6  2.545556     t2
## 7  3.028105     t2
## 8  3.392419     t2
## 9  3.051435     t3
## 10 2.956615     t3
## 11 3.456833     t3
## 12 2.953334     t3

collapsibleTreeSummary(
  datos,
  c('factor', 'resp'),
  collapsed = FALSE
)

#Experimento de dos factores

set.seed(123)
datos = data.frame(
  rto = runif(12, 2.5, 3.5),
  Fertilizante = gl(2,6,12,
              c('15:15:15',
                '18:18:18')),
  
  densidad = gl(3,2,12,
                c('den1','den2','den3'))
)
datos

##         rto Fertilizante densidad
## 1  2.787578     15:15:15     den1
## 2  3.288305     15:15:15     den1
## 3  2.908977     15:15:15     den2
## 4  3.383017     15:15:15     den2
## 5  3.440467     15:15:15     den3
## 6  2.545556     15:15:15     den3
## 7  3.028105     18:18:18     den1
## 8  3.392419     18:18:18     den1
## 9  3.051435     18:18:18     den2
## 10 2.956615     18:18:18     den2
## 11 3.456833     18:18:18     den3
## 12 2.953334     18:18:18     den3

collapsibleTreeSummary(
  datos,
  c('Fertilizante', 'densidad', 'rto'),
  collapsed = FALSE
)