# NOT RUN {
data("SmokeBan")
## proportion of non-smokers increases with education
plot(smoker ~ education, data = SmokeBan)
## proportion of non-smokers constant over age
plot(smoker ~ age, data = SmokeBan)
# }
Run the code above in your browser using DataLab