DE - Clase 6

library(collapsibleTree)

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

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

##         rto dosis
## 1  2.966614    d1
## 2  2.835191    d1
## 3  2.662818    d1
## 4  2.896120    d1
## 5  2.530392    d2
## 6  2.620885    d2
## 7  2.926166    d2
## 8  3.117858    d2
## 9  2.763208    d3
## 10 2.976324    d3
## 11 3.362319    d3
## 12 2.648879    d3

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

library(collapsibleTree)

set.seed(2023)
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.966614     15:15:15     den1
## 2  2.835191     15:15:15     den1
## 3  2.662818     15:15:15     den2
## 4  2.896120     15:15:15     den2
## 5  2.530392     15:15:15     den3
## 6  2.620885     15:15:15     den3
## 7  2.926166     18:18:18     den1
## 8  3.117858     18:18:18     den1
## 9  2.763208     18:18:18     den2
## 10 2.976324     18:18:18     den2
## 11 3.362319     18:18:18     den3
## 12 2.648879     18:18:18     den3

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