### 1. Create table ###

col_head = c("Team","GP","W","D","L","GF","GA","GD","Pts")               # Column headings

teams = c("BOU","ARS","AVA","BRE","BRH","BUR","CHE","CRY","EVE","FUL",
          "LIV","LUT","MCI","MUN","NEW","NTG","SHU","TOT","WHU","WLV")   # List of teams

Tbl = matrix(0,nrow=length(teams),ncol=9)    # Create empty table
colnames(Tbl) <- col_head         # Insert column headings
Tbl[,1] = teams                   # Put teams in table
table = data.frame(Tbl)           # Convert to data frame

# Change number columns to integer form #
table$GP <- as.integer(table$GP)
table$W <- as.integer(table$W)
table$D <- as.integer(table$D)
table$L <- as.integer(table$L)
table$GF <- as.integer(table$GF)
table$GA <- as.integer(table$GA)
table$GD <- as.integer(table$GD)
table$Pts <- as.integer(table$Pts)

### 2. Fill table ###

## Gameweek 1 ##

# Burnley 0 - Man City 3 #

BUR = matrix(c(0,3),nrow=2)
MCI = matrix(c(3,0),nrow=2)

# Arsenal 2 - Nottm Forest 1 #

ARS = matrix(c(2,1),nrow=2)
NTG = matrix(c(1,2),nrow=2)

# Sheffield United 0 - Crystal Palace 1 #

SHU = matrix(c(0,1),nrow=2)
CRY = matrix(c(1,0),nrow=2)

# Bournemouth 1 - West Ham 1 #

BOU = matrix(c(1,1),nrow=2)
WHU = matrix(c(1,1),nrow=2)

# Brighton 4 - Luton Town 1 #

BRH = matrix(c(4,1),nrow=2)
LUT = matrix(c(1,4),nrow=2)

# Everton 0 - Fulham 1 #

EVE = matrix(c(0,1),nrow=2)
FUL = matrix(c(1,0),nrow=2)

# Newcastle 5 - Aston Villa 1 #

NEW = matrix(c(5,1),nrow=2)
AVA = matrix(c(1,5),nrow=2)

# Brentford 2 - Tottenham 2 #

BRE = matrix(c(2,2),nrow=2)
TOT = matrix(c(2,2),nrow=2)

# Chelsea 1 - Liverpool 1 #

CHE = matrix(c(1,1),nrow=2)
LIV = matrix(c(1,1),nrow=2)

# Man United 1 - Wolves 0 #

MUN = matrix(c(1,0),nrow=2)
WLV = matrix(c(0,1),nrow=2)

## Gameweek 2 ##

# Nottm Forest 2 - Sheffield United 1 #

NTG = cbind(NTG,c(2,1))
SHU = cbind(SHU,c(1,2))

# Liverpool 3 - Bournemouth 1 #

LIV = cbind(LIV,c(3,1))
BOU = cbind(BOU,c(1,3))

# Wolves 1 - Brighton 4 #

WLV = cbind(WLV,c(1,4))
BRH = cbind(BRH,c(4,1))

# Fulham 0 - Brentford 3 #

FUL = cbind(FUL,c(0,3))
BRE = cbind(BRE,c(3,0))

# Tottenham 2 - Man United 0 #

TOT = cbind(TOT,c(2,0))
MUN = cbind(MUN,c(0,2))

# Man City 1 - Newcastle 0 #

MCI = cbind(MCI,c(1,0))
NEW = cbind(NEW,c(0,1))

# Aston Villa 4 - Everton 0 #

AVA = cbind(AVA,c(4,0))
EVE = cbind(EVE,c(0,4))

# West Ham 3 - Chelsea 1 #

WHU = cbind(WHU,c(3,1))
CHE = cbind(CHE,c(1,3))

# Crystal Palace 0 - Arsenal 1 #

CRY = cbind(CRY,c(0,1))
ARS = cbind(ARS,c(1,0))

## Gameweek 3 ##

# Chelsea 3 - Luton Town 0 #

CHE = cbind(CHE,c(3,0))
LUT = cbind(LUT,c(0,3))

# Bournemouth 0 - Tottenham 2 #

BOU = cbind(BOU,c(0,2))
TOT = cbind(TOT,c(2,0))

# Brentford 1 - Crystal Palace 1 #

BRE = cbind(BRE,c(1,1))
CRY = cbind(CRY,c(1,1))

# Arsenal 2 - Fulham 2 #

ARS = cbind(ARS,c(2,2))
FUL = cbind(FUL,c(2,2))

# Man United 3 - Nottm Forest 2 #

MUN = cbind(MUN,c(3,2))
NTG = cbind(NTG,c(2,3))

# Everton 0 - Wolves 1 #

EVE = cbind(EVE,c(0,1))
WLV = cbind(WLV,c(1,0))

# Brighton 1 - West Ham 3 #

BRH = cbind(BRH,c(1,3))
WHU = cbind(WHU,c(3,1))

# Sheffield United 1 - Man City 2 #

SHU = cbind(SHU,c(1,2))
MCI = cbind(MCI,c(2,1))

# Burnley 1 - Aston Villa 3 #

BUR = cbind(BUR,c(1,3))
AVA = cbind(AVA,c(3,1))

# Newcastle 1 - Liverpool 2 #

NEW = cbind(NEW,c(1,2))
LIV = cbind(LIV,c(2,1))

## Gameweek 4 ##

# Luton Town 1 - West Ham 2 #

LUT = cbind(LUT,c(1,2))
WHU = cbind(WHU,c(2,1))

# Sheffield United 2 - Everton 2 #

SHU = cbind(SHU,c(2,2))
EVE = cbind(EVE,c(2,2))

# Man City 5 - Fulham 1 #

MCI = cbind(MCI,c(5,1))
FUL = cbind(FUL,c(1,5))

# Chelsea 0 - Nottm Forest 1 #

CHE = cbind(CHE,c(0,1))
NTG = cbind(NTG,c(1,0))

# Burnley 2 - Tottenham 5 #

BUR = cbind(BUR,c(2,5))
TOT = cbind(TOT,c(5,2))

# Brentford 2 - Bournemouth 2 #

BRE = cbind(BRE,c(2,2))
BOU = cbind(BOU,c(2,2))

# Brighton 3 - Newcastle 1 #

BRH = cbind(BRH,c(3,1))
NEW = cbind(NEW,c(1,3))

# Crystal Palace 3 - Wolves 2 #

CRY = cbind(CRY,c(3,2))
WLV = cbind(WLV,c(2,3))

# Liverpool 3 - Aston Villa 0 #

LIV = cbind(LIV,c(3,0))
AVA = cbind(AVA,c(0,3))

# Arsenal 3 - Man United 1 #

ARS = cbind(ARS,c(3,1))
MUN = cbind(MUN,c(1,3))

## Gameweek 5 ##

# Wolves 1 - Liverpool 3 #

WLV = cbind(WLV,c(1,3))
LIV = cbind(LIV,c(3,1))

# Fulham 1 - Luton Town 0 #

FUL = cbind(FUL,c(1,0))
LUT = cbind(LUT,c(0,1))

# Tottenham 2 - Sheffield United 1 #

TOT = cbind(TOT,c(2,1))
SHU = cbind(SHU,c(1,2))

