# NOT RUN {
# Default handler is `draw_rs` from `randomizr` package
# Simple random sampling
my_sampling <- declare_sampling(n = 50)
# Stratified random sampling
my_stratified_sampling <- declare_sampling(strata = female)
# Custom random sampling functions
my_sampling_function <- function(data, n=nrow(data)) {
data[sample(n,n,replace=TRUE), , drop=FALSE]
}
my_sampling_custom <- declare_sampling(handler = my_sampling_function)
my_sampling_custom(sleep)
# }
Run the code above in your browser using DataCamp Workspace