# NOT RUN {
if (require(datasets)){
data(mtcars)
mtcars$cyl <- factor(mtcars$cyl)
with(mtcars, {
discretePlot(carb)
discretePlot(carb, scale="percent")
discretePlot(carb, by=cyl)
})
}
# }
Run the code above in your browser using DataLab