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

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

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

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

friscojosh

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

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