CIsim(10,1000) # 1000 95\% intervals using t.test; population is N(0,1)
CIsim(10,1000, rdist=rexp, estimand=1) # this time population is Exp(1)
xYplot(Cbind(estimate,lower,upper) ~ sample,
data=CIsim(10,100, rdist=rexp, estimand=1),
par.settings=col.mosaic(), groups=cover)
ladd(panel.abline(h=1))
Run the code above in your browser using DataLab