Diseño y analisis de experimentos con diagrama de arbol

Trabajo realizado en clase.

library(collapsibleTree)

## Warning: package 'collapsibleTree' was built under R version 4.2.2

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

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

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

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