A sample of companies was selected randomly from each of three regions in Canada (West, East, and Prairies), and annual salaries for marketing managers were collected. a) A test is conducted to determine if the salaries of managers in the West is different than $90 000. State the null and alternative hypotheses and identify the appropriate test.

salaries <- c(80000, 82000, 85000, 88000, 90000, 90000, 91000, 92000, 94000, 94000,
95000, 95000, 97000, 97000, 97000, 98000, 98000, 98000, 100000, 100000)

t.test(salaries, mu = 90000)

#   One Sample t-test

# data:  salaries
# t = 1.9146, df = 19, p-value = 0.06893
# alternative hypothesis: true mean is not equal to 90000
# 95 percent confidence interval:
#  87544.97  99855.03
# sample estimates:
# mean of x 
#  93774.74