| Fig9.4 | R Documentation | 
Reproduces Figure 9.4 from the book. If you specify any options, your results may look different.
Fig9.4(out, B = 100, seed = 2)
| out | Output of Ex9.1 | 
| B | Number of bootstrap replications | 
| seed | Random number seed for reproducibility | 
Data <- Ex9.1()
res <- Fig9.4(Data)
covered <- Data$beta >= res$Lower & Data$beta <= res$Upper
mean(covered)
table(Data$varType, covered)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.