Name: Meng Yang
Date: 12/12/2017
Question 1
> transpo <- read_excel(“C:/Users/Meng/Videos/Analytics/midterm files/transpo.
xlsx”)
> View(transpo)
> transpocharge <- c(transpo$`Transpo charge`)
> transpocharge
> mean(transpocharge)
Question 2.
> estcharge <- c(transpo$`Est. Tot Charge`)
> estcharge
> actcharge <- c(transpo$`Actual Tot Charge`)
> actcharge
> t.test(estcharge,actcharge,alternative=”less”, var.equal=TRUE)
Question 3
> library(readr)
> attenu <- read_csv(“C:/Users/Meng/Videos/Analytics/midterm files/attenu.csv”)
> View(attenu)
> accelerations=c(attenu$accel)
