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) #
plot(x,y)
lines(x,fitted(aids1))
rm(aids1)
detach(aids)
Run the code above in your browser using DataLab