### 1. Create table ###

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

teams = c("ASC","BRI","BSA","CTZ","CTD","CMO","COS","CRE","FPS","LCO",
          "MOD","PLR","PAR","PSA","REG","SAM","SPZ","SUD","TNN","VNZ")   # 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 ##

# Bari 0 - Palermo 0 #

BRI = matrix(c(0,0),nrow=2)
PLR = matrix(c(0,0),nrow=2)

# Cosenza 3 - Ascoli 0 #

COS = matrix(c(3,0),nrow=2)
ASC = matrix(c(0,3),nrow=2)

# Ternana 1 - Sampdoria 2 #

TNN = matrix(c(1,2),nrow=2)
SAM = matrix(c(2,1),nrow=2)

# Cremonese 0 - US Catanzaro 0 #

CRE = matrix(c(0,0),nrow=2)
CTZ = matrix(c(0,0),nrow=2)

# Sudtirol 3 - Spezia 3 #

SUD = matrix(c(3,3),nrow=2)
SPZ = matrix(c(3,3),nrow=2)

# Venezia 3 - Como 0 #

VNZ = matrix(c(3,0),nrow=2)
CMO = matrix(c(0,3),nrow=2)

# Parma 2 - FeralpiSalo 0 #

PAR = matrix(c(2,0),nrow=2)
FPS = matrix(c(0,2),nrow=2)

# Cittadella 1 - Reggiana 0 #

CTD = matrix(c(1,0),nrow=2)
REG = matrix(c(0,1),nrow=2)

## Gameweek 2 ##

# Sampdoria 0 - Pisa 2 #

SAM = cbind(SAM,c(0,2))
PSA = matrix(c(2,0),nrow=2)

# Venezia 1 - Cosenza 1 #

VNZ = cbind(VNZ,c(1,1))
COS = cbind(COS,c(1,1))

# Modena 1 - Ascoli 0 #

MOD = matrix(c(1,0),nrow=2)
ASC = cbind(ASC,c(0,1))

# Cremonese 0 - Bari 1 #

CRE = cbind(CRE,c(0,1))
BRI = cbind(BRI,c(1,0))

# Parma 2 - Cittadella 0 #

PAR = cbind(PAR,c(2,0))
CTD = cbind(CTD,c(0,2))

# FeralpiSalo 0 - Sudtirol 2 #

FPS = cbind(FPS,c(0,2))
SUD = cbind(SUD,c(2,0))

# Como 2 - Reggiana 2 #

CMO = cbind(CMO,c(2,2))
REG = cbind(REG,c(2,2))

# US Catanzaro 2 - Ternana 1 #

CTZ = cbind(CTZ,c(2,1))
TNN = cbind(TNN,c(1,2))

## Gameweek 3 ##

# Pisa 1 - Parma 2 #

PSA = cbind(PSA,c(1,2))
PAR = cbind(PAR,c(2,1))

# Reggiana 1 - Palermo 3 #

REG = cbind(REG,c(1,3))
PLR = cbind(PLR,c(3,1))

# Ascoli 3 - FeralpiSalo 0 #

ASC = cbind(ASC,c(3,0))
FPS = cbind(FPS,c(0,3))

# Cosenza 1 - Modena 2 #

COS = cbind(COS,c(1,2))
MOD = cbind(MOD,c(2,1))

# Bari 1 - Cittadella 1 #

BRI = cbind(BRI,c(1,1))
CTD = cbind(CTD,c(1,1))

# Sampdoria 1 - Venezia 2 #

SAM = cbind(SAM,c(1,2))
VNZ = cbind(VNZ,c(2,1))

# Ternana 0 - Cremonese 1 #

TNN = cbind(TNN,c(0,1))
CRE = cbind(CRE,c(1,0))

# US Catanzaro 3 - Spezia 0 #

CTZ = cbind(CTZ,c(3,0))
SPZ = cbind(SPZ,c(0,3))

## Gameweek 4 ##

# Palermo 3 - FeralpiSalo 0 #

PLR = cbind(PLR,c(3,0))
FPS = cbind(FPS,c(0,3))

# Modena 2 - Pisa 0 #

MOD = cbind(MOD,c(2,0))
PSA = cbind(PSA,c(0,2))

# Sudtirol 3 - Ascoli 1 #

SUD = cbind(SUD,c(3,1))
ASC = cbind(ASC,c(1,3))

# Parma 0 - Reggiana 0 #

PAR = cbind(PAR,c(0,0))
REG = cbind(REG,c(0,0))

# Brescia 1 - Cosenza 0 #

BSA = matrix(c(1,0),nrow=2)
COS = cbind(COS,c(0,1))

# Ternana 0 - Bari 0 #

TNN = cbind(TNN,c(0,0))
BRI = cbind(BRI,c(0,0))

# Cremonese 1 - Sampdoria 1 #

CRE = cbind(CRE,c(1,1))
SAM = cbind(SAM,c(1,1))

# Spezia 0 - Como 1 #

SPZ = cbind(SPZ,c(0,1))
CMO = cbind(CMO,c(1,0))

# Lecco 3 - US Catanzaro 4 #

LCO = matrix(c(3,4),nrow=2)
CTZ = cbind(CTZ,c(4,3))

# Cittadella 0 - Venezia 0 #

CTD = cbind(CTD,c(0,0))
VNZ = cbind(VNZ,c(0,0))

## Gameweek 5 ##

# Venezia 1 - Spezia 0 #

VNZ = cbind(VNZ,c(1,0))
SPZ = cbind(SPZ,c(0,1))

# Cosenza 2 - Sudtirol 2 #

COS = cbind(COS,c(2,2))
SUD = cbind(SUD,c(2,2))

# Ascoli 0 - Palermo 1 #

ASC = cbind(ASC,c(0,1))
PLR = cbind(PLR,c(1,0))

# Pisa 1 - Bari 1 #

PSA = cbind(PSA,c(1,1))
BRI = cbind(BRI,c(1,1))

# FeralpiSalo 1 - Modena 1 #

FPS = cbind(FPS,c(1,1))
MOD = cbind(MOD,c(1,1))

# Lecco 0 - Brescia 2 #

LCO = cbind(LCO,c(0,2))
BSA = cbind(BSA,c(2,0))

# Reggiana 2 - Cremonese 2 #

REG = cbind(REG,c(2,2))
CRE = cbind(CRE,c(2,2))

# Como 2 - Ternana 1 #

CMO = cbind(CMO,c(2,1))
TNN = cbind(TNN,c(1,2))

# US Catanzaro 0 - Parma 5 #

CTZ = cbind(CTZ,c(0,5))
PAR = cbind(PAR,c(5,0))

# Sampdoria 1 - Cittadella 2 #

SAM = cbind(SAM,c(1,2))
CTD = cbind(CTD,c(2,1))

## Gameweek 6 ##

# Palermo 0 - Cosenza 1 #

PLR = cbind(PLR,c(0,1))
COS = cbind(COS,c(1,0))

# Cremonese 2 - Ascoli 2 #