# West Ham 1 - Man City 3 #

WHU = cbind(WHU,c(1,3))
MCI = cbind(MCI,c(3,1))

# Man United 1 - Brighton 3 #

MUN = cbind(MUN,c(1,3))
BRH = cbind(BRH,c(3,1))

# Aston Villa 3 - Crystal Palace 1 #

AVA = cbind(AVA,c(3,1))
CRY = cbind(CRY,c(1,3))

# Newcastle 1 - Brentford 0 #

NEW = cbind(NEW,c(1,0))
BRE = cbind(BRE,c(0,1))

# Bournemouth 0 - Chelsea 0 #

BOU = cbind(BOU,c(0,0))
CHE = cbind(CHE,c(0,0))

# Everton 0 - Arsenal 1 #

EVE = cbind(EVE,c(0,1))
ARS = cbind(ARS,c(1,0))

# Nottm Forest 1 - Burnley 1 #

NTG = cbind(NTG,c(1,1))
BUR = cbind(BUR,c(1,1))

## Gameweek 6 ##

# Man City 2 - Nottm Forest 0 #

MCI = cbind(MCI,c(2,0))
NTG = cbind(NTG,c(0,2))

# Crystal Palace 0 - Fulham 0 #

CRY = cbind(CRY,c(0,0))
FUL = cbind(FUL,c(0,0))

# Luton Town 1 - Wolves 1 #

LUT = cbind(LUT,c(1,1))
WLV = cbind(WLV,c(1,1))

# Brentford 1 - Everton 3 #

BRE = cbind(BRE,c(1,3))
EVE = cbind(EVE,c(3,1))

# Burnley 0 - Man United 1 #

BUR = cbind(BUR,c(0,1))
MUN = cbind(MUN,c(1,0))

# Chelsea 0 - Aston Villa 1 #

CHE = cbind(CHE,c(0,1))
AVA = cbind(AVA,c(1,0))

# Arsenal 2 - Tottenham 2 #

ARS = cbind(ARS,c(2,2))
TOT = cbind(TOT,c(2,2))

# Liverpool 3 - West Ham 1 #

LIV = cbind(LIV,c(3,1))
WHU = cbind(WHU,c(1,3))

# Brighton 3 - Bournemouth 1 #

BRH = cbind(BRH,c(3,1))
BOU = cbind(BOU,c(1,3))

# Sheffield United 0 - Newcastle 8 #

SHU = cbind(SHU,c(0,8))
NEW = cbind(NEW,c(8,0))

## Gameweek 7 ##

# Aston Villa 6 - Brighton 1 #

AVA = cbind(AVA,c(6,1))
BRH = cbind(BRH,c(1,6))

# Man United 0 - Crystal Palace 1 #

MUN = cbind(MUN,c(0,1))
CRY = cbind(CRY,c(1,0))

# Newcastle 2 - Burnley 0 #

NEW = cbind(NEW,c(2,0))
BUR = cbind(BUR,c(0,2))

# Wolves 2 - Man City 1 #

WLV = cbind(WLV,c(2,1))
MCI = cbind(MCI,c(1,2))

# Bournemouth 0 - Arsenal 4 #

BOU = cbind(BOU,c(0,4))
ARS = cbind(ARS,c(4,0))

# West Ham 2 - Sheffield United 0 #

WHU = cbind(WHU,c(2,0))
SHU = cbind(SHU,c(0,2))

# Everton 1 - Luton Town 2 #

EVE = cbind(EVE,c(1,2))
LUT = cbind(LUT,c(2,1))

# Tottenham 2 - Liverpool 1 #

TOT = cbind(TOT,c(2,1))
LIV = cbind(LIV,c(1,2))

# Nottm Forest 1 - Brentford 1 #

NTG = cbind(NTG,c(1,1))
BRE = cbind(BRE,c(1,1))

# Fulham 0 - Chelsea 2 #

FUL = cbind(FUL,c(0,2))
CHE = cbind(CHE,c(2,0))

# Luton Town 1 - Burnley 2 #

LUT = cbind(LUT,c(1,2))
BUR = cbind(BUR,c(2,1))

## Gameweek 8 ##

# Luton Town 0 - Tottenham 1 #

LUT = cbind(LUT,c(0,1))
TOT = cbind(TOT,c(1,0))

# Fulham 3 - Sheffield United 1 #

FUL = cbind(FUL,c(3,1))
SHU = cbind(SHU,c(1,3))

# Burnley 1 - Chelsea 4 #

BUR = cbind(BUR,c(1,4))
CHE = cbind(CHE,c(4,1))

# Man United 2 - Brentford 1 #

MUN = cbind(MUN,c(2,1))
BRE = cbind(BRE,c(1,2))

# Everton 3 - Bournemouth 0 #

EVE = cbind(EVE,c(3,0))
BOU = cbind(BOU,c(0,3))

# Crystal Palace 0 - Nottm Forest 0 #

CRY = cbind(CRY,c(0,0))
NTG = cbind(NTG,c(0,0))

# Brighton 2 - Liverpool 2 #

BRH = cbind(BRH,c(2,2))
LIV = cbind(LIV,c(2,2))

# West Ham 2 - Newcastle 2 #

WHU = cbind(WHU,c(2,2))
NEW = cbind(NEW,c(2,2))

# Wolves 1 - Aston Villa 1 #

WLV = cbind(WLV,c(1,1))
AVA = cbind(AVA,c(1,1))

# Arsenal 1 - Man City 0 #

ARS = cbind(ARS,c(1,0))
MCI = cbind(MCI,c(0,1))

## Gameweek 9 ##

# Liverpool 2 - Everton 0 #

LIV = cbind(LIV,c(2,0))
EVE = cbind(EVE,c(0,2))

# Brentford 3 - Burnley 0 #

BRE = cbind(BRE,c(3,0))
BUR = cbind(BUR,c(0,3))

# Bournemouth 1 - Wolves 2 #

BOU = cbind(BOU,c(1,2))
WLV = cbind(WLV,c(2,1))

# Nottm Forest 2 - Luton Town 2 #

NTG = cbind(NTG,c(2,2))
LUT = cbind(LUT,c(2,2))

# Man City 2 - Brighton 1 #

MCI = cbind(MCI,c(2,1))
BRH = cbind(BRH,c(1,2))

# Newcastle 4 - Crystal Palace 0 #

NEW = cbind(NEW,c(4,0))
CRY = cbind(CRY,c(0,4))

# Chelsea 2 - Arsenal 2 #

CHE = cbind(CHE,c(2,2))
ARS = cbind(ARS,c(2,2))

# Sheffield United 1 - Man United 2 #

SHU = cbind(SHU,c(1,2))
MUN = cbind(MUN,c(2,1))

# Aston Villa 4 - West Ham 1 #

AVA = cbind(AVA,c(4,1))
WHU = cbind(WHU,c(1,4))

# Tottenham 2 - Fulham 0 #

TOT = cbind(TOT,c(2,0))
FUL = cbind(FUL,c(0,2))

## Gameweek 10 ##

# Crystal Palace 1 - Tottenham 2 #

CRY = cbind(CRY,c(1,2))
TOT = cbind(TOT,c(2,1))

# Chelsea 0 - Brentford 2 #

