## Not run:
# require(CorReg)
# repart=c(20,40,40)
# X=data.frame(num=c(rnorm(repart[1],10,1),rnorm(repart[2],11,1),rnorm(repart[3],10,1)),
# grp=c(rep("A",times=repart[1]),rep("B",times=repart[2]),rep("C",times=repart[3])))
#
#
# BoxPlot(X$num,X$grp,data=X,ylab="num",main="boxplot with confidence intervals")
# #Confidence interval in red with mean in blue.
#
# ## End(Not run)
Run the code above in your browser using DataLab