CRE = cbind(CRE,c(2,2))
ASC = cbind(ASC,c(2,2))

# FeralpiSalo 0 - Pisa 1 #

FPS = cbind(FPS,c(0,1))
PSA = cbind(PSA,c(1,0))

# Ternana 1 - Sudtirol 1 #

TNN = cbind(TNN,c(1,1))
SUD = cbind(SUD,c(1,1))

# Brescia 0 - Venezia 0 #

BSA = cbind(BSA,c(0,0))
VNZ = cbind(VNZ,c(0,0))

# Modena 0 - Lecco 0 #

MOD = cbind(MOD,c(0,0))
LCO = cbind(LCO,c(0,0))

# Spezia 1 - Reggiana 2 #

SPZ = cbind(SPZ,c(1,2))
REG = cbind(REG,c(2,1))

# Bari 2 - US Catanzaro 2 #

BRI = cbind(BRI,c(2,2))
CTZ = cbind(CTZ,c(2,2))

# Parma 1 - Sampdoria 1 #

PAR = cbind(PAR,c(1,1))
SAM = cbind(SAM,c(1,1))

# Cittadella 0 - Como 3 #

CTD = cbind(CTD,c(0,3))
CMO = cbind(CMO,c(3,0))

## Gameweek 7 ##

# Lecco 1 - FeralpiSalo 2 #

LCO = cbind(LCO,c(1,2))
FPS = cbind(FPS,c(2,1))

# Cosenza 1 - Cremonese 2 #

COS = cbind(COS,c(1,2))
CRE = cbind(CRE,c(2,1))

# Sudtirol 0 - Modena 0 #

SUD = cbind(SUD,c(0,0))
MOD = cbind(MOD,c(0,0))

# Reggiana 0 - Pisa 0 #

REG = cbind(REG,c(0,0))
PSA = cbind(PSA,c(0,0))

# Venezia 1 - Palermo 3 #

VNZ = cbind(VNZ,c(1,3))
PLR = cbind(PLR,c(3,1))

# Ascoli 2 - Ternana 0 #

ASC = cbind(ASC,c(2,0))
TNN = cbind(TNN,c(0,2))

# Spezia 0 - Brescia 0 #

SPZ = cbind(SPZ,c(0,0))
BSA = cbind(BSA,c(0,0))

# US Catanzaro 1 - Cittadella 1 #

CTZ = cbind(CTZ,c(1,1))
CTD = cbind(CTD,c(1,1))

# Parma 2 - Bari 1 #

PAR = cbind(PAR,c(2,1))
BRI = cbind(BRI,c(1,2))

# Como 1 - Sampdoria 0 #

CMO = cbind(CMO,c(1,0))
SAM = cbind(SAM,c(0,1))

## Gameweek 8 ##

# FeralpiSalo 1 - Spezia 2 #

FPS = cbind(FPS,c(1,2))
SPZ = cbind(SPZ,c(2,1))

# Brescia 1 - Ascoli 1 #

BSA = cbind(BSA,c(1,1))
ASC = cbind(ASC,c(1,1))

# Pisa 1 - Cosenza 2 #

PSA = cbind(PSA,c(1,2))
COS = cbind(COS,c(2,1))

# Modena 1 - Venezia 3 #

MOD = cbind(MOD,c(1,3))
VNZ = cbind(VNZ,c(3,1))

# Ternana 3 - Reggiana 0 #

TNN = cbind(TNN,c(3,0))
REG = cbind(REG,c(0,3))

# Palermo 2 - Sudtirol 1 #

PLR = cbind(PLR,c(2,1))
SUD = cbind(SUD,c(1,2))

# Bari 1 - Como 1 #

BRI = cbind(BRI,c(1,1))
CMO = cbind(CMO,c(1,1))

# Sampdoria 1 - US Catanzaro 2 #

SAM = cbind(SAM,c(1,2))
CTZ = cbind(CTZ,c(2,1))

# Cittadella 2 - Lecco 1 #

CTD = cbind(CTD,c(2,1))
LCO = cbind(LCO,c(1,2))

# Cremonese 1 - Parma 2 #

CRE = cbind(CRE,c(1,2))
PAR = cbind(PAR,c(2,1))

## Gameweek 9 ##

# Brescia 1 - FeralpiSalo 1 #

BSA = cbind(BSA,c(1,1))
FPS = cbind(FPS,c(1,1))

# Cosenza 3 - Lecco 0 #

COS = cbind(COS,c(3,0))
LCO = cbind(LCO,c(0,3))

# Reggiana 1 - Bari 1 #

REG = cbind(REG,c(1,1))
BRI = cbind(BRI,c(1,1))

# Modena 0 - Palermo 2 #

MOD = cbind(MOD,c(0,2))
PLR = cbind(PLR,c(2,0))

# Sudtirol 0 - US Catanzaro 1 #

SUD = cbind(SUD,c(0,1))
CTZ = cbind(CTZ,c(1,0))

# Ascoli 1 - Sampdoria 1 #

ASC = cbind(ASC,c(1,1))
SAM = cbind(SAM,c(1,1))

# Cittadella 2 - Ternana 2 #

CTD = cbind(CTD,c(2,2))
TNN = cbind(TNN,c(2,2))

# Venezia 3 - Parma 2 #

VNZ = cbind(VNZ,c(3,2))
PAR = cbind(PAR,c(2,3))

# Como 1 - Cremonese 3 #

CMO = cbind(CMO,c(1,3))
CRE = cbind(CRE,c(3,1))

# Spezia 0 - Pisa 0 #

SPZ = cbind(SPZ,c(0,0))
PSA = cbind(PSA,c(0,0))

## Gameweek 10 ##

# Parma 2 - Como 1 #

PAR = cbind(PAR,c(2,1))
CMO = cbind(CMO,c(1,2))

# Bari 1 - Modena 1 #

BRI = cbind(BRI,c(1,1))
MOD = cbind(MOD,c(1,1))

# Cremonese 0 - Sudtirol 1 #

CRE = cbind(CRE,c(0,1))
SUD = cbind(SUD,c(1,0))

# Pisa 2 - Cittadella 1 #

PSA = cbind(PSA,c(2,1))
CTD = cbind(CTD,c(1,2))

# Lecco 0 - Ascoli 2 #

LCO = cbind(LCO,c(0,2))
ASC = cbind(ASC,c(2,0))

# Ternana 0 - Brescia 1 #

TNN = cbind(TNN,c(0,1))
BSA = cbind(BSA,c(1,0))

# US Catanzaro 3 - FeralpiSalo 0 #

CTZ = cbind(CTZ,c(3,0))
FPS = cbind(FPS,c(0,3))

# Sampdoria 2 - Cosenza 0 #

SAM = cbind(SAM,c(2,0))
COS = cbind(COS,c(0,2))

# Reggiana 1 - Venezia 0 #

REG = cbind(REG,c(1,0))
VNZ = cbind(VNZ,c(0,1))

# Palermo 2 - Spezia 2 #