CHE = cbind(CHE,c(0,2))
BRE = cbind(BRE,c(2,0))

# Arsenal 5 - Sheffield United 0 #

ARS = cbind(ARS,c(5,0))
SHU = cbind(SHU,c(0,5))

# Bournemouth 2 - Burnley 1 #

BOU = cbind(BOU,c(2,1))
BUR = cbind(BUR,c(1,2))

# Wolves 2 - Newcastle 2 #

WLV = cbind(WLV,c(2,2))
NEW = cbind(NEW,c(2,2))

# West Ham 0 - Everton 1 #

WHU = cbind(WHU,c(0,1))
EVE = cbind(EVE,c(1,0))

# Brighton 1 - Fulham 1 #

BRH = cbind(BRH,c(1,1))
FUL = cbind(FUL,c(1,1))

# Aston Villa 3 - Luton Town 1 #

AVA = cbind(AVA,c(3,1))
LUT = cbind(LUT,c(1,3))

# Liverpool 3 - Nottm Forest 0 #

LIV = cbind(LIV,c(3,0))
NTG = cbind(NTG,c(0,3))

# Man United 0 - Man City 3 #

MUN = cbind(MUN,c(0,3))
MCI = cbind(MCI,c(3,0))

## Gameweek 11 ##

# Fulham 0 - Man United 1 #

FUL = cbind(FUL,c(0,1))
MUN = cbind(MUN,c(1,0))

# Brentford 3 - West Ham 2 #

BRE = cbind(BRE,c(3,2))
WHU = cbind(WHU,c(2,3))

# Man City 6 - Bournemouth 1 #

MCI = cbind(MCI,c(6,1))
BOU = cbind(BOU,c(1,6))

# Sheffield United 2 - Wolves 1 #

SHU = cbind(SHU,c(2,1))
WLV = cbind(WLV,c(1,2))

# Burnley 0 - Crystal Palace 2 #

BUR = cbind(BUR,c(0,2))
CRY = cbind(CRY,c(2,0))

# Everton 1 - Brighton 1 #

EVE = cbind(EVE,c(1,1))
BRH = cbind(BRH,c(1,1))

# Newcastle 1 - Arsenal 0 #

NEW = cbind(NEW,c(1,0))
ARS = cbind(ARS,c(0,1))

# Nottm Forest 2 - Aston Villa 0 #

NTG = cbind(NTG,c(2,0))
AVA = cbind(AVA,c(0,2))

# Luton Town 1 - Liverpool 1 #

LUT = cbind(LUT,c(1,1))
LIV = cbind(LIV,c(1,1))

# Tottenham 1 - Chelsea 4 #

TOT = cbind(TOT,c(1,4))
CHE = cbind(CHE,c(4,1))

## Gameweek 12 ##

# Wolves 2 - Tottenham 1 #

WLV = cbind(WLV,c(2,1))
TOT = cbind(TOT,c(1,2))

# Man United 1 - Luton Town 0 #

MUN = cbind(MUN,c(1,0))
LUT = cbind(LUT,c(0,1))

# Arsenal 3 - Burnley 1 #

ARS = cbind(ARS,c(3,1))
BUR = cbind(BUR,c(1,3))

# Crystal Palace 2 - Everton 3 #

CRY = cbind(CRY,c(2,3))
EVE = cbind(EVE,c(3,2))

# Bournemouth 2 - Newcastle 0 #

BOU = cbind(BOU,c(2,0))
NEW = cbind(NEW,c(0,2))

# Aston Villa 3 - Fulham 1 #

AVA = cbind(AVA,c(3,1))
FUL = cbind(FUL,c(1,3))

# Brighton 1 - Sheffield United 1 #

BRH = cbind(BRH,c(1,1))
SHU = cbind(SHU,c(1,1))

# West Ham 3 - Nottm Forest 2 #

WHU = cbind(WHU,c(3,2))
NTG = cbind(NTG,c(2,3))

# Liverpool 3 - Brentford 0 #

LIV = cbind(LIV,c(3,0))
BRE = cbind(BRE,c(0,3))

# Chelsea 4 - Man City 4 #

CHE = cbind(CHE,c(4,4))
MCI = cbind(MCI,c(4,4))

## Gameweek 13 ##

# Man City 1 - Liverpool 1 #

MCI = cbind(MCI,c(1,1))
LIV = cbind(LIV,c(1,1))

# Sheffield United 1 - Bournemouth 3 #

SHU = cbind(SHU,c(1,3))
BOU = cbind(BOU,c(3,1))

# Nottm Forest 2 - Brighton 3 #

NTG = cbind(NTG,c(2,3))
BRH = cbind(BRH,c(3,2))

# Burnley 1 - West Ham 2 #

BUR = cbind(BUR,c(1,2))
WHU = cbind(WHU,c(2,1))

# Luton Town 2 - Crystal Palace 1 #

LUT = cbind(LUT,c(2,1))
CRY = cbind(CRY,c(1,2))

# Newcastle 4 - Chelsea 1 #

NEW = cbind(NEW,c(4,1))
CHE = cbind(CHE,c(1,4))

# Brentford 0 - Arsenal 1 #

BRE = cbind(BRE,c(0,1))
ARS = cbind(ARS,c(1,0))

# Tottenham 1 - Aston Villa 2 #

TOT = cbind(TOT,c(1,2))
AVA = cbind(AVA,c(2,1))

# Everton 0 - Man United 3 #

EVE = cbind(EVE,c(0,3))
MUN = cbind(MUN,c(3,0))

# Fulham 3 - Wolves 2 #

FUL = cbind(FUL,c(3,2))
WLV = cbind(WLV,c(2,3))

## Gameweek 14 ##

# Brentford 3 - Luton Town 1 #

BRE = cbind(BRE,c(3,1))
LUT = cbind(LUT,c(1,3))

# Arsenal 2 - Wolves 1 #

ARS = cbind(ARS,c(2,1))
WLV = cbind(WLV,c(1,2))

# Burnley 5 - Sheffield United 0 #

BUR = cbind(BUR,c(5,0))
SHU = cbind(SHU,c(0,5))

# Nottm Forest 0 - Everton 1 #

NTG = cbind(NTG,c(0,1))
EVE = cbind(EVE,c(1,0))

# Newcastle 1 - Man United 0 #

NEW = cbind(NEW,c(1,0))
MUN = cbind(MUN,c(0,1))

# Chelsea 3 - Brighton 2 #

CHE = cbind(CHE,c(3,2))
BRH = cbind(BRH,c(2,3))

# Liverpool 4 - Fulham 3 #

LIV = cbind(LIV,c(4,3))
FUL = cbind(FUL,c(3,4))

# West Ham 1 - Crystal Palace 1 #

WHU = cbind(WHU,c(1,1))
CRY = cbind(CRY,c(1,1))

# Bournemouth 2 - Aston Villa 2 #

BOU = cbind(BOU,c(2,2))
AVA = cbind(AVA,c(2,2))

# Man City 3 - Tottenham 3 #

MCI = cbind(MCI,c(3,3))
TOT = cbind(TOT,c(3,3))

## Gameweek 15 ##

# Wolves 1 - Burnley 0 #

WLV = cbind(WLV,c(1,0))
BUR = cbind(BUR,c(0,1))

