1. Problem 5.6.
t24_90<-qt(0.90, df = c(24))

(6/t24_90)*5
## [1] 22.76459
  1. Problem 5.48
DSS<-(38.67-40.45)**2*121+(39.6-40.45)**2*546+(41.39-40.45)**2*97+(42.55-40.45)**2*253+(40.85-40.45)**2*155

DSS+267382
## [1] 269386.1
MSR<-267382/1167

501.54/MSR
## [1] 2.188992