data(aids)
attach(aids)
# fitting a loess curve with span=0.4 plus the a quarterly effect
aids1<-gamlss(y~lo(~x,span=0.4)+qrt,data=aids,family=PO) #
# now we string the quarterly effect using random
aids2<-gamlss(y~lo(~x,span=0.4)+ra(qrt,df=2),data=aids,family=PO) #
plot(x,y)
lines(x,fitted(aids1),col="red")
lines(x,fitted(aids2),col="purple")
rm(aids1,aids2)
detach(aids)
Run the code above in your browser using DataLab