# \donttest{
tbl_large <-
trial %>%
tbl_uvregression(
y = age,
method = lm
)
tbl_butchered <-
tbl_large %>%
tbl_butcher()
# size comparison
object.size(tbl_large) %>% format(units = "Mb")
object.size(tbl_butchered) %>% format(units = "Mb")
# }
Run the code above in your browser using DataLab