friscojosh

SELECT *
FROM __pff_grades
WHERE pid IN (
	SELECT __pff_grades.pid
	FROM __pff_grades
	INNER JOIN player
	ON __pff_grades.pid = player.player
	WHERE __pff_grades.season BETWEEN 2011 AND 2015 && pos1 ='RB' && __pff_grades.age = 22
)
&& __pff_grades.season BETWEEN 2011 AND 2015 && __pff_grades.age = 21

friscojosh

SELECT a.player, a.fname, a.lname, a.year, a.top12

   , b.year, b.top12

   FROM
   (SELECT __top12_weeks_WR.*
   FROM __top12_weeks_WR)a

   INNER JOIN

friscojosh

friscojosh

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

friscojosh

library(ggplot2)
library(tidyverse)
library(ebbr)

### SQL to generate the data from nfldb. https://github.com/BurntSushi/nfldb

# SELECT a.player_id , b.full_name ,a.passing_att, a.passing_tds
# FROM play_player a
# INNER JOIN player b ON a.player_id = b.player_id
# INNER JOIN game c ON a.gsis_id = c.gsis_id

friscojosh

library(tidyverse)

passes <- read_csv('data/third_and_long_pass_plays.csv')

grouped_passes <- passes %>% 
  group_by(air_yards) %>%
  summarize(catch_rate = mean(passing_cmp)) %>% 
  filter(air_yards !=0) %>% 
  filter(air_yards >= -4)

friscojosh

############################################################################
#### Grab airyards data from airyards.com and test the year-to-year
#### stability of WOPR (Weighted Opportunity Rating)
############################################################################

library(tidyverse)
library(jsonlite)

## define a function that uses jsonlite to call the airyards.com
## API and returns the processed JSON as a dataframe.

friscojosh

############################################################################
#### Grab airyards data from airyards.com and test the year-to-year
#### stability of depth of target for all receivers
############################################################################

library(tidyverse)
library(jsonlite)

## define a function that uses jsonlite to call the airyards.com
## API and returns the processed JSON as a dataframe.

friscojosh

###################################################
#### Analysis of holding calls by play type
#### Data from nfldb by burntsushi
#### https://github.com/BurntSushi/nfldb
#### Josh Hermsmeyer 9/20/18
###################################################

library(tidyverse)

### Load the play descriptions and play types

friscojosh

library(tidyverse)

data <- read_csv("data/xcomp.csv")

data_joined <- data %>%
   mutate(season2 = Season + 1) %>%
   inner_join(data, by = c("NAME", "season2" = "Season"))

model_expected <- lm(data = data_joined, `xCOMP%.y` ~ `xCOMP%.x`)
summary(model_expected)