bayesball

# Inputs to function best_streaks() are
# - retro_data - Retrosheet play-by-play data for a single season
# (this page describes how to download Retrosheet data for a single season)
# https://bayesball.github.io/VB/Getting_Retrosheet_Files.html
# - minAB - consider all hitters who have at least minAB at-bats that season
# - numtop - the number of top performers to display

# Note:  the only special function I am using is rowapply() from the zoo package

best_streaks <- function(retro_data, 

bayesball

---
title: "2020 Season Simulation"
author: Jim Albert
date:  June 27, 2020
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE,
                      message = FALSE,

bayesball

---
title: "ggplot2 intro 2"
output: html_document
---

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

bayesball

---
title: "Welcome to R, Part 4"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

Load in the package and read Statcast data.  The variable sc is read by fread() as a data table.

bayesball

---
title: "Welcome to R - Part 3"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

<!-- wp:heading {"level":3} -->

bayesball

---
title: "Welcome to R, Part 2"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

### Importing some FanGraphs data into R

bayesball

---
title: "Welcome to R - Part 1"
author: "Jim Albert"
date: "6/2/2020"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

bayesball

# data frame scip reads all Statcast play by play for the 2015 through 2019 seasons

scip <- read_csv("~/Dropbox/2016 WORK/BLOG Baseball R/OTHER/StatcastData/5_seasons_inplay_b.csv")

# function all_work() does all the computation

# inputs are season1 - first season, season2 - second season, minBIP - min balls in play for both seasons

# two outputs:  p is the ggplot2 representation of the graph of the changes in HR production
#               d contains the data frame with the calculations for all players

bayesball

# load some packages

library(tidyverse)
library(CalledStrike)
library(mgcv)
library(metR)

# read in the Statcast data

statcast2019 <- read_csv("~/Dropbox/2016 WORK/BLOG Baseball R/OTHER/StatcastData/statcast2019.csv")

bayesball

---
title: "Prediction Exercise"
author: "Jim Albert"
date: "2/16/2020"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE,
                      warning = FALSE,