# NOT RUN {
data = data.frame(w = seq(0, 1, length.out = 5),
x = factor(letters[1:5]),
y = ordered(1:5),
z = 1:5,
r = letters[1:5],
stringsAsFactors = FALSE)
makeDesign(data, "z", c(10, 5), TRUE)
# }
Run the code above in your browser using DataLab