#Set a seed
set.seed(123)
#Default permutes all columns
heart_disease %>%
muddle
#Permute select columns
heart_disease %>%
muddle(
at = c(Age, Sex)
)
#Using a select helper
heart_disease %>%
muddle(
at = matches("^S")
)
#Pass other arguments
heart_disease %>%
muddle(
size = 5,
replace = TRUE
)
Run the code above in your browser using DataLab