Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(nestedmodels)
library(parsnip)
## ----time---------------------------------------------------------------------
model <- linear_reg() %>%
set_engine("lm") %>%
nested()
system.time({
fit(model, z ~ ., tidyr::nest(example_nested_data, data = -id))
})
## ----size---------------------------------------------------------------------
utils::object.size(fit)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.