---
title: "Confidence Intervals for Population Proportions -- Example"
author: "Evan L. Ray"
date: "November 6, 2017"
output: pdf_document
---

<style>
  .col2 {
    columns: 2 200px;         /* number of columns and width in pixels*/
    -webkit-columns: 2 200px; /* chrome, safari */
    -moz-columns: 2 200px;    /* firefox */
  }
  .col3 {
    columns: 3 100px;
    -webkit-columns: 3 100px;
    -moz-columns: 3 100px;
  }
</style>

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, cache = FALSE)
require(ggplot2)
require(scales)
require(dplyr)
require(tidyr)
require(readr)
require(mosaic)
```

## Teenage Drivers

An insurance company checks police records on 582 accidents that occurred in the US, selected at random, and notes that teenagers were at the wheel in 91 of them.

#### (a) What is the population parameter, $p$?  Describe it in a sentence.

\vspace{3cm}

#### (b) What is the sample statistic, $\widehat{p}$?  Describe it in a sentence and calculate its value.

\vspace{3cm}

#### (c) What is the standard error of $\widehat{p}$?  Describe it in a sentence and calculate its value.

\vspace{2cm}

#### (d) What is the sampling distribution of $\widehat{p}$?  Describe the meaning of a sampling distribution in a sentence or two, and write down the sampling distribution of $\widehat{p}$ for this particular example.

\vspace{3cm}

#### (e) Calculate a 90% confidence interval for $\widehat{p}$.  You may use the following output from R:

```{r, echo = TRUE}
qnorm(0.9, mean = 0, sd = 1)
qnorm(0.95, mean = 0, sd = 1)
qnorm(0.975, mean = 0, sd = 1)
pnorm(0.9, mean = 0, sd = 1)
pnorm(0.95, mean = 0, sd = 1)
pnorm(0.975, mean = 0, sd = 1)
```

\vspace{3cm}

#### (f) Interpret the interval you obtained in part (e) in the context of this example.

\vspace{3cm}

#### (g) Would a 95% confidence interval for $\widehat{p}$ be wider or narrower than the 90% interval you obtained in part (e)?

