###################################################################### # GPA example with hypothesis test # # # ###################################################################### ybar <- 2.9 s <- 0.1 alpha <- 0.05 n <- 16 qt(p = 1 - alpha/2, df = n-1) #Interval lower <- ybar - qt(p = 1 - alpha/2, df = n-1) * s / sqrt(n) upper <- ybar + qt(p = 1 - alpha/2, df = n-1) * s / sqrt(n) data.frame(lower, upper) #