## Not run:
# ezsim_basic<-ezsim(
# m = 100,
# run = TRUE,
# display_name = c(mean_hat="hat(mu)",sd_mean_hat="hat(sigma[hat(mu)])"),
# parameter_def = createParDef(list(n=seq(20,80,20),mu=c(0,2),sigma=c(1,3,5))),
# dgp = function() rnorm(n,mu,sigma),
# estimator = function(x) c(mean_hat = mean(x),
# sd_mean_hat=sd(x)/sqrt(length(x)-1)),
# true_value = function() c(mu, sigma / sqrt(n-1))
# )
# ## Plot the summary ezsim
# plot(summary(ezsim_basic,c("q25","q75")))
# plot(summary(ezsim_basic,c("q25","q75"),subset=list(estimator='mean_hat')))
# plot(summary(ezsim_basic,c("median"),subset=list(estimator='sd_mean_hat')))
# ## End(Not run)
Run the code above in your browser using DataLab