# Luton Town 3 - Arsenal 4 #

LUT = cbind(LUT,c(3,4))
ARS = cbind(ARS,c(4,3))

# Sheffield United 0 - Liverpool 2 #

SHU = cbind(SHU,c(0,2))
LIV = cbind(LIV,c(2,0))

# Fulham 5 - Nottm Forest 0 #

FUL = cbind(FUL,c(5,0))
NTG = cbind(NTG,c(0,5))

# Crystal Palace 0 - Bournemouth 2 #

CRY = cbind(CRY,c(0,2))
BOU = cbind(BOU,c(2,0))

# Brighton 2 - Brentford 1 #

BRH = cbind(BRH,c(2,1))
BRE = cbind(BRE,c(1,2))

# Man United 2 - Chelsea 1 #

MUN = cbind(MUN,c(2,1))
CHE = cbind(CHE,c(1,2))

# Aston Villa 1 - Man City 0 #

AVA = cbind(AVA,c(1,0))
MCI = cbind(MCI,c(0,1))

# Everton 3 - Newcastle 0 #

EVE = cbind(EVE,c(3,0))
NEW = cbind(NEW,c(0,3))

# Tottenham 1 - West Ham 2 #

TOT = cbind(TOT,c(1,2))
WHU = cbind(WHU,c(2,1))

## Gameweek 16 ##

# Crystal Palace 1 - Liverpool 2 #

CRY = cbind(CRY,c(1,2))
LIV = cbind(LIV,c(2,1))

# Wolves 1 - Nottm Forest 1 #

WLV = cbind(WLV,c(1,1))
NTG = cbind(NTG,c(1,1))

# Brighton 1 - Burnley 1 #

BRH = cbind(BRH,c(1,1))
BUR = cbind(BUR,c(1,1))

# Sheffield United 1 - Brentford 0 #

SHU = cbind(SHU,c(1,0))
BRE = cbind(BRE,c(0,1))

# Man United 0 - Bournemouth 3 #

MUN = cbind(MUN,c(0,3))
BOU = cbind(BOU,c(3,0))

# Aston Villa 1 - Arsenal 0 #

AVA = cbind(AVA,c(1,0))
ARS = cbind(ARS,c(0,1))

# Luton Town 1 - Man City 2 #

LUT = cbind(LUT,c(1,2))
MCI = cbind(MCI,c(2,1))

# Fulham 5 - West Ham 0 #

FUL = cbind(FUL,c(5,0))
WHU = cbind(WHU,c(0,5))

# Everton 2 - Chelsea 0 #

EVE = cbind(EVE,c(2,0))
CHE = cbind(CHE,c(0,2))

# Tottenham 4 - Newcastle 1 #

TOT = cbind(TOT,c(4,1))
NEW = cbind(NEW,c(1,4))

## Gameweek 17 ##

# Nottm Forest 0 - Tottenham 2 #

NTG = cbind(NTG,c(0,2))
TOT = cbind(TOT,c(2,0))

# Chelsea 2 - Sheffield United 0 #

CHE = cbind(CHE,c(2,0))
SHU = cbind(SHU,c(0,2))

# Man City 2 - Crystal Palace 2 #

MCI = cbind(MCI,c(2,2))
CRY = cbind(CRY,c(2,2))

# Newcastle 3 - Fulham 0 #

NEW = cbind(NEW,c(3,0))
FUL = cbind(FUL,c(0,3))

# Burnley 0 - Everton 2 #

BUR = cbind(BUR,c(0,2))
EVE = cbind(EVE,c(2,0))

# West Ham 3 - Wolves 0 #

WHU = cbind(WHU,c(3,0))
WLV = cbind(WLV,c(0,3))

# Brentford 1 - Aston Villa 2 #

BRE = cbind(BRE,c(1,2))
AVA = cbind(AVA,c(2,1))

# Arsenal 2 - Brighton 0 #

ARS = cbind(ARS,c(2,0))
BRH = cbind(BRH,c(0,2))

# Liverpool 0 - Man United 0 #

LIV = cbind(LIV,c(0,0))
MUN = cbind(MUN,c(0,0))

## Gameweek 18 ##

# Crystal Palace 1 - Brighton 1 #

CRY = cbind(CRY,c(1,1))
BRH = cbind(BRH,c(1,1))

# Aston Villa 1 - Sheffield United 1 #

AVA = cbind(AVA,c(1,1))
SHU = cbind(SHU,c(1,1))

# West Ham 2 - Man United 0 #

WHU = cbind(WHU,c(2,0))
MUN = cbind(MUN,c(0,2))

# Tottenham 2 - Everton 1 #

TOT = cbind(TOT,c(2,1))
EVE = cbind(EVE,c(1,2))

# Nottm Forest 2 - Bournemouth 3 #

NTG = cbind(NTG,c(2,3))
BOU = cbind(BOU,c(3,2))

# Fulham 0 - Burnley 2 #

FUL = cbind(FUL,c(0,2))
BUR = cbind(BUR,c(2,0))

# Luton Town 1 - Newcastle 0 #

LUT = cbind(LUT,c(1,0))
NEW = cbind(NEW,c(0,1))

# Liverpool 1 - Arsenal 1 #

LIV = cbind(LIV,c(1,1))
ARS = cbind(ARS,c(1,1))

# Wolves 2 - Chelsea 1 #

WLV = cbind(WLV,c(2,1))
CHE = cbind(CHE,c(1,2))

## Gameweek 19 ##

# Newcastle 1 - Nottm Forest 3 #

NEW = cbind(NEW,c(1,3))
NTG = cbind(NTG,c(3,1))

# Sheffield United 2 - Luton Town 3 #

SHU = cbind(SHU,c(2,3))
LUT = cbind(LUT,c(3,2))

# Bournemouth 3 - Fulham 0 #

BOU = cbind(BOU,c(3,0))
FUL = cbind(FUL,c(0,3))

# Burnley 0 - Liverpool 2 #

BUR = cbind(BUR,c(0,2))
LIV = cbind(LIV,c(2,0))

# Man United 3 - Aston Villa 2 #

MUN = cbind(MUN,c(3,2))
AVA = cbind(AVA,c(2,3))

# Chelsea 2 - Crystal Palace 1 #

CHE = cbind(CHE,c(2,1))
CRY = cbind(CRY,c(1,2))

# Brentford 1 - Wolves 4 #

BRE = cbind(BRE,c(1,4))
WLV = cbind(WLV,c(4,1))

# Everton 1 - Man City 3 #

EVE = cbind(EVE,c(1,3))
MCI = cbind(MCI,c(3,1))

# Brighton 4 - Tottenham 2 #

BRH = cbind(BRH,c(4,2))
TOT = cbind(TOT,c(2,4))

# Arsenal 0 - West Ham 2 #

ARS = cbind(ARS,c(0,2))
WHU = cbind(WHU,c(2,0))

## Gameweek 20 ##

# Luton Town 2 - Chelsea 3 #

LUT = cbind(LUT,c(2,3))
CHE = cbind(CHE,c(3,2))

# Crystal Palace 3 - Brentford 1 #

CRY = cbind(CRY,c(3,1))
BRE = cbind(BRE,c(1,3))

# Man City 2 - Sheffield United 0 #

