# NOT RUN {
fit <- mixreg(aphRel,plntsInf,ncomp=2,seed=42,data=aphids)
r <- residuals(fit)
plot(r)
fit <- mixreg(plntsInf ~ 1,ncomp=2,data=aphids)
r <- residuals(fit)
plot(r,shape="l",polycol="green")
# }
Run the code above in your browser using DataLab