# NOT RUN {
Nmc=400
s<-seq(from = 1, to = 10, by = 2)*1e3
Inference<-function(s){
rrr<-rnorm(n=s)
list(Mn=mean(rrr), Sd=sd(rrr))
}
data <- Estim_diagnost(Nmc, s, Inference)
estims_boxplot(data)
estims_boxplot(data, sep=TRUE)
# }
Run the code above in your browser using DataLab