Viz

Viz

Viz

Viz

Poverty and Graduation

poverty <- read.csv("http://andrewpbray.github.io/poverty.txt", sep = "nt")
plot(poverty$Poverty, poverty$Graduates, pch = 16, col = "steelblue")

Poverty and Graduation

plot of chunk unnamed-chunk-3

Which line?

download.file("http://www.openintro.org/stat/data/mlb11.RData",
              destfile = "mlb11.RData")
load("mlb11.RData")
plot_ss(poverty$Poverty, poverty$Graduates)
m1 <- lm(Graduates ~ Poverty, data = poverty)