MCI = cbind(MCI,c(2,0))
SHU = cbind(SHU,c(0,2))

# Aston Villa 3 - Burnley 2 #

AVA = cbind(AVA,c(3,2))
BUR = cbind(BUR,c(2,3))

# Wolves 3 - Everton 0 #

WLV = cbind(WLV,c(3,0))
EVE = cbind(EVE,c(0,3))

# Nottm Forest 2 - Man United 1 #

NTG = cbind(NTG,c(2,1))
MUN = cbind(MUN,c(1,2))

# Fulham 2 - Arsenal 1 #

FUL = cbind(FUL,c(2,1))
ARS = cbind(ARS,c(1,2))

# Tottenham 3 - Bournemouth 1 #

TOT = cbind(TOT,c(3,1))
BOU = cbind(BOU,c(1,3))

# Liverpool 4 - Newcastle 2 #

LIV = cbind(LIV,c(4,2))
NEW = cbind(NEW,c(2,4))

# West Ham 0 - Brighton 0 #

WHU = cbind(WHU,c(0,0))
BRH = cbind(BRH,c(0,0))

## Gameweek 21 ##

# Burnley 1 - Luton Town 1 #

BUR = cbind(BUR,c(1,1))
LUT = cbind(LUT,c(1,1))

# Chelsea 1 - Fulham 0 #

CHE = cbind(CHE,c(1,0))
FUL = cbind(FUL,c(0,1))

# Newcastle 2 - Man City 3 #

NEW = cbind(NEW,c(2,3))
MCI = cbind(MCI,c(3,2))

# Everton 0 - Aston Villa 0 #

EVE = cbind(EVE,c(0,0))
AVA = cbind(AVA,c(0,0))

# Man United 2 - Tottenham 2 #

MUN = cbind(MUN,c(2,2))
TOT = cbind(TOT,c(2,2))

# Arsenal 5 - Crystal Palace 0 #

ARS = cbind(ARS,c(5,0))
CRY = cbind(CRY,c(0,5))

# Brentford 3 - Nottm Forest 2 #

BRE = cbind(BRE,c(3,2))
NTG = cbind(NTG,c(2,3))

# Sheffield United 2 - West Ham 2 #

SHU = cbind(SHU,c(2,2))
WHU = cbind(WHU,c(2,2))

# Bournemouth 0 - Liverpool 4 #

BOU = cbind(BOU,c(0,4))
LIV = cbind(LIV,c(4,0))

# Brighton 0 - Wolves 0 #

BRH = cbind(BRH,c(0,0))
WLV = cbind(WLV,c(0,0))

## Gameweek 22 ##

# Nottm Forest 1 - Arsenal 2 #

NTG = cbind(NTG,c(1,2))
ARS = cbind(ARS,c(2,1))

# Luton Town 4 - Brighton 0 #

LUT = cbind(LUT,c(4,0))
BRH = cbind(BRH,c(0,4))

# Fulham 0 - Everton 0 #

FUL = cbind(FUL,c(0,0))
EVE = cbind(EVE,c(0,0))

# Crystal Palace 3 - Sheffield United 2 #

CRY = cbind(CRY,c(3,2))
SHU = cbind(SHU,c(2,3))

# Aston Villa 1 - Newcastle 3 #

AVA = cbind(AVA,c(1,3))
NEW = cbind(NEW,c(3,1))

# Man City 3 - Burnley 1 #

MCI = cbind(MCI,c(3,1))
BUR = cbind(BUR,c(1,3))

# Tottenham 3 - Brentford 2 #

TOT = cbind(TOT,c(3,2))
BRE = cbind(BRE,c(2,3))

# Liverpool 4 - Chelsea 1 #

LIV = cbind(LIV,c(4,1))
CHE = cbind(CHE,c(1,4))

# West Ham 1 - Bournemouth 1 #

WHU = cbind(WHU,c(1,1))
BOU = cbind(BOU,c(1,1))

# Wolves 3 - Man United 4 #

WLV = cbind(WLV,c(3,4))
MUN = cbind(MUN,c(4,3))

## Gameweek 23 ##

# Everton 2 - Tottenham 2 #

EVE = cbind(EVE,c(2,2))
TOT = cbind(TOT,c(2,2))

# Brighton 4 - Crystal Palace 1 #

BRH = cbind(BRH,c(4,1))
CRY = cbind(CRY,c(1,4))

# Newcastle 4 - Luton Town 4 #

NEW = cbind(NEW,c(4,4))
LUT = cbind(LUT,c(4,4))

# Burnley 2 - Fulham 2 #

BUR = cbind(BUR,c(2,2))
FUL = cbind(FUL,c(2,2))

# Sheffield United 0 - Aston Villa 5 #

SHU = cbind(SHU,c(0,5))
AVA = cbind(AVA,c(5,0))

# Man United 3 - West Ham 0 #

MUN = cbind(MUN,c(3,0))
WHU = cbind(WHU,c(0,3))

# Chelsea 2 - Wolves 4 #

CHE = cbind(CHE,c(2,4))
WLV = cbind(WLV,c(4,2))

# Bournemouth 1 - Nottm Forest 1 #

BOU = cbind(BOU,c(1,1))
NTG = cbind(NTG,c(1,1))

# Arsenal 3 - Liverpool 1 #

ARS = cbind(ARS,c(3,1))
LIV = cbind(LIV,c(1,3))

# Brentford 1 - Man City 3 #

BRE = cbind(BRE,c(1,3))
MCI = cbind(MCI,c(3,1))

## Gameweek 24 ##

# Man City 2 - Everton 0 #

MCI = cbind(MCI,c(2,0))
EVE = cbind(EVE,c(0,2))

# Wolves 0 - Brentford 2 #

WLV = cbind(WLV,c(0,2))
BRE = cbind(BRE,c(2,0))

# Fulham 3 - Bournemouth 1 #

FUL = cbind(FUL,c(3,1))
BOU = cbind(BOU,c(1,3))

# Tottenham 2 - Brighton 1 #

TOT = cbind(TOT,c(2,1))
BRH = cbind(BRH,c(1,2))

# Luton Town 1 - Sheffield United 3 #

LUT = cbind(LUT,c(1,3))
SHU = cbind(SHU,c(3,1))

# Liverpool 3 - Burnley 1 #

LIV = cbind(LIV,c(3,1))
BUR = cbind(BUR,c(1,3))

# Nottm Forest 2 - Newcastle 3 #

NTG = cbind(NTG,c(2,3))
NEW = cbind(NEW,c(3,2))

# West Ham 0 - Arsenal 6 #

WHU = cbind(WHU,c(0,6))
ARS = cbind(ARS,c(6,0))

# Aston Villa 1 - Man United 2 #

AVA = cbind(AVA,c(1,2))
MUN = cbind(MUN,c(2,1))

# Crystal Palace 1 - Chelsea 3 #

CRY = cbind(CRY,c(1,3))
CHE = cbind(CHE,c(3,1))

## Gameweek 25 ##

# Brentford 1 - Liverpool 4 #

BRE = cbind(BRE,c(1,4))
LIV = cbind(LIV,c(4,1))

# Burnley 0 - Arsenal 5 #

BUR = cbind(BUR,c(0,5))
ARS = cbind(ARS,c(5,0))

