data(smoking)
str(smoking)
histPlot(smoking$amtWeekends)
histPlot(smoking$amtWeekdays)
table(smoking$smoke, smoking$gender)
mosaicplot(~ smoke + maritalStatus, data = smoking)
barplot(sort(table(smoking$maritalStatus), decreasing = TRUE))
Run the code above in your browser using DataLab