## ----ex_setup, include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(
  message = FALSE,
  digits = 3,
  collapse = TRUE,
  comment = "#>"
  )
options(digits = 3)

## ----mtcars_bt, message=FALSE-----------------------------------------------------------
library(rsample)
set.seed(8584)
bt_resamples <- bootstraps(mtcars, times = 3)
bt_resamples

## ----rsplit-----------------------------------------------------------------------------
first_resample <- bt_resamples$splits[[1]]
first_resample

## ----rsplit_df--------------------------------------------------------------------------
head(as.data.frame(first_resample))
as.data.frame(first_resample, data = "assessment")