STAT 373 – Ch6 - Sol - 3 d)Using the R commands new<-data.frame(xsin=0.5,xcos=sqrt(3)/2,year=1994) p<-predict(b,interval='p',newdata=new,level=0.95) p gives fit lwr upr [1,] –6.202745 –9.938354 –2.467136 This interval is very similar to the one given in the notes derived using a model based on indicator variables.

This preview
has intentionally blurred sections.
Sign up to view the full version.