# NOT RUN {
options(scipen=8)
# used in bivariate description functions
Desc(temperature ~ cut(delivery_min, breaks=40), data=d.pizza)
txt <- c(
paste(sample(letters, 500, replace=TRUE), collapse="")
, paste(sample(letters, 500, replace=TRUE), collapse="")
, paste(sample(letters, 500, replace=TRUE), collapse="")
)
txt <- paste(c("aaa","bbb","ccc"), txt, sep="")
CatTable(txt, nrepchars=3, wcol=5)
# }
Run the code above in your browser using DataLab