PLR = cbind(PLR,c(2,2))
SPZ = cbind(SPZ,c(2,2))

# Brescia 0 - Modena 1 #

BSA = cbind(BSA,c(0,1))
MOD = cbind(MOD,c(1,0))

# Pisa 1 - Lecco 2 #

PSA = cbind(PSA,c(1,2))
LCO = cbind(LCO,c(2,1))

## Gameweek 11 ##

# Cittadella 1 - Cremonese 2 #

CTD = cbind(CTD,c(1,2))
CRE = cbind(CRE,c(2,1))

# Sudtirol 3 - Sampdoria 1 #

SUD = cbind(SUD,c(3,1))
SAM = cbind(SAM,c(1,3))

# Spezia 0 - Cosenza 0 #

SPZ = cbind(SPZ,c(0,0))
COS = cbind(COS,c(0,0))

# FeralpiSalo 0 - Reggiana 3 #

FPS = cbind(FPS,c(0,3))
REG = cbind(REG,c(3,0))

# Como 1 - US Catanzaro 0 #

CMO = cbind(CMO,c(1,0))
CTZ = cbind(CTZ,c(0,1))

# Ascoli 1 - Parma 3 #

ASC = cbind(ASC,c(1,3))
PAR = cbind(PAR,c(3,1))

# Brescia 1 - Bari 2 #

BSA = cbind(BSA,c(1,2))
BRI = cbind(BRI,c(2,1))

# Modena 2 - Ternana 1 #

MOD = cbind(MOD,c(2,1))
TNN = cbind(TNN,c(1,2))

# Palermo 1 - Lecco 2 #

PLR = cbind(PLR,c(1,2))
LCO = cbind(LCO,c(2,1))

# Venezia 2 - Pisa 1 #

VNZ = cbind(VNZ,c(2,1))
PSA = cbind(PSA,c(1,2))

## Gameweek 12 ##

# Cosenza 1 - FeralpiSalo 1 #

COS = cbind(COS,c(1,1))
FPS = cbind(FPS,c(1,1))

# Pisa 1 - Como 1 #

PSA = cbind(PSA,c(1,1))
CMO = cbind(CMO,c(1,1))

# Bari 1 - Ascoli 0 #

BRI = cbind(BRI,c(1,0))
ASC = cbind(ASC,c(0,1))

# Ternana 0 - Venezia 1 #

TNN = cbind(TNN,c(0,1))
VNZ = cbind(VNZ,c(1,0))

# US Catanzaro 1 - Modena 2 #

CTZ = cbind(CTZ,c(1,2))
MOD = cbind(MOD,c(2,1))

# Cittadella 3 - Brescia 2 #

CTD = cbind(CTD,c(3,2))
BSA = cbind(BSA,c(2,3))

# Sampdoria 1 - Palermo 0 #

SAM = cbind(SAM,c(1,0))
PLR = cbind(PLR,c(0,1))

# Cremonese 3 - Spezia 0 #

CRE = cbind(CRE,c(3,0))
SPZ = cbind(SPZ,c(0,3))

# Parma 2 - Sudtirol 0 #

PAR = cbind(PAR,c(2,0))
SUD = cbind(SUD,c(0,2))

# Reggiana 1 - Lecco 1 #

REG = cbind(REG,c(1,1))
LCO = cbind(LCO,c(1,1))

# Palermo 1 - Brescia 0 #

PLR = cbind(PLR,c(1,0))
BSA = cbind(BSA,c(0,1))

# Lecco 0 - Spezia 0 #

LCO = cbind(LCO,c(0,0))
SPZ = cbind(SPZ,c(0,0))

## Gameweek 13 ##

# Venezia 2 - US Catanzaro 1 #

VNZ = cbind(VNZ,c(2,1))
CTZ = cbind(CTZ,c(1,2))

# Sudtirol 1 - Pisa 2 #

SUD = cbind(SUD,c(1,2))
PSA = cbind(PSA,c(2,1))

# FeralpiSalo 3 - Bari 3 #

FPS = cbind(FPS,c(3,3))
BRI = cbind(BRI,c(3,3))

# Ascoli 0 - Como 1 #

ASC = cbind(ASC,c(0,1))
CMO = cbind(CMO,c(1,0))

# Cosenza 2 - Reggiana 0 #

COS = cbind(COS,c(2,0))
REG = cbind(REG,c(0,2))

# Modena 0 - Sampdoria 2 #

MOD = cbind(MOD,c(0,2))
SAM = cbind(SAM,c(2,0))

# Spezia 2 - Ternana 2 #

SPZ = cbind(SPZ,c(2,2))
TNN = cbind(TNN,c(2,2))

# Lecco 3 - Parma 2 #

LCO = cbind(LCO,c(3,2))
PAR = cbind(PAR,c(2,3))

# Brescia 0 - Cremonese 3 #

BSA = cbind(BSA,c(0,3))
CRE = cbind(CRE,c(3,0))

# Palermo 0 - Cittadella 1 #

PLR = cbind(PLR,c(0,1))
CTD = cbind(CTD,c(1,0))

## Gameweek 14 ##

# Sampdoria 2 - Spezia 1 #

SAM = cbind(SAM,c(2,1))
SPZ = cbind(SPZ,c(1,2))

# Bari 0 - Venezia 3 #

BRI = cbind(BRI,c(0,3))
VNZ = cbind(VNZ,c(3,0))

# Cremonese 1 - Lecco 0 #

CRE = cbind(CRE,c(1,0))
LCO = cbind(LCO,c(0,1))

# Parma 1 - Modena 1 #

PAR = cbind(PAR,c(1,1))
MOD = cbind(MOD,c(1,1))

# Cittadella 2 - Sudtirol 1 #

CTD = cbind(CTD,c(2,1))
SUD = cbind(SUD,c(1,2))

# Reggiana 1 - Ascoli 1 #

REG = cbind(REG,c(1,1))
ASC = cbind(ASC,c(1,1))

# Como 2 - FeraliSalo 1 #

CMO = cbind(CMO,c(2,1))
FPS = cbind(FPS,c(1,2))

# Pisa 1 - Brescia 1 #

PSA = cbind(PSA,c(1,1))
BSA = cbind(BSA,c(1,1))

# US Catanzaro 2 - Cosenza 0 #

CTZ = cbind(CTZ,c(2,0))
COS = cbind(COS,c(0,2))

# Ternana 1 - Palermo 1 #

TNN = cbind(TNN,c(1,1))
PLR = cbind(PLR,c(1,1))

# Sudtirol 1 - Brescia 1 #

SUD = cbind(SUD,c(1,1))
BSA = cbind(BSA,c(1,1))

# Como 0 - Lecco 0 #

CMO = cbind(CMO,c(0,0))
LCO = cbind(LCO,c(0,0))

## Gameweek 15 ##

# Palermo 1 - US Catanzaro 2 #

PLR = cbind(PLR,c(1,2))
CTZ = cbind(CTZ,c(2,1))

# Cosenza 1 - Ternana 3 #

