## Not run: ------------------------------------
# # Simultaneous 90% confidence regions for the mean and variance or sd of univariate normal data
#
# univar <- rnorm(n=50)
#
# moodvar <- csetMV(dat=univar, method="mood", alpha=0.1, scale="var")
# summary(moodvar)
# plot(moodvar)
#
# moodsd <- csetMV(dat=univar, method="mood", alpha=0.1, scale="sd")
# summary(moodsd)
# plot(moodsd)
## ---------------------------------------------
Run the code above in your browser using DataLab