Type the R call and the key output lines for the one-sided test of mean file hours against 50 (hrs: n = 16, mean 53, sd 6.4).

Answer

> t.test(hrs, mu = 50, alternative = "greater") t = 1.875, df = 15, p-value = 0.0402 alternative hypothesis: true mean is greater than 50 95 percent confidence interval: 50.19512 Inf sample estimates: mean of x 53

mu = sets μ₀; alternative = "greater" sets the upper tail. p = 0.0402 is the exact tail the table bracketed as 0.025 < p < 0.05; the interval is one-sided (a lower bound, upper limit Inf).

BCc ch 5 (software printout); H-W7/W9 (pt, qt) — shape only; R output from a live Rscript session; original dataset