COS = cbind(COS,c(1,3))
TNN = cbind(TNN,c(3,1))

# Venezia 3 - Ascoli 1 #

VNZ = cbind(VNZ,c(3,1))
ASC = cbind(ASC,c(1,3))

# FeralpiSalo 0 - Cittadella 1 #

FPS = cbind(FPS,c(0,1))
CTD = cbind(CTD,c(1,0))

# Pisa 0 - Cremonese 0 #

PSA = cbind(PSA,c(0,0))
CRE = cbind(CRE,c(0,0))

# Modena 2 - Reggiana 1 #

MOD = cbind(MOD,c(2,1))
REG = cbind(REG,c(1,2))

# Spezia 0 - Parma 1 #

SPZ = cbind(SPZ,c(0,1))
PAR = cbind(PAR,c(1,0))

# Sudtirol 0 - Como 1 #

SUD = cbind(SUD,c(0,1))
CMO = cbind(CMO,c(1,0))

# Brescia 3 - Sampdoria 1 #

BSA = cbind(BSA,c(3,1))
SAM = cbind(SAM,c(1,3))

# Lecco 1 - Bari 0 #

LCO = cbind(LCO,c(1,0))
BRI = cbind(BRI,c(0,1))

## Gameweek 16 ##

# Cremonese 1 - Venezia 0 #

CRE = cbind(CRE,c(1,0))
VNZ = cbind(VNZ,c(0,1))

# Bari 2 - Sudtirol 1 #

BRI = cbind(BRI,c(2,1))
SUD = cbind(SUD,c(1,2))

# Ternana 2 - FeralpiSalo 1 #

TNN = cbind(TNN,c(2,1))
FPS = cbind(FPS,c(1,2))

# Ascoli 1 - Spezia 2 #

ASC = cbind(ASC,c(1,2))
SPZ = cbind(SPZ,c(2,1))

# Sampdoria 2 - Lecco 0 #

SAM = cbind(SAM,c(2,0))
LCO = cbind(LCO,c(0,2))

# Cittadella 2 - Cosenza 0 #

CTD = cbind(CTD,c(2,0))
COS = cbind(COS,c(0,2))

# US Catanzaro 2 - Pisa 0 #

CTZ = cbind(CTZ,c(2,0))
PSA = cbind(PSA,c(0,2))

# Como 2 - Modena 1 #

CMO = cbind(CMO,c(2,1))
MOD = cbind(MOD,c(1,2))

# Parma 3 - Palermo 3 #

PAR = cbind(PAR,c(3,3))
PLR = cbind(PLR,c(3,3))

# Reggiana 1 - Brescia 1 #

REG = cbind(REG,c(1,1))
BSA = cbind(BSA,c(1,1))

## Gameweek 17 ##

# Spezia 1 - Bari 0 #

SPZ = cbind(SPZ,c(1,0))
BRI = cbind(BRI,c(0,1))

# FeralpiSalo 1 - Cremonese 0 #

FPS = cbind(FPS,c(1,0))
CRE = cbind(CRE,c(0,1))

# Brescia 2 - Como 0 #

BSA = cbind(BSA,c(2,0))
CMO = cbind(CMO,c(0,2))

# Venezia 2 - Sudtirol 3 #

VNZ = cbind(VNZ,c(2,3))
SUD = cbind(SUD,c(3,2))

# Reggiana 1 - Sampdoria 2 #

REG = cbind(REG,c(1,2))
SAM = cbind(SAM,c(2,1))

# Modena 1 - Cittadella 1 #

MOD = cbind(MOD,c(1,1))
CTD = cbind(CTD,c(1,1))

# Cosenza 0 - Parma 0 #

COS = cbind(COS,c(0,0))
PAR = cbind(PAR,c(0,0))

# Ascoli 1 - US Catanzaro 0 #

ASC = cbind(ASC,c(1,0))
CTZ = cbind(CTZ,c(0,1))

# Palermo 3 - Pisa 2 #

PLR = cbind(PLR,c(3,2))
PSA = cbind(PSA,c(2,3))

# Lecco 2 - Ternana 3 #

LCO = cbind(LCO,c(2,3))
TNN = cbind(TNN,c(3,2))

## Gameweek 18 ##

# Cittadella 4 - Spezia 1 #

CTD = cbind(CTD,c(4,1))
SPZ = cbind(SPZ,c(1,4))

# Parma 3 - Ternana 1 #

PAR = cbind(PAR,c(3,1))
TNN = cbind(TNN,c(1,3))

# Como 3 - Palermo 3 #

CMO = cbind(CMO,c(3,3))
PLR = cbind(PLR,c(3,3))

# Cremonese 4 - Modena 0 #

CRE = cbind(CRE,c(4,0))
MOD = cbind(MOD,c(0,4))

# Venezia 2 - Lecco 2 #

VNZ = cbind(VNZ,c(2,2))
LCO = cbind(LCO,c(2,2))

# US Catanzaro 2 - Brescia 3 #

CTZ = cbind(CTZ,c(2,3))
BSA = cbind(BSA,c(3,2))

# Pisa 1 - Ascoli 0 #

PSA = cbind(PSA,c(1,0))
ASC = cbind(ASC,c(0,1))

# Bari 0 - Cosenza 0 #

BRI = cbind(BRI,c(0,0))
COS = cbind(COS,c(0,0))

# Sudtirol 2 - Reggiana 3 #

SUD = cbind(SUD,c(2,3))
REG = cbind(REG,c(3,2))

# Sampdoria 2 - FeralpiSalo 3 #

SAM = cbind(SAM,c(2,3))
FPS = cbind(FPS,c(3,2))

## Gameweek 19 ##

# Reggiana 1 - US Catanzaro 0 #

REG = cbind(REG,c(1,0))
CTZ = cbind(CTZ,c(0,1))

# Spezia 1 - Modena 1 #

SPZ = cbind(SPZ,c(1,1))
MOD = cbind(MOD,c(1,1))

# Ascoli 0 - Cittadella 0 #

ASC = cbind(ASC,c(0,0))
CTD = cbind(CTD,c(0,0))

# Ternana 1 - Pisa 1 #

TNN = cbind(TNN,c(1,1))
PSA = cbind(PSA,c(1,1))

# Lecco 2 - Sudtirol 1 #

LCO = cbind(LCO,c(2,1))
SUD = cbind(SUD,c(1,2))

# Cosenza 1 - Como 2 #

COS = cbind(COS,c(1,2))
CMO = cbind(CMO,c(2,1))

# FeralpiSalo 2 - Venezia 2 #

FPS = cbind(FPS,c(2,2))
VNZ = cbind(VNZ,c(2,2))

# Brescia 0 - Parma 2 #

BSA = cbind(BSA,c(0,2))
PAR = cbind(PAR,c(2,0))

# Palermo 3 - Cremonese 2 #

PLR = cbind(PLR,c(3,2))
CRE = cbind(CRE,c(2,3))

# Sampdoria 1 - Bari 1 #

