\begin{Schunk}
\begin{Sinput}
 set.seed(234)
 N <- 48 ## Small sample
 dat <- 
    data.frame(x = exp(rnorm(N, mean = 5, sd = 0.7)), 
       y = rpois(N, lambda = 13),
       w = sample(letters[6:10], N, replace = TRUE), 
       z = gl(4, 12, labels = c("eenie", "meanie", "miney", "mo")),
       stringsAsFactors = FALSE) 
 ## Safe copy for checking recodes
 dat.orig <- dat
\end{Sinput}
\end{Schunk}
