# 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) str(CensusSchool)

gf_jitter(Paid_Work_Hours ~ Work_At_Home_Hours, data = CensusSchool, alpha = .5) #gf_jitter(Paid_Work_Hours ~ Work_At_Home_Hours, data = CensusSchool, alpha = .5)

MyCensusSchool2 <- filter(CensusSchool, Paid_Work_Hours <=40) MyCensusSchool3 <- filter(MyCensusSchool2, Work_At_Home_Hours <=40) gf_jitter( Work_At_Home_Hours ~ Paid_Work_Hours, data= MyCensusSchool3, alpha= .5)

#lm(Paid_Work_Hours ~ Work_At_Home_Hours, data = CensusSchool)->WorkAtHomeHours.model #supernova(School.model) CensusSchool lm(Work_At_Home_Hours ~ Paid_Work_Hours, data = CensusSchool) lm(Work_At_Home_Hours ~ Paid_Work_Hours, data = CensusSchool)->WorkAtHomeHours.model supernova(WorkAtHomeHours.model) #CensusSchool$Budgetpredict<-predict(School.model) #gf_point(Work_At_Home_Hours ~ Paid_Work_Hours, data = CensusSchool, color = "yellow") %>% #gf_point(Budgetpredict ~Budget, color = "green", size = 2, alpha =.2)