# NOT RUN {
thStrt <- list(list(beta=c(3.0,0.1),sigsq=16,lambda=0.5),
list(beta=c(0.0,0.0),sigsq=16,lambda=0.5))
fit <- mixreg(plntsInf~aphRel,ncomp=2,thetaStart=thStrt,
covMat=TRUE,data=aphids)
cbds <- cband(fit)
plot(cbds)
plot(cbds,pbands=FALSE)
plot(cbds,pbands=FALSE,type="u")
# }
Run the code above in your browser using DataLab