# Newcastle 2 - Bournemouth 2 #

NEW = cbind(NEW,c(2,2))
BOU = cbind(BOU,c(2,2))

# Fulham 1 - Aston Villa 2 #

FUL = cbind(FUL,c(1,2))
AVA = cbind(AVA,c(2,1))

# Nottm Forest 2 - West Ham 0 #

NTG = cbind(NTG,c(2,0))
WHU = cbind(WHU,c(0,2))

# Tottenham 1 - Wolves 2 #

TOT = cbind(TOT,c(1,2))
WLV = cbind(WLV,c(2,1))

# Man City 1 - Chelsea 1 #

MCI = cbind(MCI,c(1,1))
CHE = cbind(CHE,c(1,1))

# Sheffield United 0 - Brighton 5 #

SHU = cbind(SHU,c(0,5))
BRH = cbind(BRH,c(5,0))

# Luton Town 1 - Man United 2 #

LUT = cbind(LUT,c(1,2))
MUN = cbind(MUN,c(2,1))

# Everton 1 - Crystal Palace 1 #

EVE = cbind(EVE,c(1,1))
CRY = cbind(CRY,c(1,1))

# Man City 1 - Brentford 0 #

MCI = cbind(MCI,c(1,0))
BRE = cbind(BRE,c(0,1))

## Gameweek 26 ##

# Liverpool 4 - Luton Town 1 #

LIV = cbind(LIV,c(4,1))
LUT = cbind(LUT,c(1,4))

# Crystal Palace 3 - Burnley 0 #

CRY = cbind(CRY,c(3,0))
BUR = cbind(BUR,c(0,3))

# Aston Villa 4 - Nottm Forest 2 #

AVA = cbind(AVA,c(4,2))
NTG = cbind(NTG,c(2,4))

# Man United 1 - Fulham 2 #

MUN = cbind(MUN,c(1,2))
FUL = cbind(FUL,c(2,1))

# Brighton 1 - Everton 1 #

BRH = cbind(BRH,c(1,1))
EVE = cbind(EVE,c(1,1))

# Bournemouth 0 - Man City 1 #

BOU = cbind(BOU,c(0,1))
MCI = cbind(MCI,c(1,0))

# Arsenal 4 - Newcastle 1 #

ARS = cbind(ARS,c(4,1))
NEW = cbind(NEW,c(1,4))

# Wolves 1 - Sheffield United 0 #

WLV = cbind(WLV,c(1,0))
SHU = cbind(SHU,c(0,1))

# West Ham 4 - Brentford 2 #

WHU = cbind(WHU,c(4,2))
BRE = cbind(BRE,c(2,4))

## Gameweek 27 ##

# Newcastle 3 - Wolves 0 #

NEW = cbind(NEW,c(3,0))
WLV = cbind(WLV,c(0,3))

# Tottenham 3 - Crystal Palace 1 #

TOT = cbind(TOT,c(3,1))
CRY = cbind(CRY,c(1,3))

# Nottm Forest 0 - Liverpool 1 #

NTG = cbind(NTG,c(0,1))
LIV = cbind(LIV,c(1,0))

# Brentford 2 - Chelsea 2 #

BRE = cbind(BRE,c(2,2))
CHE = cbind(CHE,c(2,2))

# Everton 1 - West Ham 3 #

EVE = cbind(EVE,c(1,3))
WHU = cbind(WHU,c(3,1))

# Fulham 3 - Brighton 0 #

FUL = cbind(FUL,c(3,0))
BRH = cbind(BRH,c(0,3))

# Luton Town 2 - Aston Villa 3 #

LUT = cbind(LUT,c(2,3))
AVA = cbind(AVA,c(3,2))

# Burnley 0 - Bournemouth 2 #

BUR = cbind(BUR,c(0,2))
BOU = cbind(BOU,c(2,0))

# Man City 3 - Man United 1 #

MCI = cbind(MCI,c(3,1))
MUN = cbind(MUN,c(1,3))

# Sheffield United 0 - Arsenal 6 #

SHU = cbind(SHU,c(0,6))
ARS = cbind(ARS,c(6,0))

## Gameweek 28 ##

# Man United 2 - Everton 0 #

MUN = cbind(MUN,c(2,0))
EVE = cbind(EVE,c(0,2))

# Crystal Palace 1 - Luton Town 1 #

CRY = cbind(CRY,c(1,1))
LUT = cbind(LUT,c(1,1))

# Bournemouth 2 - Sheffield United 2 #

BOU = cbind(BOU,c(2,2))
SHU = cbind(SHU,c(2,2))

# Wolves 2 - Fulham 1 #

WLV = cbind(WLV,c(2,1))
FUL = cbind(FUL,c(1,2))

# Arsenal 2 - Brentford 1 #

ARS = cbind(ARS,c(2,1))
BRE = cbind(BRE,c(1,2))

# Aston Villa 0 - Tottenham 4 #

AVA = cbind(AVA,c(0,4))
TOT = cbind(TOT,c(4,0))

# West Ham 2 - Burnley 2 #

WHU = cbind(WHU,c(2,2))
BUR = cbind(BUR,c(2,2))

# Brighton 1 - Nottm Forest 0 #

BRH = cbind(BRH,c(1,0))
NTG = cbind(NTG,c(0,1))

# Liverpool 1 - Man City 1 #

LIV = cbind(LIV,c(1,1))
MCI = cbind(MCI,c(1,1))

# Chelsea 3 - Newcastle 2 #

CHE = cbind(CHE,c(3,2))
NEW = cbind(NEW,c(2,3))

# Bournemouth 4 - Luton Town 3 #

BOU = cbind(BOU,c(4,3))
LUT = cbind(LUT,c(3,4))

## Gameweek 29 ##

# Burnley 2 - Brentford 1 #

BUR = cbind(BUR,c(2,1))
BRE = cbind(BRE,c(1,2))

# Luton Town 1 - Nottm Forest 1 #

LUT = cbind(LUT,c(1,1))
NTG = cbind(NTG,c(1,1))

# Fulham 3 - Tottenham 0 #

FUL = cbind(FUL,c(3,0))
TOT = cbind(TOT,c(0,3))

# West Ham 1 - Aston Villa 1 #

WHU = cbind(WHU,c(1,1))
AVA = cbind(AVA,c(1,1))

## Gameweek 30 ##

# Newcastle 4 - West Ham 3 #

NEW = cbind(NEW,c(4,3))
WHU = cbind(WHU,c(3,4))

# Chelsea 2 - Burnley 2 #

CHE = cbind(CHE,c(2,2))
BUR = cbind(BUR,c(2,2))

# Sheffield United 3 - Fulham 3 #

SHU = cbind(SHU,c(3,3))
FUL = cbind(FUL,c(3,3))

# Nottm Forest 1 - Crystal Palace 1 #

NTG = cbind(NTG,c(1,1))
CRY = cbind(CRY,c(1,1))

# Bournemouth 2 - Everton 1 #

BOU = cbind(BOU,c(2,1))
EVE = cbind(EVE,c(1,2))

# Tottenham 2 - Luton Town 1 #

TOT = cbind(TOT,c(2,1))
LUT = cbind(LUT,c(1,2))

