---
title: "Homework 1"
author: "Your Name"
date: "January 21, 2021"
output: pdf_document
editor_options: 
  chunk_output_type: console
---

```{r setup, include = FALSE}
# global chunk options
knitr::opts_chunk$set(echo = TRUE, 
                      error=FALSE, 
                      warning=FALSE,
                      message = FALSE)

# packages 
library(tidyverse)
```

##  Problem 1

### a. 
```{r, echo = F, out.width = '100%', fig.align = 'center'}
knitr::include_graphics("terry-schiavo-misleading-graph.jpg")
```

Explain............

Source: Statistics How To "\href{https://www.statisticshowto.com/misleading-graphs/}{Misleading Graphs: Real Life Examples}" 

### b.

Critique............

### c.
```{r, echo = F, out.width = '85%', fig.align = 'center'}
knitr::include_graphics("handwriting.jpg")
```

Propose............

\newpage 

##  Problem 2

```{r, out.width = '85%', fig.align = 'center'}
df <- read_csv("https://faculty.washington.edu/cadolph/vis/iverRevised.csv")

df %>%
  ggplot(aes(x = povertyReduction , y = effectiveParties)) +
  geom_point() +
  geom_smooth(method = 'lm')
```







