# NOT RUN {
set.seed(1977)
v1 <- round(runif(20, 0, 3))
v2 <- round(runif(20, 0, 5))
displayKbyC(v1, v2, percentage = "row", names = c("v1", "v2"),
cap = "", lab = "", row.nam = NA, col.nam = NA)
# }
Run the code above in your browser using DataLab