# Run this code to load the required packages
suppressMessages(suppressWarnings(suppressPackageStartupMessages({
library(mosaic)
library(supernova)
library(Lock5withR)
})))
# Adjust the plots to be a bit smaller
options(repr.plot.width = 6, repr.plot.height = 4)
CensusSchool <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSVaWnM4odSxy0mlnhWvvGbeLtiKoZmsbqC6KLzXtBOjQfrF9EVKuX4RVh3XbP3iw/pub?gid=2100178416&single=true&output=csv", header = TRUE)
str(CensusSchool)
MyCensusSchool12 <- filter(CensusSchool, Watching_TV_Hours <=40)
MyCensusSchool13 <- filter(MyCensusSchool12, Work_At_Home_Hours <=40)
gf_jitter(Work_At_Home_Hours ~ Watching_TV_Hours, data = MyCensusSchool13, alpha = .5)
lm(Watching_TV_Hours ~ Work_At_Home_Hours, data = CensusSchool)
lm(Watching_TV_Hours ~ Work_At_Home_Hours, data = CensusSchool)->WorkAtHomeHours.model
supernova(WorkAtHomeHours.model)