Clase 4

library(collapsibleTree)

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

set.seed(123)
datos = data.frame(
   rto = runif(12, 2.5, 3.5),
  dosis = gl(3,4,12, c('d1', 'd2', 'd3'))
)
datos

##         rto dosis
## 1  2.787578    d1
## 2  3.288305    d1
## 3  2.908977    d1
## 4  3.383017    d1
## 5  3.440467    d2
## 6  2.545556    d2
## 7  3.028105    d2
## 8  3.392419    d2
## 9  3.051435    d3
## 10 2.956615    d3
## 11 3.456833    d3
## 12 2.953334    d3

collapsibleTreeSummary(
  datos,
  c('dosis', 'rto'),
  collapsed = FALSE
)

library(collapsibleTree)

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
)