ma206, lesson 2

class: inverse, left, bottom
background-image: url(https://images.unsplash.com/photo-1543286386-713bdd548da4?ixlib=rb-1.2.1&ixid=MnwxMjA3fDB8MHxwaG90by1wYWdlfHx8fGVufDB8fHx8&auto=format&fit=crop&w=1470&q=80)
background-size: cover
# .Large[ma206data Lesson 4]
## .small[Statistic, Simulate, Strength; course project prep]
#### .tiny[Dr. Evangeline Reynolds | 2022-08-18 |Image credit: William Iven, Upsplash]
???

@media print {
  .has-continuation {
    display: block;
  }
}

code.r.hljs.remark-code{
  position: relative;
  overflow-x: hidden;
}

code.r.hljs.remark-code:hover{
  overflow-x:visible;
  width: 500px;
  border-style: solid;
}
</style>

---

# Warm up.

## guessthecorrelation.com

---

# Course Map

- 6 step method
- SSS method; and theory based
- Correlation
- Course Project

# Course project proposal

- Due beginning of lesson 7
- Recommended 4 slides for submission

---

# Simulation based approach advocates

http://allendowney.blogspot.com/2016/06/there-is-still-only-one-test.html

![](images/downey_one_test.png)

---

---

---
# Theory approach advocates elegant mathematical solutions...

![](images/theres_a_stat_for_that.jpg)

---
class: inverse, center, middle

## Bonus opportunity #1: react to material

- ### tl;dr
- ### til

## Bonus opportunity #2

- ## 5 plots (10 points total)

### `remotes::install_github("EvaMaeRey/ma206data")`
### `remotes::install_github("EvaMaeRey/ggxmean")`

---

count: false

.panel1-cars_scramble-auto[

```r
*library(tidyverse)
```
]
 
.panel2-cars_scramble-auto[

```
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──
```

```
## ✓ ggplot2 3.3.5     ✓ purrr   0.3.4
## ✓ tibble  3.1.6     ✓ dplyr   1.0.8
## ✓ tidyr   1.0.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0
```

```
## Warning: package 'ggplot2' was built under R version 3.6.2
```

```
## Warning: package 'tibble' was built under R version 3.6.2
```

```
## Warning: package 'purrr' was built under R version 3.6.2
```

```
## Warning: package 'dplyr' was built under R version 3.6.2
```

```
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
```
]

---
count: false

.panel1-cars_scramble-auto[

```r
library(tidyverse)

*cars
```
]
 
.panel2-cars_scramble-auto[

```
##    speed dist
## 1      4    2
## 2      4   10
## 3      7    4
## 4      7   22
## 5      8   16
## 6      9   10
## 7     10   18
## 8     10   26
## 9     10   34
## 10    11   17
## 11    11   28
## 12    12   14
## 13    12   20
## 14    12   24
## 15    12   28
## 16    13   26
## 17    13   34
## 18    13   34
## 19    13   46
## 20    14   26
## 21    14   36
## 22    14   60
## 23    14   80
## 24    15   20
## 25    15   26
## 26    15   54
## 27    16   32
## 28    16   40
## 29    17   32
## 30    17   40
## 31    17   50
## 32    18   42
## 33    18   56
## 34    18   76
## 35    18   84
## 36    19   36
## 37    19   46
## 38    19   68
## 39    20   32
## 40    20   48
## 41    20   52
## 42    20   56
## 43    20   64
## 44    22   66
## 45    23   54
## 46    24   70
## 47    24   92
## 48    24   93
## 49    24  120
## 50    25   85
```
]

---
count: false

.panel1-cars_scramble-auto[

```r
library(tidyverse)

cars %>%
* ggplot()
```
]
 
.panel2-cars_scramble-auto[
![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble_auto_03_output-1.png)
]

---
count: false

.panel1-cars_scramble-auto[

```r
library(tidyverse)

cars %>%
  ggplot() +
* aes(x = speed)
```
]
 
.panel2-cars_scramble-auto[
![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble_auto_04_output-1.png)
]

---
count: false

.panel1-cars_scramble-auto[

```r
library(tidyverse)

cars %>%
  ggplot() +
  aes(x = speed) +
* geom_rug(alpha = .25)
```
]
 
.panel2-cars_scramble-auto[
![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble_auto_05_output-1.png)
]

---
count: false

.panel1-cars_scramble-auto[

```r
library(tidyverse)

cars %>%
  ggplot() +
  aes(x = speed) +
  geom_rug(alpha = .25) +
* aes(y = dist)
```
]
 
.panel2-cars_scramble-auto[
![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble_auto_06_output-1.png)
]

---
count: false

.panel1-cars_scramble-auto[

```r
library(tidyverse)

cars %>%
  ggplot() +
  aes(x = speed) +
  geom_rug(alpha = .25) +
  aes(y = dist) +
* ggsample::facet_scramble(n_facets = 1)
```
]
 
.panel2-cars_scramble-auto[
![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble_auto_07_output-1.png)
]

---
count: false

.panel1-cars_scramble-auto[

```r
library(tidyverse)

cars %>%
  ggplot() +
  aes(x = speed) +
  geom_rug(alpha = .25) +
  aes(y = dist) +
  ggsample::facet_scramble(n_facets = 1) +
* geom_point()
```
]
 
.panel2-cars_scramble-auto[
![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble_auto_08_output-1.png)
]

---
count: false

.panel1-cars_scramble-auto[

```r
library(tidyverse)

cars %>%
  ggplot() +
  aes(x = speed) +
  geom_rug(alpha = .25) +
  aes(y = dist) +
  ggsample::facet_scramble(n_facets = 1) +
  geom_point() +
* ggxmean:::geom_corrlabel()
```
]
 
.panel2-cars_scramble-auto[
![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble_auto_09_output-1.png)
]

---

count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

cars %>%
  ggplot() +
  aes(x = speed) +
  geom_rug(alpha = .25) +
  aes(y = dist) +
  ggsample::facet_scramble(n_facets = 1) +
  geom_point() +
  ggxmean:::geom_corrlabel()
```
]
 
.panel2-cars_scramble-50[
![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble_50_01_output-1.png)
]

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---
count: false

.panel1-cars_scramble-50[

```r
library(tidyverse)

---

![](lesson_04_statistic_simulation_strength_files/figure-html/cars_scramble2-1.png)

@media print {
  .has-continuation {
    display: block;
  }
}

code.r.hljs.remark-code{
  position: relative;
  overflow-x: hidden;
}

code.r.hljs.remark-code:hover{
  overflow-x:visible;
  width: 500px;
  border-style: solid;
}
</style>