# 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_bar(~Home_Internet_Access, data = CensusSchool)->Internet Internet + coord_flip()

filter(CensusSchool, Computer_Use_Hours <75)->SchoolHours gf_histogram(~Computer_Use_Hours, data = SchoolHours) select(CensusSchool, Home_Internet_Access, Computer_Use_Hours)

lm(Computer_Use_Hours~Home_Internet_Access, data = SchoolHours)

supernova(Hours2)

confint(Hours2)