Function to graph intervals
interval.plot(ll, ul, parameter = 0)
vector of lower values
vector of upper values
value of the desired parameter (used when graphing confidence intervals)
Draws user-given intervals on a graphical device.
set.seed(385)
samples <- 100
n <- 625
ll <- numeric(samples)
ul <- numeric(samples)
xbar <- numeric(samples)
for (i in 1:samples){
xbar[i] <- mean(rnorm(n, 80, 25))
ll[i] <- xbar[i] - qnorm(.975)*25/sqrt(n)
ul[i] <- xbar[i] + qnorm(.975)*25/sqrt(n)
}
interval.plot(ll, ul, parameter = 80)
#> 5 % of the intervals do not contain the parameter = 80 .