install.packages(“tidyverse”) library(tidyverse)

#Set Directory df <- read_csv(“CigarettesB.csv”) df

#Q1 summary(df)

mean(df\(packs) median(df\)packs) mean(df\(income) median(df\)income)

#Q2 dff <- data.frame(df\(packs,df\)income) dff

#Q3 colnames(dff) <- c(“1”, “2”) dff summary(dff)

#Q4 mean(dff\("1") median(dff\)“1”) mean(dff\("2") median(dff\)“2”)

#Q5 dff\("1"[dff\)“1” == “4.96213”] <- “1000” dff\("1"[dff\)“1” == “4.66312”] <- “2000” dff\("1"[dff\)“1” == “5.10709”] <- “3000” dff

#Q6 dff # displays the rows for Q5 #not sure what you mean by this question professor