# Aston Villa 2 - Wolves 0 #

AVA = cbind(AVA,c(2,0))
WLV = cbind(WLV,c(0,2))

# Brentford 1 - Man United 1 #

BRE = cbind(BRE,c(1,1))
MUN = cbind(MUN,c(1,1))

# Liverpool 2 - Brighton 1 #

LIV = cbind(LIV,c(2,1))
BRH = cbind(BRH,c(1,2))

# Man City 0 - Arsenal 0 #

MCI = cbind(MCI,c(0,0))
ARS = cbind(ARS,c(0,0))

## Gameweek 31 ##

# Newcastle 1 - Everton 1 #

NEW = cbind(NEW,c(1,1))
EVE = cbind(EVE,c(1,1))

# Nottm Forest 3 - Fulham 1 #

NTG = cbind(NTG,c(3,1))
FUL = cbind(FUL,c(1,3))

# Burnley 1 - Wolves 1 #

BUR = cbind(BUR,c(1,1))
WLV = cbind(WLV,c(1,1))

# Bournemouth 1 - Crystal Palace 0 #

BOU = cbind(BOU,c(1,0))
CRY = cbind(CRY,c(0,1))

# West Ham 1 - Tottenham 1 #

WHU = cbind(WHU,c(1,1))
TOT = cbind(TOT,c(1,1))

# Brentford 0 - Brighton 0 #

BRE = cbind(BRE,c(0,0))
BRH = cbind(BRH,c(0,0))

# Arsenal 2 - Luton Town 0 #

ARS = cbind(ARS,c(2,0))
LUT = cbind(LUT,c(0,2))

# Man City 4 - Aston Villa 1 #

MCI = cbind(MCI,c(4,1))
AVA = cbind(AVA,c(1,4))

# Liverpool 3 - Sheffield United 1 #

LIV = cbind(LIV,c(3,1))
SHU = cbind(SHU,c(1,3))

# Chelsea 4 - Man United 3 #

CHE = cbind(CHE,c(4,3))
MUN = cbind(MUN,c(3,4))

## Gameweek 32 ##

# Crystal Palace 2 - Man City 4 #

CRY = cbind(CRY,c(2,4))
MCI = cbind(MCI,c(4,2))

# Wolves 1 - West Ham 2 #

WLV = cbind(WLV,c(1,2))
WHU = cbind(WHU,c(2,1))

# Everton 1 - Burnley 0 #

EVE = cbind(EVE,c(1,0))
BUR = cbind(BUR,c(0,1))

# Aston Villa 3 - Brentford 3 #

AVA = cbind(AVA,c(3,3))
BRE = cbind(BRE,c(3,3))

# Fulham 0 - Newcastle 1 #

FUL = cbind(FUL,c(0,1))
NEW = cbind(NEW,c(1,0))

# Luton Town 2 - Bournemouth 1 #

LUT = cbind(LUT,c(2,1))
BOU = cbind(BOU,c(1,2))

# Brighton 0 - Arsenal 3 #

BRH = cbind(BRH,c(0,3))
ARS = cbind(ARS,c(3,0))

# Man United 2 - Liverpool 2 #

MUN = cbind(MUN,c(2,2))
LIV = cbind(LIV,c(2,2))

# Sheffield United 2 - Chelsea 2 #

SHU = cbind(SHU,c(2,2))
CHE = cbind(CHE,c(2,2))

# Tottenham 3 - Nottm Forest 1 #

TOT = cbind(TOT,c(3,1))
NTG = cbind(NTG,c(1,3))

## Gameweek 33 ##

# Newcastle 4 - Tottenham 0 #

NEW = cbind(NEW,c(4,0))
TOT = cbind(TOT,c(0,4))

# Brentford 2 - Sheffield United 0 #

BRE = cbind(BRE,c(2,0))
SHU = cbind(SHU,c(0,2))

# Man City 5 - Luton Town 1 #

MCI = cbind(MCI,c(5,1))
LUT = cbind(LUT,c(1,5))

# Nottm Forest 2 - Wolves 2 #

NTG = cbind(NTG,c(2,2))
WLV = cbind(WLV,c(2,2))

# Burnley 1 - Brighton 1 #

BUR = cbind(BUR,c(1,1))
BRH = cbind(BRH,c(1,1))

# Bournemouth 2 - Man United 2 #

BOU = cbind(BOU,c(2,2))
MUN = cbind(MUN,c(2,2))

# Liverpool 0 - Crystal Palace 1 #

LIV = cbind(LIV,c(0,1))
CRY = cbind(CRY,c(1,0))

# West Ham 0 - Fulham 2 #

WHU = cbind(WHU,c(0,2))
FUL = cbind(FUL,c(2,0))

# Arsenal 0 - Aston Villa 2 #

ARS = cbind(ARS,c(0,2))
AVA = cbind(AVA,c(2,0))

# Chelsea 6 - Everton 0 #

CHE = cbind(CHE,c(6,0))
EVE = cbind(EVE,c(0,6))

## Gameweek 34 ##

# Luton Town 1 - Brentford 5 #

LUT = cbind(LUT,c(1,5))
BRE = cbind(BRE,c(5,1))

# Sheffield United 1 - Burnley 4 #

SHU = cbind(SHU,c(1,4))
BUR = cbind(BUR,c(4,1))

# Wolves 0 - Arsenal 2 #

WLV = cbind(WLV,c(0,2))
ARS = cbind(ARS,c(2,0))

# Everton 2 - Nottm Forest 0 #

EVE = cbind(EVE,c(2,0))
NTG = cbind(NTG,c(0,2))

# Crystal Palace 5 - West Ham 2 #

CRY = cbind(CRY,c(5,2))
WHU = cbind(WHU,c(2,5))

# Aston Villa 3 - Bournemouth 1 #

AVA = cbind(AVA,c(3,1))
BOU = cbind(BOU,c(1,3))

# Fulham 1 - Liverpool 3 #

FUL = cbind(FUL,c(1,3))
LIV = cbind(LIV,c(3,1))

# Arsenal 5 - Chelsea 0 #

ARS = cbind(ARS,c(5,0))
CHE = cbind(CHE,c(0,5))

# Wolves 0 - Bournemouth 1 #

WLV = cbind(WLV,c(0,1))
BOU = cbind(BOU,c(1,0))

# Crystal Palace 2 - Newcastle 0 #

CRY = cbind(CRY,c(2,0))
NEW = cbind(NEW,c(0,2))

# Man United 4 - Sheffield United 2 #

MUN = cbind(MUN,c(4,2))
SHU = cbind(SHU,c(2,4))

# Everton 2 - Liverpool 0 #

EVE = cbind(EVE,c(2,0))
LIV = cbind(LIV,c(0,2))

# Brighton 0 - Man City 4 #

BRH = cbind(BRH,c(0,4))
MCI = cbind(MCI,c(4,0))

## Gameweek 35 ##

# West Ham 2 - Liverpool 2 #

WHU = cbind(WHU,c(2,2))
LIV = cbind(LIV,c(2,2))

# Wolves 2 - Luton Town 1 #

WLV = cbind(WLV,c(2,1))
LUT = cbind(LUT,c(1,2))

# Fulham 1 - Crystal Palace 1 #

