# NOT RUN {
set.seed(23525)
zip <- c(NA, paste('z', 1:100, sep = "_"))
N <- 500
d <- data.frame(zip = sample(zip, N, replace=TRUE),
zip2 = sample(zip, N, replace=TRUE),
y = runif(N))
dSample <- d[1:300, , drop = FALSE]
tplan <- designTreatmentsN(dSample,
c("zip", "zip2"), "y",
verbose = FALSE)
trackedValues <- track_values(dSample, c("zip", "zip2"))
# don't normally want to catch warnings,
# doing it here as this is an example
# and must not have unhandled warnings.
tryCatch(
prepare(tplan, d, trackedValues = trackedValues),
warning = function(w) { cat(paste(w, collapse = "\n")) })
# }
Run the code above in your browser using DataCamp Workspace