Practice Skills Drill

practiceskillsdata<-read_csv(“/Users/apple/Downloads/Practice Skills Drill 1 Data.csv”) head(practiceskillsdata) practiceskillsdata %>% select(Behav_CigsPerDay_N, year)%>% rename(NumCigs=Behav_CigsPerDay_N)%>% filter(year>1997)%>% group_by(year) %>% summarise(meanNumCigs=mean(NumCigs))

Interpretation:

The mean number of cigarettes smoked from 1998 to 2016 has steadily decreased.