James Curley jalapic

## homeaway.R
## Data from - https://github.com/jalapic/engsoccerdata

library(tidyverse)
library(engsoccerdata)
df <- rbind(england, england_current()) %>%
  filter(tier==1) %>%
  homeaway()
df$Date <-  as.Date(as.character(df$Date))
head(df)

## bottom_3_at_xmas_survive.R
### Have bottom 3 at Christmas all survived?

library(engsoccerdata)
library(tidyverse)

df <- rbind(england, england_current()) %>% filter(tier==1)

df.seasons <- split(df, df$Season)
df.tables <- lapply(df.seasons, function(x) maketable_eng(x, tier=1, Season = x[1,2]))
df.tables <- Map(cbind, df.tables, Season=unique(df$Season))

## defendingchamps.R
library(engsoccerdata)
library(tidyverse)

## get data of all top-tier seasons
df <- rbind(england, england_current()) %>% filter(tier==1)

## Get champions from each season.
df.seasons <- split(df, df$Season)
df.tables <- lapply(df.seasons, function(x) maketable_eng(x, tier=1, Season=x[1,2]))

## teamnames.csv

          
            Aberdare Athletic
            Aat

            
              Aberdare Athletic
              Aberdare

            
              Accrington
              NA

            
              Accrington F.C.
              accr

            
              Accrington F.C.
              Accrington

            
              Accrington Stanley
              Acc

            
              Accrington Stanley
              Accrington S.

            
              AFC Bournemouth
              B&B

            
              AFC Bournemouth
              Bou

            
              AFC Bournemouth
              Bournemouth

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit
	## Data from - https://github.com/jalapic/engsoccerdata

	library(tidyverse)
	library(engsoccerdata)
	df <- rbind(england, england_current()) %>%
	filter(tier==1) %>%
	homeaway()
	df$Date <- as.Date(as.character(df$Date))
	head(df)
	### Have bottom 3 at Christmas all survived?

	library(engsoccerdata)
	library(tidyverse)

	df <- rbind(england, england_current()) %>% filter(tier==1)

	df.seasons <- split(df, df$Season)
	df.tables <- lapply(df.seasons, function(x) maketable_eng(x, tier=1, Season = x[1,2]))
	df.tables <- Map(cbind, df.tables, Season=unique(df$Season))
	library(engsoccerdata)
	library(tidyverse)

	## get data of all top-tier seasons
	df <- rbind(england, england_current()) %>% filter(tier==1)

	## Get champions from each season.
	df.seasons <- split(df, df$Season)
	df.tables <- lapply(df.seasons, function(x) maketable_eng(x, tier=1, Season=x[1,2]))
	Aberdare Athletic	Aat
	Aberdare Athletic	Aberdare
	Accrington	NA
	Accrington F.C.	accr
	Accrington F.C.	Accrington
	Accrington Stanley	Acc
	Accrington Stanley	Accrington S.
	AFC Bournemouth	B&B
	AFC Bournemouth	Bou
	AFC Bournemouth	Bournemouth