Type the transcript that computes the mean, SD and variance of the six audit-hour totals.

Answer

> hrs <- c(42, 38, 51, 45, 39, 49) > mean(hrs); sd(hrs); var(hrs) [1] 44 [1] 5.291503 [1] 28

sd() and var() divide by n − 1, matching the hand values 5.29 and 28 from the sums table. Seven significant digits is R’s default print.

S21 W1 handout (R component, shape only); every transcript line is the verbatim console text of a real Rscript run (2026-09-17)