# Example with character vector
set.seed(123)
x <- letters[1:10]
scramble_values(x)
# Example with numeric vector
nums <- 1:5
scramble_values(nums)
# Scramble a column in the 'williams' dataset
data(williams)
# Simple scrambling of a single column
set.seed(123)
williams$ecology_scrambled <- scramble_values(williams$ecology)
head(williams[c("ecology", "ecology_scrambled")])
Run the code above in your browser using DataLab