# NOT RUN {
fit <- mixreg(plntsInf~1,ncomp=2,seed=42,covMat=TRUE,data=aphids)
cis <- cband(fit) # *Could* call cint(fit) directly
plot(cis)
plot(cis,pintss=FALSE)
plot(cis,pintss=FALSE,type="u")
# }
Run the code above in your browser using DataLab