SAM = cbind(SAM,c(1,1))
BRI = cbind(BRI,c(1,1))

## Gameweek 20 ##

# US Catanzaro 5 - Lecco 3 #

CTZ = cbind(CTZ,c(5,3))
LCO = cbind(LCO,c(3,5))

# Cittadella 2 - Palermo 0 #

CTD = cbind(CTD,c(2,0))
PLR = cbind(PLR,c(0,2))

# Bari 3 - Ternana 1 #

BRI = cbind(BRI,c(3,1))
TNN = cbind(TNN,c(1,3))

# Modena 1 - Brescia 2 #

MOD = cbind(MOD,c(1,2))
BSA = cbind(BSA,c(2,1))

# Como 4 - Spezia 0 #

CMO = cbind(CMO,c(4,0))
SPZ = cbind(SPZ,c(0,4))

# Sudtirol 1 - FeralpiSalo 0 #

SUD = cbind(SUD,c(1,0))
FPS = cbind(FPS,c(0,1))

# Pisa 2 - Reggiana 2 #

PSA = cbind(PSA,c(2,2))
REG = cbind(REG,c(2,2))

# Parma 1 - Ascoli 1 #

PAR = cbind(PAR,c(1,1))
ASC = cbind(ASC,c(1,1))

# Venezia 5 - Sampdoria 3 #

VNZ = cbind(VNZ,c(5,3))
SAM = cbind(SAM,c(3,5))

# Cremonese 1 - Cosenza 0 #

CRE = cbind(CRE,c(1,0))
COS = cbind(COS,c(0,1))

## Gameweek 21 ##

# Sampdoria 0 - Parma 3 #

SAM = cbind(SAM,c(0,3))
PAR = cbind(PAR,c(3,0))

# Brescia 1 - Sudtirol 1 #

BSA = cbind(BSA,c(1,1))
SUD = cbind(SUD,c(1,1))

# Reggiana 2 - Como 2 #

REG = cbind(REG,c(2,2))
CMO = cbind(CMO,c(2,2))

# Ternana 3 - Cittadella 1 #

TNN = cbind(TNN,c(3,1))
CTD = cbind(CTD,c(1,3))

# Spezia 0 - Cremonese 1 #

SPZ = cbind(SPZ,c(0,1))
CRE = cbind(CRE,c(1,0))

# FeralpiSalo 3 - US Catanzaro 0 #

FPS = cbind(FPS,c(3,0))
CTZ = cbind(CTZ,c(0,3))

# Cosenza 4 - Venezia 2 #

COS = cbind(COS,c(4,2))
VNZ = cbind(VNZ,c(2,4))

# Palermo 4 - Modena 2 #

PLR = cbind(PLR,c(4,2))
MOD = cbind(MOD,c(2,4))

# Lecco 1 - Pisa 3 #

LCO = cbind(LCO,c(1,3))
PSA = cbind(PSA,c(3,1))

# Ascoli 2 - Bari 2 #

ASC = cbind(ASC,c(2,2))
BRI = cbind(BRI,c(2,2))

## Gameweek 22 ##

# US Catanzaro 1 - Palermo 1 #

CTZ = cbind(CTZ,c(1,1))
PLR = cbind(PLR,c(1,1))

# Cremonese 1 - Brescia 0 #

CRE = cbind(CRE,c(1,0))
BSA = cbind(BSA,c(0,1))

# Como 0 - Ascoli 2 #

CMO = cbind(CMO,c(0,2))
ASC = cbind(ASC,c(2,0))

# Modena 3 - Parma 0 #

MOD = cbind(MOD,c(3,0))
PAR = cbind(PAR,c(0,3))

# Sudtirol 0 - Cosenza 1 #

SUD = cbind(SUD,c(0,1))
COS = cbind(COS,c(1,0))

# Venezia 1 - Ternana 0 #

VNZ = cbind(VNZ,c(1,0))
TNN = cbind(TNN,c(0,1))

# Bari 0 - Reggiana 2 #

BRI = cbind(BRI,c(0,2))
REG = cbind(REG,c(2,0))

# Pisa 2 - Spezia 3 #

PSA = cbind(PSA,c(2,3))
SPZ = cbind(SPZ,c(3,2))

# FeralpiSalo 5 - Lecco 1 #

FPS = cbind(FPS,c(5,1))
LCO = cbind(LCO,c(1,5))

# Cittadella 1 - Sampdoria 2 #

CTD = cbind(CTD,c(1,2))
SAM = cbind(SAM,c(2,1))

## Gameweek 23 ##

# Palermo 3 - Bari 0 #

PLR = cbind(PLR,c(3,0))
BRI = cbind(BRI,c(0,3))

# Parma 2 - Venezia 1 #

PAR = cbind(PAR,c(2,1))
VNZ = cbind(VNZ,c(1,2))

# Spezia 1 - US Catanzaro 1 #

SPZ = cbind(SPZ,c(1,1))
CTZ = cbind(CTZ,c(1,1))

# Cosenza 1 - Pisa 1 #

COS = cbind(COS,c(1,1))
PSA = cbind(PSA,c(1,1))

# Reggiana 1 - Feralpisalo 1 #

REG = cbind(REG,c(1,1))
FPS = cbind(FPS,c(1,1))

# Brescia 2 - Cittadella 0 #

BSA = cbind(BSA,c(2,0))
CTD = cbind(CTD,c(0,2))

# Lecco 0 - Cremonese 1 #

LCO = cbind(LCO,c(0,1))
CRE = cbind(CRE,c(1,0))

# Ternana 0 - Como 1 #

TNN = cbind(TNN,c(0,1))
CMO = cbind(CMO,c(1,0))

# Sampdoria 2 - Modena 2 #

SAM = cbind(SAM,c(2,2))
MOD = cbind(MOD,c(2,2))

# Ascoli 1 - Sudtirol 2 #

ASC = cbind(ASC,c(1,2))
SUD = cbind(SUD,c(2,1))

## Gameweek 24 ##

# Como 1 - Brescia 0 #

CMO = cbind(CMO,c(1,0))
BSA = cbind(BSA,c(0,1))

# FeralpiSalo 1 - Palermo 2 #

FPS = cbind(FPS,c(1,2))
PLR = cbind(PLR,c(2,1))

# Sudtirol 0 - Venezia 3 #

SUD = cbind(SUD,c(0,3))
VNZ = cbind(VNZ,c(3,0))

# Cremonese 1 - Reggiana 1 #

CRE = cbind(CRE,c(1,1))
REG = cbind(REG,c(1,1))

# Modena 1 - Cosenza 1 #

MOD = cbind(MOD,c(1,1))
COS = cbind(COS,c(1,1))

# Cittadella 1 - Parma 2 #

CTD = cbind(CTD,c(1,2))
PAR = cbind(PAR,c(2,1))

# US Catanzaro 3 - Ascoli 2 #

CTZ = cbind(CTZ,c(3,2))
ASC = cbind(ASC,c(2,3))

# Bari 3 - Lecco 1 #

