clase4

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
)

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  3.177571     15:15:15     den1
## 2  3.072633     15:15:15     den1
## 3  2.602925     15:15:15     den2
## 4  3.399825     15:15:15     den2
## 5  2.746088     15:15:15     den3
## 6  2.542060     15:15:15     den3
## 7  2.827921     18:18:18     den1
## 8  3.454504     18:18:18     den1
## 9  3.389539     18:18:18     den2
## 10 3.192803     18:18:18     den2
## 11 3.140507     18:18:18     den3
## 12 3.494270     18:18:18     den3

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