FUL = cbind(FUL,c(1,1))
CRY = cbind(CRY,c(1,1))

# Newcastle 5 - Sheffield United 1 #

NEW = cbind(NEW,c(5,1))
SHU = cbind(SHU,c(1,5))

# Man United 1 - Burnley 1 #

MUN = cbind(MUN,c(1,1))
BUR = cbind(BUR,c(1,1))

# Everton 1 - Brentford 0 #

EVE = cbind(EVE,c(1,0))
BRE = cbind(BRE,c(0,1))

# Aston Villa 2 - Chelsea 2 #

AVA = cbind(AVA,c(2,2))
CHE = cbind(CHE,c(2,2))

# Bournemouth 3 - Brighton 0 #

BOU = cbind(BOU,c(3,0))
BRH = cbind(BRH,c(0,3))

# Tottenham 2 - Arsenal 3 #

TOT = cbind(TOT,c(2,3))
ARS = cbind(ARS,c(3,2))

# Nottm Forest 0 - Man City 2 #

NTG = cbind(NTG,c(0,2))
MCI = cbind(MCI,c(2,0))

# Chelsea 2 - Tottenham 0 #

CHE = cbind(CHE,c(2,0))
TOT = cbind(TOT,c(0,2))

## Gameweek 36 ##

# Luton Town 1 - Everton 1 #

LUT = cbind(LUT,c(1,1))
EVE = cbind(EVE,c(1,1))

# Arsenal 3 - Bournemouth 0 #

ARS = cbind(ARS,c(3,0))
BOU = cbind(BOU,c(0,3))

# Brentford 0 - Fulham 0 #

BRE = cbind(BRE,c(0,0))
FUL = cbind(FUL,c(0,0))

# Burnley 1 - Newcastle 4 #

BUR = cbind(BUR,c(1,4))
NEW = cbind(NEW,c(4,1))

# Sheffield United 1 - Nottm Forest 3 #

SHU = cbind(SHU,c(1,3))
NTG = cbind(NTG,c(3,1))

# Man City 5 - Wolves 1 #

MCI = cbind(MCI,c(5,1))
WLV = cbind(WLV,c(1,5))

# Chelsea 5 - West Ham 0 #

CHE = cbind(CHE,c(5,0))
WHU = cbind(WHU,c(0,5))

# Brighton 1 - Aston Villa 0 #

BRH = cbind(BRH,c(1,0))
AVA = cbind(AVA,c(0,1))

# Liverpool 4 - Tottenham 2 #

LIV = cbind(LIV,c(4,2))
TOT = cbind(TOT,c(2,4))

# Crystal Palace 4 - Man United 0 #

CRY = cbind(CRY,c(4,0))
MUN = cbind(MUN,c(0,4))

## Gameweek 37 ##

# Fulham 0 - Man City 4 #

FUL = cbind(FUL,c(0,4))
MCI = cbind(MCI,c(4,0))

# Everton 1 - Sheffield United 0 #

EVE = cbind(EVE,c(1,0))
SHU = cbind(SHU,c(0,1))

# West Ham 3 - Luton Town 1 #

WHU = cbind(WHU,c(3,1))
LUT = cbind(LUT,c(1,3))

# Bournemouth 1 - Brentford 2 #

BOU = cbind(BOU,c(1,2))
BRE = cbind(BRE,c(2,1))

# Wolves 1 - Crystal Palace 3 #

WLV = cbind(WLV,c(1,3))
CRY = cbind(CRY,c(3,1))

# Tottenham 2 - Burnley 1 #

TOT = cbind(TOT,c(2,1))
BUR = cbind(BUR,c(1,2))

# Newcastle 1 - Brighton 1 #

NEW = cbind(NEW,c(1,1))
BRH = cbind(BRH,c(1,1))

# Nottm Forest 2 - Chelsea 3 #

NTG = cbind(NTG,c(2,3))
CHE = cbind(CHE,c(3,2))

# Man United 0 - Arsenal 1 #

MUN = cbind(MUN,c(0,1))
ARS = cbind(ARS,c(1,0))

# Aston Villa 3 - Liverpool 3 #

AVA = cbind(AVA,c(3,3))
LIV = cbind(LIV,c(3,3))

# Tottenham 0 - Man City 2 #

TOT = cbind(TOT,c(0,2))
MCI = cbind(MCI,c(2,0))

# Brighton 1 - Chelsea 2 #

BRH = cbind(BRH,c(1,2))
CHE = cbind(CHE,c(2,1))

# Man United 3 - Newcastle 2 #

MUN = cbind(MUN,c(3,2))
NEW = cbind(NEW,c(2,3))

## Gameweek 38 ##

# Liverpool 2 - Wolves 0 #

LIV = cbind(LIV,c(2,0))
WLV = cbind(WLV,c(0,2))

# Sheffield United 0 - Tottenham 3 #

SHU = cbind(SHU,c(0,3))
TOT = cbind(TOT,c(3,0))

# Luton Town 2 - Fulham 4 #

LUT = cbind(LUT,c(2,4))
FUL = cbind(FUL,c(4,2))

# Brighton 0 - Man United 2 #

BRH = cbind(BRH,c(0,2))
MUN = cbind(MUN,c(2,0))

# Man City 3 - West Ham 1 #

MCI = cbind(MCI,c(3,1))
WHU = cbind(WHU,c(1,3))

# Arsenal 2 - Everton 1 #

ARS = cbind(ARS,c(2,1))
EVE = cbind(EVE,c(1,2))

# Brentford 2 - Newcastle 4 #

BRE = cbind(BRE,c(2,4))
NEW = cbind(NEW,c(4,2))

# Crystal Palace 5 - Aston Villa 0 #

CRY = cbind(CRY,c(5,0))
AVA = cbind(AVA,c(0,5))

# Burnley 1 - Nottm Forest 2 #

BUR = cbind(BUR,c(1,2))
NTG = cbind(NTG,c(2,1))

# Chelsea 2 - Bournemouth 1 #

CHE = cbind(CHE,c(2,1))
BOU = cbind(BOU,c(1,2))

### 3. Complete table ###

for (x in teams)
{
  r = which(table$Team==x)
  X = eval(parse(text=x))
  for (i in 1:ncol(X))
  {
    table$GP[r] = table$GP[r] + 1
    if (X[1,i] - X[2,i] > 0)
    {
      table$W[r] = table$W[r] + 1
      table$Pts[r] = table$Pts[r] + 3
    }
    else if (X[1,i] == X[2,i])
    {
      table$D[r] = table$D[r] + 1
      table$Pts[r] = table$Pts[r] + 1
    }
    else
    {
      table$L[r] = table$L[r] + 1
    }
  }
  table$GF[r] = sum(X[1,])
  table$GA[r] = sum(X[2,])
  table$GD[r] = table$GF[r] - table$GA[r]
}

## Penalties ##

# EVE 8-point penalty (FFP)
table$Pts[which(table$Team=="EVE")] = table$Pts[which(table$Team=="EVE")] - 8

# NTG 4-point penalty (FFP)
table$Pts[which(table$Team=="NTG")] = table$Pts[which(table$Team=="NTG")] - 4

table <- table[order(-table$Pts,-table$GD,-table$GF,table$Team),]
row.names(table) <- 1:nrow(table)

table