bayesball

setup_work <- function(d2015){
  # d2015 is a Retrosheet play by play dataset
  # removes all non-pitches from PITCH_SEQ_TX
  d2015$pseq <- gsub("[.>123N+*]", "", d2015$PITCH_SEQ_TX)

  # create a b and s sequence
  d2015$pseq <- gsub("[BIPV]", "b", d2015$pseq)
  d2015$pseq <- gsub("[CFKLMOQRST]", "s", d2015$pseq)

  one.string3 <- function(ex, count){

bayesball

# here are the packages I'm using
# CalledStrike depends on other packages

library(CalledStrike)
library(readr)
library(dplyr)
library(ggplot2)

# read in Statcast data for the 2019 season

bayesball

---
title: "Some Density Estimates"
output:
  html_document:
    df_print: paged
---

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

bayesball

---
title: "tabyls"
author: "Jim Albert"
date: "10/27/2020"
output: html_document
---

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

bayesball

---
title: "Home Run Prediction"
author: "Jim Albert"
date: "10/14/2020"
output: html_document
---

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

bayesball

---
title: "Statcast Streaky Analysis"
author: "Jim Albert"
date: "10/5/2020"
output: html_document
---

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

bayesball

library(shiny)
library(ggplot2)
library(ProbBayes)
library(dplyr)
library(tidyr)
library(gridExtra)
library(runjags)
library(coda)

# Define UI ----

bayesball

# Main function to get Retrosheet game scores

get_scores <- function(season){
  require(dplyr)
  require(readr)
  load_gamelog <- function(season) {
    glheaders <- read_csv("https://raw.githubusercontent.com/beanumber/baseball_R/master/data/game_log_header.csv")
    remote <- paste0("http://www.retrosheet.org/gamelogs/gl", 
                     season, ".zip")
    local <- paste0("gl", season, ".zip")

bayesball

library(shiny)
library(ggplot2)
library(ProbBayes)
library(metR)
library(dplyr)
library(tidyr)
library(gridExtra)

# Define UI ----
ui <- fluidPage(

bayesball

library(shiny)
library(ggplot2)
library(ProbBayes)
require(metR)

# Define UI ----
ui <- fluidPage(
#  titlePanel("Visualizing Posterior of Two Proportions"),
  h1(id="big-heading", "Visualizing Posterior of Two Proportions"),
  tags$style(HTML("#big-heading{color: red;}")),