CA School Test Scores

Importing Necessary Library

library(readr)
library(psych)
library(tidyr)
library(stats)

Reading in CSV

schools = read_csv("CASchools.csv")

## Rows: 420 Columns: 15
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr  (3): school, county, grades
## dbl (12): rownames, district, students, teachers, calworks, lunch, computer,...
## 
## ℹ 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.

Mean Students, Computers, and Math Scores

mean1 = mean(schools$students)
mean2 = mean(schools$computer)
mean3 = mean(schools$math)

Correlation between Number of Computers and Math Scores

cor(schools$computer,schools$math)

## [1] -0.03295001

plot(schools$computer,schools$math, main = "Number of Computers vs., Math Scores", xlab = "Number of computers", ylab = "Math Scores")