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

url <- “https://raw.githubusercontent.com/Robzan93/BridgeR_Week2/main/CigarettesSW.csv” CigarettesSW <- read_csv(url)

mean_tax <- mean(CigarettesSW\(tax, na.rm = TRUE) median_tax <- median(CigarettesSW\)tax, na.rm = TRUE)

print(paste(“Mean Tax:”, mean_tax)) print(paste(“Median Tax:”, median_tax))

new_data <- CigarettesSW[1:5, c(“tax”, “price”)]

colnames(new_data) <- c(“Tax”, “Price”)

summary(new_data)

mean_tax_new <- mean(new_data\(Tax, na.rm = TRUE) median_tax_new <- median(new_data\)Tax, na.rm = TRUE)

print(paste(“Mean Tax (New):”, mean_tax_new)) print(paste(“Median Tax (New):”, median_tax_new))

new_data\(Tax[new_data\)Tax <= 30] <- “Low Tax” new_data\(Tax[new_data\)Tax > 30 & new_data\(Tax <= 50] <- "Medium Tax" new_data\)Tax[new_data$Tax > 50] <- “High Tax”

head(new_data, 5)