Part 1

supermarket_raw=read_csv("supermarket_sales.csv")%>%

  clean_names()

#Q1

median_sales_by_payment=supermarket_raw%>%

  group_by(payment)%>%

  summarise(median_sales=median(quantity))

#Q2

supermarket_raw=supermarket_raw%>%

  mutate(rup=rating/unit_price)

#Q3

mean_rup_and_unit_price_by_product_line=supermarket_raw%>%

  group_by(product_line)%>%

  summarise(mean_rup=mean(rup),mean_unit_price=mean(unit_price))

print(mean_rup_and_unit_price_by_product_line)

sink("Ps3.txt")

source("PRS3.R",echo=TRUE)

sink()

Part 2