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