Prob. 16, Page 204

Using the data in the Excel file Consumer Transportation Survey, test the following null hypotheses:

  1. Individuals spend at least 8 hours per week in their vehicles.

  2. Individuals drive an average of 600 miles per week.

  3. The average age of SUV drivers is no greater than 35.

  4. At least 80% of individuals are satisfied with their vehicles

library(readxl)
cust <- read_xlsx("F:/C-DAC Analytics/Advanced Analytics/Advance Solution/Data_Files/Consumer Transportation Survey.xlsx",
                  1,range = "A3:J53")
t.test(cust$`# of hours per week in vehicle`,
       mu=8,alternative="l")
## 
##  One Sample t-test
## 
## data:  cust$`# of hours per week in vehicle`
## t = 0.21908, df = 49, p-value = 0.5863
## alternative hypothesis: true mean is less than 8
## 95 percent confidence interval:
##      -Inf 9.384405
## sample estimates:
## mean of x 
##      8.16