BRI = cbind(BRI,c(3,1))
LCO = cbind(LCO,c(1,3))

# Pisa 2 - Sampdoria 0 #

PSA = cbind(PSA,c(2,0))
SAM = cbind(SAM,c(0,2))

# Ternana 1 - Spezia 1 #

TNN = cbind(TNN,c(1,1))
SPZ = cbind(SPZ,c(1,1))

## Gameweek 25 ##

# Ascoli 0 - Cremonese 0 #

ASC = cbind(ASC,c(0,0))
CRE = cbind(CRE,c(0,0))

# Spezia 4 - Cittadella 2 #

SPZ = cbind(SPZ,c(4,2))
CTD = cbind(CTD,c(2,4))

# Bari 1 - FeralpiSalo 0 #

BRI = cbind(BRI,c(1,0))
FPS = cbind(FPS,c(0,1))

# Reggiana 0 - Ternana 2 #

REG = cbind(REG,c(0,2))
TNN = cbind(TNN,c(2,0))

# Parma 3 - Pisa 2 #

PAR = cbind(PAR,c(3,2))
PSA = cbind(PSA,c(2,3))

# Lecco 1 - Cosenza 3 #

LCO = cbind(LCO,c(1,3))
COS = cbind(COS,c(3,1))

# Sampdoria 1 - Brescia 1 #

SAM = cbind(SAM,c(1,1))
BSA = cbind(BSA,c(1,1))

# US Catanzaro 2 - Sudtirol 2 #

CTZ = cbind(CTZ,c(2,2))
SUD = cbind(SUD,c(2,2))

# Palermo 3 - Como 0 #

PLR = cbind(PLR,c(3,0))
CMO = cbind(CMO,c(0,3))

# Venezia 2 - Modena 2 #

VNZ = cbind(VNZ,c(2,2))
MOD = cbind(MOD,c(2,2))

## Gameweek 26 ##

# Cosenza 1 - Sampdoria 2 #

COS = cbind(COS,c(1,2))
SAM = cbind(SAM,c(2,1))

# FeralpiSalo 0 - Ascoli 1 #

FPS = cbind(FPS,c(0,1))
ASC = cbind(ASC,c(1,0))

# Brescia 0 - Reggiana 0 #

BSA = cbind(BSA,c(0,0))
REG = cbind(REG,c(0,0))

# Cremonese 2 - Palermo 2 #

CRE = cbind(CRE,c(2,2))
PLR = cbind(PLR,c(2,2))

# Cittadella 1 - US Catanzaro 2 #

CTD = cbind(CTD,c(1,2))
CTZ = cbind(CTZ,c(2,1))

# Sudtirol 1 - Bari 0 #

SUD = cbind(SUD,c(1,0))
BRI = cbind(BRI,c(0,1))

# Como 1 - Parma 1 #

CMO = cbind(CMO,c(1,1))
PAR = cbind(PAR,c(1,1))

# Pisa 1 - Venezia 2 #

PSA = cbind(PSA,c(1,2))
VNZ = cbind(VNZ,c(2,1))

# Ternana 0 - Lecco 0 #

TNN = cbind(TNN,c(0,0))
LCO = cbind(LCO,c(0,0))

# Modena 0 - Spezia 0 #

MOD = cbind(MOD,c(0,0))
SPZ = cbind(SPZ,c(0,0))

## Gameweek 27 ##

# Reggiana 1 - Sudtirol 1 #

REG = cbind(REG,c(1,1))
SUD = cbind(SUD,c(1,1))

# Ascoli 1 - Brescia 1 #

ASC = cbind(ASC,c(1,1))
BSA = cbind(BSA,c(1,1))

# US Catanzaro 2 - Bari 0 #

CTZ = cbind(CTZ,c(2,0))
BRI = cbind(BRI,c(0,2))

# Sampdoria 1 - Cremonese 2 #

SAM = cbind(SAM,c(1,2))
CRE = cbind(CRE,c(2,1))

# Lecco 0 - Como 3 #

LCO = cbind(LCO,c(0,3))
CMO = cbind(CMO,c(3,0))

# Palermo 2 - Ternana 3 #

PLR = cbind(PLR,c(2,3))
TNN = cbind(TNN,c(3,2))

# Parma 1 - Cosenza 1 #

PAR = cbind(PAR,c(1,1))
COS = cbind(COS,c(1,1))

# Venezia 2 - Cittadella 0 #

VNZ = cbind(VNZ,c(2,0))
CTD = cbind(CTD,c(0,2))

# Pisa 2 - Modena 2 #

PSA = cbind(PSA,c(2,2))
MOD = cbind(MOD,c(2,2))

# Spezia 0 - FeralpiSalo 2 #

SPZ = cbind(SPZ,c(0,2))
FPS = cbind(FPS,c(2,0))

## Gameweek 28 ##

# Sudtirol 1 - Lecco 0 #

SUD = cbind(SUD,c(1,0))
LCO = cbind(LCO,c(0,1))

# Ternana 1 - Parma 3 #

TNN = cbind(TNN,c(1,3))
PAR = cbind(PAR,c(3,1))

# Brescia 4 - Palermo 2 #

BSA = cbind(BSA,c(4,2))
PLR = cbind(PLR,c(2,4))

# Bari 1 - Spezia 1 #

BRI = cbind(BRI,c(1,1))
SPZ = cbind(SPZ,c(1,1))

# FeralpiSalo 1 - Sampdoria 3 #

FPS = cbind(FPS,c(1,3))
SAM = cbind(SAM,c(3,1))

# Ascoli 0 - Reggiana 0 #

ASC = cbind(ASC,c(0,0))
REG = cbind(REG,c(0,0))

# Como 2 - Venezia 1 #

CMO = cbind(CMO,c(2,1))
VNZ = cbind(VNZ,c(1,2))

# Cittadella 0 - Pisa 1 #

CTD = cbind(CTD,c(0,1))
PSA = cbind(PSA,c(1,0))

# Cosenza 0 - US Catanzaro 2 #

COS = cbind(COS,c(0,2))
CTZ = cbind(CTZ,c(2,0))

# Modena 0 - Cremonese 1 #

MOD = cbind(MOD,c(0,1))
CRE = cbind(CRE,c(1,0))

## Gameweek 29 ##

# Parma 2 - Brescia 1 #

PAR = cbind(PAR,c(2,1))
BSA = cbind(BSA,c(1,2))

# Cosenza 0 - Cittadella 0 #

COS = cbind(COS,c(0,0))
CTD = cbind(CTD,c(0,0))

# Spezia 2 - Sudtirol 1 #

SPZ = cbind(SPZ,c(2,1))
SUD = cbind(SUD,c(1,2))

# Modena 2 - FeralpiSalo 3 #

MOD = cbind(MOD,c(2,3))
FPS = cbind(FPS,c(3,2))

# Pisa 1 - Ternana 0 #

PSA = cbind(PSA,c(1,0))
TNN = cbind(TNN,c(0,1))

# US Catanzaro 0 - Reggiana 1 #

