---
title: "STAT 22000 Winter 2022 First Midterm Part 2"
author: "Your Name Goes Here"
fontsize: 12pt
output:
  pdf_document: default
  html_document:
    df_print: paged
  word_document: default
header-includes: \usepackage{pdfpages}
geometry: margin=0.75in
fig_crop: no
---

```{r echo=FALSE, message=FALSE}
library(knitr)
knitr::opts_chunk$set(fig.width=4, fig.height=3, message=F, warning=F)
options(scipen=6, digits=6)
library(mosaic)
```


# Question 1


```{r}
nc = read.csv("https://www.openintro.org/stat/data/csv/ncbirths.csv")
nc = subset(nc, is.na(weeks) == FALSE)
```


## Q1a --- 4 points

```{r, fig.width=4, fig.height=3}
# Your R code for Q1a
```


## Q1b --- 4 points

```{r, fig.width=3, fig.height=3}
# Your R code for Q1b
```

## Q1c --- 4 points

```{r, fig.width=6, fig.height=6}
# Your R code for Q1c
```


# Question 2 --- 4 points