# NOT RUN {
# Plot fifty 90% confidence intervals, each based on 13 observations from a
# Normal( mean=70, sd=10 ) distribution.
plotCI( replicate( 50, t.test( rnorm( 13, 70, 10 ), conf.level=0.9 )$conf.int ), 70 )
# }
Run the code above in your browser using DataLab