CTZ = cbind(CTZ,c(0,1))
REG = cbind(REG,c(1,0))

# Cremonese 2 - Como 1 #

CRE = cbind(CRE,c(2,1))
CMO = cbind(CMO,c(1,2))

# Lecco 0 - Palermo 1 #

LCO = cbind(LCO,c(0,1))
PLR = cbind(PLR,c(1,0))

# Venezia 3 - Bari 1 #

VNZ = cbind(VNZ,c(3,1))
BRI = cbind(BRI,c(1,3))

# Sampdoria 2 - Ascoli 1 #

SAM = cbind(SAM,c(2,1))
ASC = cbind(ASC,c(1,2))

## Gameweek 30 ##

# Palermo 0 - Venezia 3 #

PLR = cbind(PLR,c(0,3))
VNZ = cbind(VNZ,c(3,0))

# Brescia 1 - US Catanzaro 1 #

BSA = cbind(BSA,c(1,1))
CTZ = cbind(CTZ,c(1,1))

# Ternana 1 - Cosenza 0 #

TNN = cbind(TNN,c(1,0))
COS = cbind(COS,c(0,1))

# FeralpiSalo 1 - Parma 2 #

FPS = cbind(FPS,c(1,2))
PAR = cbind(PAR,c(2,1))

# Sudtirol 3 - Cremonese 0 #

SUD = cbind(SUD,c(3,0))
CRE = cbind(CRE,c(0,3))

# Como 3 - Pisa 1 #

CMO = cbind(CMO,c(3,1))
PSA = cbind(PSA,c(1,3))

# Bari 0 - Sampdoria 1 #

BRI = cbind(BRI,c(0,1))
SAM = cbind(SAM,c(1,0))

# Cittadella 1 - Modena 1 #

CTD = cbind(CTD,c(1,1))
MOD = cbind(MOD,c(1,1))

# Reggiana 0 - Spezia 0 #

REG = cbind(REG,c(0,0))
SPZ = cbind(SPZ,c(0,0))

# Ascoli 4 - Lecco 1 #

ASC = cbind(ASC,c(4,1))
LCO = cbind(LCO,c(1,4))
  
## Gameweek 31 ##

# Modena 1 - Bari 1 #

MOD = cbind(MOD,c(1,1))
BRI = cbind(BRI,c(1,1))

# Parma 0 - US Catanzaro 2 #

PAR = cbind(PAR,c(0,2))
CTZ = cbind(CTZ,c(2,0))

# Spezia 2 - Ascoli 1 #

SPZ = cbind(SPZ,c(2,1))
ASC = cbind(ASC,c(1,2))

# Como 2 - Sudtirol 0 #

CMO = cbind(CMO,c(2,0))
SUD = cbind(SUD,c(0,2))

# Pisa 4 - Palermo 3 #

PSA = cbind(PSA,c(4,3))
PLR = cbind(PLR,c(3,4))

# Lecco 1 - Cittadella 1 #

LCO = cbind(LCO,c(1,1))
CTD = cbind(CTD,c(1,1))

# Cosenza 1 - Brescia 2 #

COS = cbind(COS,c(1,2))
BSA = cbind(BSA,c(2,1))

# Venezia 2 - Reggiana 3 #

VNZ = cbind(VNZ,c(2,3))
REG = cbind(REG,c(3,2))

# Cremonese 0 - FeralpiSalo 1 #

CRE = cbind(CRE,c(0,1))
FPS = cbind(FPS,c(1,0))

# Sampdoria 4 - Ternana 1 #

SAM = cbind(SAM,c(4,1))
TNN = cbind(TNN,c(1,4))

## Gameweek 32 ##

# Bari 1 - Cremonese 2 #

BRI = cbind(BRI,c(1,2))
CRE = cbind(CRE,c(2,1))

# Brescia 3 - Pisa 1 #

BSA = cbind(BSA,c(3,1))
PSA = cbind(PSA,c(1,3))

# FeralpiSalo 2 - Cosenza 2 #

FPS = cbind(FPS,c(2,2))
COS = cbind(COS,c(2,2))

# Sudtirol 0 - Parma 0 #

SUD = cbind(SUD,c(0,0))
PAR = cbind(PAR,c(0,0))

# Ternana 0 - Modena 0 #

TNN = cbind(TNN,c(0,0))
MOD = cbind(MOD,c(0,0))

# Spezia 1 - Lecco 1 #

SPZ = cbind(SPZ,c(1,1))
LCO = cbind(LCO,c(1,1))

# Reggiana 0 - Cittadella 2 #

REG = cbind(REG,c(0,2))
CTD = cbind(CTD,c(2,0))

# US Catanzaro 1 - Como 2 #

CTZ = cbind(CTZ,c(1,2))
CMO = cbind(CMO,c(2,1))

# Palermo 2 - Sampdoria 2 #

PLR = cbind(PLR,c(2,2))
SAM = cbind(SAM,c(2,2))

# Ascoli 0 - Venezia 0 #

ASC = cbind(ASC,c(0,0))
VNZ = cbind(VNZ,c(0,0))

## Gameweek 33 ##

# Modena 1 - US Catanzaro 3 #

MOD = cbind(MOD,c(1,3))
CTZ = cbind(CTZ,c(3,1))

# Cittadella 0 - Ascoli 0 #

CTD = cbind(CTD,c(0,0))
ASC = cbind(ASC,c(0,0))

# Cremonese 1 - Ternana 2 #

CRE = cbind(CRE,c(1,2))
TNN = cbind(TNN,c(2,1))

# Pisa 3 - FeralpiSalo 1 #

PSA = cbind(PSA,c(3,1))
FPS = cbind(FPS,c(1,3))

# Como 2 - Bari 1 #

CMO = cbind(CMO,c(2,1))
BRI = cbind(BRI,c(1,2))

# Sampdoria 0 - Sudtirol 1 #

SAM = cbind(SAM,c(0,1))
SUD = cbind(SUD,c(1,0))

# Cosenza 1 - Palermo 1 #

COS = cbind(COS,c(1,1))
PLR = cbind(PLR,c(1,1))

# Parma 2 - Spezia 0 #

PAR = cbind(PAR,c(2,0))
SPZ = cbind(SPZ,c(0,2))

# Lecco 1 - Reggiana 0 #

LCO = cbind(LCO,c(1,0))
REG = cbind(REG,c(0,1))

# Venezia 2 - Brescia 0 #

VNZ = cbind(VNZ,c(2,0))
BSA = cbind(BSA,c(0,2))

## Gameweek 34 ##

# Reggiana 0 - Cosenza 4 #

REG = cbind(REG,c(0,4))
COS = cbind(COS,c(4,0))

# Palermo 0 - Parma 0 #

PLR = cbind(PLR,c(0,0))
PAR = cbind(PAR,c(0,0))

# Ascoli 0 - Modena 0 #

ASC = cbind(ASC,c(0,0))
MOD = cbind(MOD,c(0,0))

# Bari 1 - Pisa 1 #

