```{r, echo=FALSE, warning=FALSE, message=FALSE}
require(knitr)
require(ggplot2)
opts_chunk$set(warning=FALSE,message=FALSE)
```


## Viz 

![bad](http://andrewpbray.github.io/viz-bad.PNG)


## Viz 

![bad2](http://andrewpbray.github.io/viz-bad2.png)


## Viz 

![meh](http://andrewpbray.github.io/viz-meh.png)


## Viz 

![good](http://andrewpbray.github.io/viz-god.PNG)

## Poverty and Graduation

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

![dropout](http://www.carleton.edu/departments/educ/vote/pictures/icons/DropoutIcon.jpg)

## Poverty and Graduation

```{r echo=FALSE}
poverty <- read.delim("http://andrewpbray.github.io/poverty.txt", header = TRUE)
plot(poverty$Poverty, poverty$Graduates, pch = 16, col = "steelblue")
```

## Which line?

```{r, eval=FALSE}
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)
```

