---
title: "Ed Gap Data Exploration"
author: "Dr. Paul Pearson"
date: "2024-10-17"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

# Load data

```{r}
df <- read.csv("ed_gap_and_nces_data_merged.csv")
nrow(df)

MI <- subset(df, state_abbrev == "MI")
nrow(MI)

mean(MI$teacher_to_student_ratio)
sum(MI$teacher_to_student_ratio > 18.1)
```