Homework 7

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

Training_Cleaned_Filtered<-read_csv("Training_Cleaned_Filtered.csv")

## New names:
## Rows: 1912 Columns: 6
## ── Column specification
## ──────────────────────────────────────────────────────── Delimiter: "," chr
## (2): County, Provider Name dbl (4): ...1, All Students (7/1/2018 - 6/30/2022),
## Percent Received Credent...
## ℹ Use `spec()` to retrieve the full column specification for this data. ℹ
## Specify the column types or set `show_col_types = FALSE` to quiet this message.
## • `` -> `...1`

Training_Model<-lm(Training_Cleaned_Filtered)
plot(Training_Model,which=1)

library(MASS)

## 
## Attaching package: 'MASS'

## The following object is masked from 'package:dplyr':
## 
##     select

library(dplyr)

library(car)

## Loading required package: carData

## 
## Attaching package: 'car'

## The following object is masked from 'package:dplyr':
## 
##     recode

## The following object is masked from 'package:purrr':
## 
##     some

durbinWatsonTest(Training_Model)

##  lag Autocorrelation D-W Statistic p-value
##    1       0.8982241     0.2035518       0
##  Alternative hypothesis: rho != 0

plot(Training_Model,which=3)

## Warning: not plotting observations with leverage one:
##   2, 27, 226, 227, 262, 268, 278, 288, 358, 385, 410, 411, 412, 450, 496, 497, 498, 537, 540, 541, 542, 594, 628, 639, 760, 761, 867, 1018, 1023, 1033, 1053, 1054, 1063, 1088, 1091, 1288, 1331, 1480, 1517, 1550, 1622, 1636, 1741, 1742, 1745, 1756, 1757, 1764, 1775, 1776, 1777, 1778, 1790, 1797, 1798, 1801, 1802, 1803, 1816, 1817, 1820, 1823, 1824, 1825, 1828, 1835, 1839, 1840, 1859, 1860, 1861, 1862, 1865, 1866, 1877, 1880, 1883, 1884, 1892, 1895, 1902, 1909, 1910, 1911, 1912