# Run this code to load the required packages
suppressMessages(suppressWarnings(suppressPackageStartupMessages({
library(mosaic)
library(supernova)
library(Lock5withR)
})))
CensusSchool <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSVaWnM4odSxy0mlnhWvvGbeLtiKoZmsbqC6KLzXtBOjQfrF9EVKuX4RVh3XbP3iw/pub?gid=2100178416&single=true&output=csv", header = TRUE)
CensusSchool <-read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSVaWnM4odSxy0mlnhWvvGbeLtiKoZmsbqC6KLzXtBOjQfrF9EVKuX4RVh3XbP3iw/pub?gid=2100178416&single=true&output=csv")
(CensusSchool)
gf_bar(~ClassGrade, data = CensusSchool) %>%
gf_facet_grid(~Schoolwork_Pressure~.)
select(CensusSchool, Schoolwork_Pressure, ClassGrade)
gf_jitter(ClassGrade ~ Schoolwork_Pressure, data = CensusSchool, color = "orange", size = 5, alpha = .5)
model2<-lm(ClassGrade ~ Schoolwork_Pressure, data = CensusSchool)
lm(model2)
supernova(model2)