# Packages and Data

```
library(tidyverse)
library(infer)
```

Consider 20 1 bedroom apartments that were randomly selected on Craigslist Manhattan from apartments listed as “by owner”.

`manhattan <- read_csv("data/manhattan.csv")`

# Exercises

## Exercise 1

Create a 98% bootstrap confidence interval for the population median price of 1 bedroom apartments in Manhattan.

## Exercise 2

Create a 98% bootstrap confidence interval for the population mean price of 1 bedroom apartments in Manhattan. Write out an appropriate interpretation of this interval.

## Exercise 3

Compare the two confidence intervals. Which interval is wider?

## Exercise 4

Can we use these intervals to make an accurate statement about the mean/median price of 1 bedroom apartments in the Bronx?

## Stage, commit and push

- Stage your modified files.
- Commit your changes with an informative message.
- Push your changes to your GitHub repo.
- Verify your files were updated on GitHub.