BRI = cbind(BRI,c(1,1))
PSA = cbind(PSA,c(1,1))

# Brescia 0 - Ternana 0 #

BSA = cbind(BSA,c(0,0))
TNN = cbind(TNN,c(0,0))

# FeralpiSalo 2 - Como 5 #

FPS = cbind(FPS,c(2,5))
CMO = cbind(CMO,c(5,2))

# Spezia 0 - Sampdoria 0 #

SPZ = cbind(SPZ,c(0,0))
SAM = cbind(SAM,c(0,0))

# US Catanzaro 0 - Cremonese 0 #

CTZ = cbind(CTZ,c(0,0))
CRE = cbind(CRE,c(0,0))

# Sudtirol 0 - Cittadella 0 #

SUD = cbind(SUD,c(0,0))
CTD = cbind(CTD,c(0,0))

# Lecco 1 - Venezia 2 #

LCO = cbind(LCO,c(1,2))
VNZ = cbind(VNZ,c(2,1))

## Gameweek 35 ##

# Pisa 2 - US Catanzaro 2 #

PSA = cbind(PSA,c(2,2))
CTZ = cbind(CTZ,c(2,2))

# Venezia 2 - Cremonese 1 #

VNZ = cbind(VNZ,c(2,1))
CRE = cbind(CRE,c(1,2))

# Parma 4 - Lecco 0 #

PAR = cbind(PAR,c(4,0))
LCO = cbind(LCO,c(0,4))

# Ternana 0 - Ascoli 1 #

TNN = cbind(TNN,c(0,1))
ASC = cbind(ASC,c(1,0))

# Modena 1 - Sudtirol 0 #

MOD = cbind(MOD,c(1,0))
SUD = cbind(SUD,c(0,1))

# Brescia 0 - Spezia 0 #

BSA = cbind(BSA,c(0,0))
SPZ = cbind(SPZ,c(0,0))

# Sampdoria 1 - Como 1 #

SAM = cbind(SAM,c(1,1))
CMO = cbind(CMO,c(1,1))

# Cittadella 1 - FeralpiSalo 1 #

CTD = cbind(CTD,c(1,1))
FPS = cbind(FPS,c(1,1))

# Cosenza 4 - Bari 1 #

COS = cbind(COS,c(4,1))
BRI = cbind(BRI,c(1,4))

# Palermo 1 - Reggiana 2 #

PLR = cbind(PLR,c(1,2))
REG = cbind(REG,c(2,1))

## Gameweek 36 ##

# Cremonese 2 - Pisa 1 #

CRE = cbind(CRE,c(2,1))
PSA = cbind(PSA,c(1,2))

# Como 2 - Cittadella 1 #

CMO = cbind(CMO,c(2,1))
CTD = cbind(CTD,c(1,2))

# Spezia 1 - Palermo 0 #

SPZ = cbind(SPZ,c(1,0))
PLR = cbind(PLR,c(0,1))

# Ascoli 0 - Cosenza 1 #

ASC = cbind(ASC,c(0,1))
COS = cbind(COS,c(1,0))

# US Catanzaro 3 - Venezia 2 #

CTZ = cbind(CTZ,c(3,2))
VNZ = cbind(VNZ,c(2,3))

# Sudtirol 4 - Ternana 3 #

SUD = cbind(SUD,c(4,3))
TNN = cbind(TNN,c(3,4))

# Reggiana 1 - Modena 0 #

REG = cbind(REG,c(1,0))
MOD = cbind(MOD,c(0,1))

# Bari 1 - Parma 1 #

BRI = cbind(BRI,c(1,1))
PAR = cbind(PAR,c(1,1))

# Lecco 0 - Sampdoria 1 #

LCO = cbind(LCO,c(0,1))
SAM = cbind(SAM,c(1,0))

# FeralpiSalo 2 - Brescia 2 #

FPS = cbind(FPS,c(2,2))
BSA = cbind(BSA,c(2,2))

## Gameweek 37 ##

# Palermo 2 - Ascoli 2 #

PLR = cbind(PLR,c(2,2))
ASC = cbind(ASC,c(2,2))

# Parma 1 - Cremonese 1 #

PAR = cbind(PAR,c(1,1))
CRE = cbind(CRE,c(1,1))

# Pisa 2 - Sudtirol 2 #

PSA = cbind(PSA,c(2,2))
SUD = cbind(SUD,c(2,2))

# Cosenza 2 - Spezia 2 #

COS = cbind(COS,c(2,2))
SPZ = cbind(SPZ,c(2,2))

# Cittadella 1 - Bari 1 #

CTD = cbind(CTD,c(1,1))
BRI = cbind(BRI,c(1,1))

# Venezia 2 - FeralpiSalo 1 #

VNZ = cbind(VNZ,c(2,1))
FPS = cbind(FPS,c(1,2))

# Modena 0 - Como 0 #

MOD = cbind(MOD,c(0,0))
CMO = cbind(CMO,c(0,0))

# Sampdoria 1 - Reggiana 0 #

SAM = cbind(SAM,c(1,0))
REG = cbind(REG,c(0,1))

# Ternana 1 - US Catanzaro 0 #

TNN = cbind(TNN,c(1,0))
CTZ = cbind(CTZ,c(0,1))

# Brescia 4 - Lecco 1 #

BSA = cbind(BSA,c(4,1))
LCO = cbind(LCO,c(1,4))

## Gameweek 38 ##

# Bari 2 - Brescia 0 #

BRI = cbind(BRI,c(2,0))
BSA = cbind(BSA,c(0,2))

# Reggiana 1 - Parma 1 #

REG = cbind(REG,c(1,1))
PAR = cbind(PAR,c(1,1))

# Lecco 2 - Modena 3 #

LCO = cbind(LCO,c(2,3))
MOD = cbind(MOD,c(3,2))

# Ascoli 2 - Pisa 1 #

ASC = cbind(ASC,c(2,1))
PSA = cbind(PSA,c(1,2))

# Como 1 - Cosenza 1 #

CMO = cbind(CMO,c(1,1))
COS = cbind(COS,c(1,1))

# Cremonese 3 - Cittadella 0 #

CRE = cbind(CRE,c(3,0))
CTD = cbind(CTD,c(0,3))

# Spezia 2 - Venezia 1 #

SPZ = cbind(SPZ,c(2,1))
VNZ = cbind(VNZ,c(1,2))

# US Catanzaro 1 - Sampdoria 3 #

CTZ = cbind(CTZ,c(1,3))
SAM = cbind(SAM,c(3,1))

# FeralpiSalo 0 - Ternana 1 #

FPS = cbind(FPS,c(0,1))
TNN = cbind(TNN,c(1,0))

# Sudtirol 0 - Palermo 1 #

SUD = cbind(SUD,c(0,1))
PLR = cbind(PLR,c(1,0))
  
### 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

# SAM 2-point penalty (taxes)
table$Pts[which(table$Team=="SAM")] = table$Pts[which(table$Team=="SAM")] - 2

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

table