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)
if (require(Hmisc)) {
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))
xYplot( Cbind(estimate,lower,upper) ~ sample,
data=CIsim(10, 100, rdist=rbinom, args=list(size=1,prob=.5),
estimand = .5, method = prop.test),
par.settings=col.mosaic(), groups=cover)
}
Run the code above in your browser using DataLab