# NOT RUN {
bmix <- mixbeta(rob=c(0.2, 1, 1), inf=c(0.8, 10, 2))
bsamp <- rmix(bmix, 1000)
bfit <- mixfit(bsamp, type="beta", Nc=2)
pl <- plot(bfit)
print(pl$mixdens)
print(pl$mix)
# }
# NOT RUN {
# a number of additional plots are generated in verbose mode
options(RBesT.verbose=TRUE)
pl_all <- plot(bfit)
names(pl_all)
# [1] "a" "b" "w" "m" "N" "Lm" "lN" "Lw" "lli" "mixdens" "mix"
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab