set.seed(1977)
vars <- list(c(round(runif(90, 0, 3)), NA), round(runif(100, 0, 2)))
nams <- c("Var1", "Var2")
group <- sample(c(rep("A", 50), rep("B", 50)))
subset <- c(1:70, 91:100)
tableNominal(vars, nams, group, subset, cap = "Table of nominal variables.",
lab = "tab: nominal")
Run the code above in your browser using DataLab