5-1
q<-qnorm(0.975)
LCI<-120-q*(15/sqrt(49))
UCI<-120+q*(15/sqrt(49))
data.frame(LCI,UCI)
5-2
#5-2-1
q<-qnorm(0.95)
LCI<-8900-q*(500/sqrt(15))
UCI<-8900+q*(500/sqrt(15))
data.frame(LCI,UCI)
#5-2-2
q<-qnorm(0.975)
LCI<-8900-q*(500/sqrt(35))
UCL<-8900+q*(500/sqrt(35))
data.frame(LCI,UCI)
#5-2-3
q<-qnorm(0.90)
LCI<-8900-q*(510/sqrt(35))
UCI<-8900+q*(510/sqrt(35))
data.frame(LCI,UCI)
#5-2-4