### 1. Create table ###

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

teams = c("CRC","GZA","JBI","KKI","LPO","LWA","LKS","PGL","PSZ",
          "PNI","RRA","RCZ","RCH","SMI","SWR","WPO","WLO","ZLU")   # 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 ##

# Warta Poznan 0 - Pogon Szczecin 1 #

WPO = matrix(c(0,1),nrow=2)
PSZ = matrix(c(1,0),nrow=2)

# Legia Warszawa 3 - LKS Lodz 0 #

LWA = matrix(c(3,0),nrow=2)
LKS = matrix(c(0,3),nrow=2)

# Stal Mielec 2 - Cracovia 2 #

SMI = matrix(c(2,2),nrow=2)
CRC = matrix(c(2,2),nrow=2)

# Rakow Czestochowa 3 - Jagiellonia Bialystok 0 #

RCZ = matrix(c(3,0),nrow=2)
JBI = matrix(c(0,3),nrow=2)

# Piast Gliwice 1 - Lech Poznan 2 #

PGL = matrix(c(1,2),nrow=2)
LPO = matrix(c(2,1),nrow=2)

# Gornik Zabrze 0 - Radomiak Radom 2 #

GZA = matrix(c(0,2),nrow=2)
RRA = matrix(c(2,0),nrow=2)

# Zaglebie Lubin 2 - Ruch Chorzow 1 #

ZLU = matrix(c(2,1),nrow=2)
RCH = matrix(c(1,2),nrow=2)

# Widzew Lodz 3 - Puszcza Niepolomice 2 #

WLO = matrix(c(3,2),nrow=2)
PNI = matrix(c(2,3),nrow=2)

# Korona Kielce 1 - Slask Wroclaw 1 #

KKI = matrix(c(1,1),nrow=2)
SWR = matrix(c(1,1),nrow=2)

## Gameweek 2 ##

# Ruch Chorzow 2 - LKS Lodz 0 #

RCH = cbind(RCH,c(2,0))
LKS = cbind(LKS,c(0,2))

# Warta Poznan 2 - Gornik Zabrze 0 #

WPO = cbind(WPO,c(2,0))
GZA = cbind(GZA,c(0,2))

# Jagiellonia Bialystok 4 - Puszcza Niepolomice 1 #

JBI = cbind(JBI,c(4,1))
PNI = cbind(PNI,c(1,4))

# Slask Wroclaw 1 - Zaglebie Lubin 2 #

SWR = cbind(SWR,c(1,2))
ZLU = cbind(ZLU,c(2,1))

# Stal Mielec 0 - Piast Gliwice 0 #

SMI = cbind(SMI,c(0,0))
PGL = cbind(PGL,c(0,0))

# Lech Poznan 2 - Radomiak Radom 0 #

LPO = cbind(LPO,c(2,0))
RRA = cbind(RRA,c(0,2))

# Pogon Szczecin 2 - Widzew Lodz 1 #

PSZ = cbind(PSZ,c(2,1))
WLO = cbind(WLO,c(1,2))

## Gameweek 3 ##

# Jagiellonia Bialystok 2 - Widzew Lodz 1 #

JBI = cbind(JBI,c(2,1))
WLO = cbind(WLO,c(1,2))

# LKS Lodz 2 - Korona Kielce 1 #

LKS = cbind(LKS,c(2,1))
KKI = cbind(KKI,c(1,2))

# Rakow Czestochowa 2 - Warta Poznan 2 #

RCZ = cbind(RCZ,c(2,2))
WPO = cbind(WPO,c(2,2))

# Gornik Zabrze 0 - Piast Gliwice 0 #

GZA = cbind(GZA,c(0,0))
PGL = cbind(PGL,c(0,0))

# Radomiak Radom 0 - Cracovia 1 #

RRA = cbind(RRA,c(0,1))
CRC = cbind(CRC,c(1,0))

# Zaglebie Lubin 1 - Lech Poznan 1 #

ZLU = cbind(ZLU,c(1,1))
LPO = cbind(LPO,c(1,1))

# Legia Warszawa 3 - Ruch Chorzow 0 #

LWA = cbind(LWA,c(3,0))
RCH = cbind(RCH,c(0,3))

# Puszcza Niepolomice 1 - Stal Mielec 0 #

PNI = cbind(PNI,c(1,0))
SMI = cbind(SMI,c(0,1))

## Gameweek 4 ##

# Cracovia 2 - Zaglebie Lubin 1 #

CRC = cbind(CRC,c(2,1))
ZLU = cbind(ZLU,c(1,2))

# Piast Gliwice 2 - Rakow Czestochowa 1 #

PGL = cbind(PGL,c(2,1))
RCZ = cbind(RCZ,c(1,2))

# Stal Mielec 3 - Slask Wroclaw 1 #

SMI = cbind(SMI,c(3,1))
SWR = cbind(SWR,c(1,3))

# Korona Kielce 0 - Gornik Zabrze 1 #

KKI = cbind(KKI,c(0,1))
GZA = cbind(GZA,c(1,0))

# Widzew Lodz 1 - LKS Lodz 0 #

WLO = cbind(WLO,c(1,0))
LKS = cbind(LKS,c(0,1))

# Pogon Szczecin 0 - Radomiak Radom 2 #

PSZ = cbind(PSZ,c(0,2))
RRA = cbind(RRA,c(2,0))

# Puszcza Niepolomice 1 - Legia Warszawa 1 #

PNI = cbind(PNI,c(1,1))
LWA = cbind(LWA,c(1,1))

# Warta Poznan 2 - Ruch Chorzow 2 #

WPO = cbind(WPO,c(2,2))
RCH = cbind(RCH,c(2,2))

## Gameweek 5 ##

# Zaglebie Lubin 1 - Puszcza Niepolomice 0 #

ZLU = cbind(ZLU,c(1,0))
PNI = cbind(PNI,c(0,1))

# Gornik Zabrze 1 - Widzew Lodz 1 #

GZA = cbind(GZA,c(1,1))
WLO = cbind(WLO,c(1,1))

# Radomiak Radom 3 - Warta Poznan 2 #

RRA = cbind(RRA,c(3,2))
WPO = cbind(WPO,c(2,3))

# Rakow Czestochowa 2 - Stal Mielec 0 #

RCZ = cbind(RCZ,c(2,0))
SMI = cbind(SMI,c(0,2))

# Ruch Chorzow 0 - Jagiellonia Bialystok 1 #

RCH = cbind(RCH,c(0,1))
JBI = cbind(JBI,c(1,0))

# LKS Lodz 1 - Pogon Szczecin 0 #

LKS = cbind(LKS,c(1,0))
PSZ = cbind(PSZ,c(0,1))

# Slask Wroclaw 3 - Lech Poznan 1 #

SWR = cbind(SWR,c(3,1))
LPO = cbind(LPO,c(1,3))

# Legia Warszawa 1 - Korona Kielce 0 #

LWA = cbind(LWA,c(1,0))
KKI = cbind(KKI,c(0,1))

# Cracovia 1 - Piast Gliwice 1 #

CRC = cbind(CRC,c(1,1))
PGL = cbind(PGL,c(1,1))

## Gameweek 6 ##

# Stal Mielec 2 - Radomiak Radom 0 #

SMI = cbind(SMI,c(2,0))
RRA = cbind(RRA,c(0,2))

# Widzew Lodz 0 - Slask Wroclaw 2 #

WLO = cbind(WLO,c(0,2))
SWR = cbind(SWR,c(2,0))

# Warta Poznan 0 - Cracovia 0 #

WPO = cbind(WPO,c(0,0))
CRC = cbind(CRC,c(0,0))

# Puszcza Niepolomice 2 - LKS Lodz 1 #

PNI = cbind(PNI,c(2,1))
LKS = cbind(LKS,c(1,2))

# Piast Gliwice 0 - Ruch Chorzow 0 #

PGL = cbind(PGL,c(0,0))
RCH = cbind(RCH,c(0,0))

# Korona Kielce 2 - Zaglebie Lubin 0 #

KKI = cbind(KKI,c(2,0))
ZLU = cbind(ZLU,c(0,2))

# Jagiellonia Bialystok 4 - Gornik Zabrze 1 #

JBI = cbind(JBI,c(4,1))
GZA = cbind(GZA,c(1,4))

# Pogon Szczecin 0 - Slask Wroclaw 2 #

PSZ = cbind(PSZ,c(0,2))
SWR = cbind(SWR,c(2,0))

## Gameweek 7 ##

# LKS Lodz 0 - Warta Poznan 2 #

LKS = cbind(LKS,c(0,2))
WPO = cbind(WPO,c(2,0))

# Ruch Chorzow 1 - Stal Mielec 1 #

RCH = cbind(RCH,c(1,1))
SMI = cbind(SMI,c(1,1))

# Radomiak Radom 1 - Piast Gliwice 1 #

RRA = cbind(RRA,c(1,1))
PGL = cbind(PGL,c(1,1))

# Cracovia 0 - Korona Kielce 0 #

CRC = cbind(CRC,c(0,0))
KKI = cbind(KKI,c(0,0))

# Lech Poznan 1 - Gornik Zabrze 1 #

LPO = cbind(LPO,c(1,1))
GZA = cbind(GZA,c(1,1))

# Slask Wroclaw 2 - Jagiellonia Bialystok 1 #

SWR = cbind(SWR,c(2,1))
JBI = cbind(JBI,c(1,2))

# Zaglebie Lubin 1 - Pogon Szczecin 0 #

ZLU = cbind(ZLU,c(1,0))
PSZ = cbind(PSZ,c(0,1))

# Legia Warszawa 3 - Widzew Lodz 1 #

LWA = cbind(LWA,c(3,1))
WLO = cbind(WLO,c(1,3))

# Rakow Czestochowa 2 - Puszcza Niepolomice 0 #

RCZ = cbind(RCZ,c(2,0))
PNI = cbind(PNI,c(0,2))

## Gameweek 8 ##

# Puszcza Niepolomice 1 - Slask Wroclaw 3 #

PNI = cbind(PNI,c(1,3))
SWR = cbind(SWR,c(3,1))

# Gornik Zabrze 1 - Ruch Chorzow 0 #

GZA = cbind(GZA,c(1,0))
RCH = cbind(RCH,c(0,1))

# Pogon Szczecin 3 - Korona Kielce 1 #

PSZ = cbind(PSZ,c(3,1))
KKI = cbind(KKI,c(1,3))

# Rakow Czestochowa 1 - LKS Lodz 0 #

RCZ = cbind(RCZ,c(1,0))
LKS = cbind(LKS,c(0,1))

# Piast Gliwice 1 - Legia Warszawa 1 #

PGL = cbind(PGL,c(1,1))
LWA = cbind(LWA,c(1,1))

# Jagiellonia Bialystok 3 - Radomiak Radom 2 #

JBI = cbind(JBI,c(3,2))
RRA = cbind(RRA,c(2,3))

# Widzew Lodz 2 - Cracovia 0 #

WLO = cbind(WLO,c(2,0))
CRC = cbind(CRC,c(0,2))

# Warta Poznan 0 - Lech Poznan 2 #

WPO = cbind(WPO,c(0,2))
LPO = cbind(LPO,c(2,0))

# Stal Mielec 4 - Zaglebie Lubin 2 #

SMI = cbind(SMI,c(4,2))
ZLU = cbind(ZLU,c(2,4))

## Gameweek 9 ##

# Korona Kielce 1 - Widzew Lodz 1 #

KKI = cbind(KKI,c(1,1))
WLO = cbind(WLO,c(1,1))

# LKS Lodz 2 - Jagiellonia Bialystok 2 #

LKS = cbind(LKS,c(2,2))
JBI = cbind(JBI,c(2,2))

# Radomiak Radom 1 - Puszcza Niepolomice 1 #

RRA = cbind(RRA,c(1,1))
PNI = cbind(PNI,c(1,1))

# Slask Wroclaw 1 - Piast Gliwice 0 #

SWR = cbind(SWR,c(1,0))
PGL = cbind(PGL,c(0,1))

# Cracovia 1 - Pogon Szczecin 5 #

CRC = cbind(CRC,c(1,5))
PSZ = cbind(PSZ,c(5,1))

# Lech Poznan 2 - Stal Mielec 1 #

LPO = cbind(LPO,c(2,1))
SMI = cbind(SMI,c(1,2))

# Zaglebie Lubin 1 - Warta Poznan 0 #

ZLU = cbind(ZLU,c(1,0))
WPO = cbind(WPO,c(0,1))

# Ruch Chorzow 3 - Rakow Czestochowa 5 #

RCH = cbind(RCH,c(3,5))
RCZ = cbind(RCZ,c(5,3))

# Legia Warszawa 2 - Gornik Zabrze 1 #

LWA = cbind(LWA,c(2,1))
GZA = cbind(GZA,c(1,2))

# Pogon Szczecin 3 - Legia Warszawa 4 #

PSZ = cbind(PSZ,c(3,4))
LWA = cbind(LWA,c(4,3))

# Lech Poznan 4 - Rakow Czestochowa 1 #

LPO = cbind(LPO,c(4,1))
RCZ = cbind(RCZ,c(1,4))

## Gameweek 10 ##

# Stal Mielec 2 - Korona Kielce 3 #

SMI = cbind(SMI,c(2,3))
KKI = cbind(KKI,c(3,2))

# Piast Gliwice 3 - Widzew Lodz 2 #

PGL = cbind(PGL,c(3,2))
WLO = cbind(WLO,c(2,3))

# LKS Lodz 0 - Cracovia 2 #

LKS = cbind(LKS,c(0,2))
CRC = cbind(CRC,c(2,0))

# Puszcza Niepolomice 2 - Ruch Chorzow 2 #

PNI = cbind(PNI,c(2,2))
RCH = cbind(RCH,c(2,2))

# Warta Poznan 0 - Slask Wroclaw 1 #

WPO = cbind(WPO,c(0,1))
SWR = cbind(SWR,c(1,0))

# Rakow Czestochowa 3 - Radomiak Radom 0 #

RCZ = cbind(RCZ,c(3,0))
RRA = cbind(RRA,c(0,3))

# Pogon Szczecin 5 - Lech Poznan 0 #

PSZ = cbind(PSZ,c(5,0))
LPO = cbind(LPO,c(0,5))

# Jagiellonia Bialystok 2 - Legia Warszawa 0 #

JBI = cbind(JBI,c(2,0))
LWA = cbind(LWA,c(0,2))

# Gornik Zabrze 0 - Zaglebie Lunin 2 #

GZA = cbind(GZA,c(0,2))
ZLU = cbind(ZLU,c(2,0))

## Gameweek 11 ##

# Korona Kielce 1 - Warta Poznan 1 #

KKI = cbind(KKI,c(1,1))
WPO = cbind(WPO,c(1,1))

# Lech Poznan 4 - Puszcza Niepolomice 1 #

LPO = cbind(LPO,c(4,1))
PNI = cbind(PNI,c(1,4))

# Radomiak Radom 3 - LKS Lodz 0 #

RRA = cbind(RRA,c(3,0))
LKS = cbind(LKS,c(0,3))

# Widzew Lodz 1 - Stal Mielec 0 #

WLO = cbind(WLO,c(1,0))
SMI = cbind(SMI,c(0,1))

# Zaglebie Lubin 1 - Piast Gliwice 1 #

ZLU = cbind(ZLU,c(1,1))
PGL = cbind(PGL,c(1,1))

# Ruch Chorzow 0 - Pogon Szczecin 3 #

RCH = cbind(RCH,c(0,3))
PSZ = cbind(PSZ,c(3,0))

# Slask Wroclaw 1 - Gornik Zabrze 1 #

SWR = cbind(SWR,c(1,1))
GZA = cbind(GZA,c(1,1))

# Cracovia 2 - Jagiellonia Bialystok 4 #

CRC = cbind(CRC,c(2,4))
JBI = cbind(JBI,c(4,2))

# Legia Warszawa 1 - Rakow Czestochowa 2 #

LWA = cbind(LWA,c(1,2))
RCZ = cbind(RCZ,c(2,1))

## Gameweek 12 ##

# Piast Gliwice 0 - Pogon Szczecin 0 #

PGL = cbind(PGL,c(0,0))
PSZ = cbind(PSZ,c(0,0))

# Jagiellonia Bialystok 3 - Zaglebie Lubin 0 #

JBI = cbind(JBI,c(3,0))
ZLU = cbind(ZLU,c(0,3))

# Puszcza Niepolomice 1 - Cracovia 1 #

PNI = cbind(PNI,c(1,1))
CRC = cbind(CRC,c(1,1))

# Slask Wroclaw 4 - Legia Warszawa 0 #

SWR = cbind(SWR,c(4,0))
LWA = cbind(LWA,c(0,4))

# Lech Poznan 3 - LKS Lodz 1 #

LPO = cbind(LPO,c(3,1))
LKS = cbind(LKS,c(1,3))

# Radomiak Radom 1 - Korona Kielce 1 #

RRA = cbind(RRA,c(1,1))
KKI = cbind(KKI,c(1,1))

# Gornik Zabrze 2 - Rakow Czestochowa 1 #

GZA = cbind(GZA,c(2,1))
RCZ = cbind(RCZ,c(1,2))

# Stal Mielec 0 - Warta Poznan 1 #

SMI = cbind(SMI,c(0,1))
WPO = cbind(WPO,c(1,0))

# Lech Poznan 3 - Jagiellonia Bialystok 3 #

LPO = cbind(LPO,c(3,3))
JBI = cbind(JBI,c(3,3))

## Gameweek 13 ##

# Korona Kielce 5 - Puszcza Niepolomice 3 #

KKI = cbind(KKI,c(5,3))
PNI = cbind(PNI,c(3,5))

# LKS Lodz 0 - Gornik Zabrze 5 #

LKS = cbind(LKS,c(0,5))
GZA = cbind(GZA,c(5,0))

# Warta Poznan 1 - Piast Gliwice 1 #

WPO = cbind(WPO,c(1,1))
PGL = cbind(PGL,c(1,1))

# Pogon Szczecin 2 - Jagiellonia Bialystok 1 #

PSZ = cbind(PSZ,c(2,1))
JBI = cbind(JBI,c(1,2))

# Cracovia 1 - Lech Poznan 1 #

CRC = cbind(CRC,c(1,1))
LPO = cbind(LPO,c(1,1))

# Ruch Chorzow 2 - Slask Wroclaw 2 #

RCH = cbind(RCH,c(2,2))
SWR = cbind(SWR,c(2,2))

# Zaglebie Lubin 2 - Radomiak Radom 3 #

ZLU = cbind(ZLU,c(2,3))
RRA = cbind(RRA,c(3,2))

# Legia Warszawa 1 - Stal Mielec 3 #

LWA = cbind(LWA,c(1,3))
SMI = cbind(SMI,c(3,1))

# Rakow Czestochowa 1 - Widzew Lodz 1 #

RCZ = cbind(RCZ,c(1,1))
WLO = cbind(WLO,c(1,1))

## Gameweek 14 ##

# Piast Gliwice 0 - Korona Kielce 0 #

PGL = cbind(PGL,c(0,0))
KKI = cbind(KKI,c(0,0))

# Jagiellonia Bialystok 4 - Stal Mielec 0 #

JBI = cbind(JBI,c(4,0))
SMI = cbind(SMI,c(0,4))

# Puszcza Niepolomice 0 - Pogon Szczecin 2 #

PNI = cbind(PNI,c(0,2))
PSZ = cbind(PSZ,c(2,0))

# Widzew Lodz 0 - Warta Poznan 1 #

WLO = cbind(WLO,c(0,1))
WPO = cbind(WPO,c(1,0))

# Lech Poznan 2 - Ruch Chorzow 0 #

LPO = cbind(LPO,c(2,0))
RCH = cbind(RCH,c(0,2))

# Slask Wroclaw 2 - LKS Lodz 1 #

SWR = cbind(SWR,c(2,1))
LKS = cbind(LKS,c(1,2))

# Rakow Czestochowa 5 - Zaglebie Lubin 0 #

RCZ = cbind(RCZ,c(5,0))
ZLU = cbind(ZLU,c(0,5))

# Radomiak Radom 0 - Legia Warszawa 1 #

RRA = cbind(RRA,c(0,1))
LWA = cbind(LWA,c(1,0))

# Gornik Zabrze 1 - Cracovia 0 #

GZA = cbind(GZA,c(1,0))
CRC = cbind(CRC,c(0,1))

## Gameweek 15 ##

# Warta Poznan 0 - Puszcza Niepolomice 2 #

WPO = cbind(WPO,c(0,2))
PNI = cbind(PNI,c(2,0))

# Cracovia 0 - Slask Wroclaw 1 #

CRC = cbind(CRC,c(0,1))
SWR = cbind(SWR,c(1,0))

# LKS Lodz 3 - Piast Gliwice 3 #

LKS = cbind(LKS,c(3,3))
PGL = cbind(PGL,c(3,3))

# Zaglebie Lubin 1 - Widzew Lodz 1 #

ZLU = cbind(ZLU,c(1,1))
WLO = cbind(WLO,c(1,1))

# Korona Kielce 2 - Jagiellonia Bialystok 2 #

KKI = cbind(KKI,c(2,2))
JBI = cbind(JBI,c(2,2))

# Stal Mielec 2 - Gornik Zabrze 1 #

SMI = cbind(SMI,c(2,1))
GZA = cbind(GZA,c(1,2))

# Pogon Szczecin 1 - Rakow Czestochowa 1 #

PSZ = cbind(PSZ,c(1,1))
RCZ = cbind(RCZ,c(1,1))

# Legia Warszawa 0 - Lech Poznan 0 #

LWA = cbind(LWA,c(0,0))
LPO = cbind(LPO,c(0,0))

# Ruch Chorzow 0 - Radomiak Radom 0 #

RCH = cbind(RCH,c(0,0))
RRA = cbind(RRA,c(0,0))

# Widzew Lodz 2 - Ruch Chorzow 1 #

WLO = cbind(WLO,c(2,1))
RCH = cbind(RCH,c(1,2))

## Gameweek 16 ##

# LKS Lodz 0 - Zaglebie Lubin 2 #

LKS = cbind(LKS,c(0,2))
ZLU = cbind(ZLU,c(2,0))

# Jagiellonia Bialystok 0 - Piast Gliwice 0 #

JBI = cbind(JBI,c(0,0))
PGL = cbind(PGL,c(0,0))

# Rakow Czestochowa 1 - Cracovia 1 #

RCZ = cbind(RCZ,c(1,1))
CRC = cbind(CRC,c(1,1))

# Pogon Szczecin 2 - Stal Mielec 3 #

PSZ = cbind(PSZ,c(2,3))
SMI = cbind(SMI,c(3,2))

# Legia Warszawa 2 - Warta Poznan 2 #

LWA = cbind(LWA,c(2,2))
WPO = cbind(WPO,c(2,2))

# Puszcza Niepolomice 2 - Gornik Zabrze 1 #

PNI = cbind(PNI,c(2,1))
GZA = cbind(GZA,c(1,2))

# Ruch Chorzow 1 - Korona Kielce 1 #

RCH = cbind(RCH,c(1,1))
KKI = cbind(KKI,c(1,1))

# Lech Poznan 1 - Widzew Lodz 3 #

LPO = cbind(LPO,c(1,3))
WLO = cbind(WLO,c(3,1))

# Radomiak Radom 0 - Slask Wroclaw 1 #

RRA = cbind(RRA,c(0,1))
SWR = cbind(SWR,c(1,0))

## Gameweek 17 ##

# Warta Poznan 1 - Jagiellonia Bialystok 2 #

WPO = cbind(WPO,c(1,2))
JBI = cbind(JBI,c(2,1))

# Gornik Zabrze 1 - Pogon Szczecin 0 #

GZA = cbind(GZA,c(1,0))
PSZ = cbind(PSZ,c(0,1))

# Widzew Lodz 0 - Radomiak Radom 3 #

WLO = cbind(WLO,c(0,3))
RRA = cbind(RRA,c(3,0))

# Korona Kielce 0 - Lech Poznan 1 #

KKI = cbind(KKI,c(0,1))
LPO = cbind(LPO,c(1,0))

# Cracovia 4 - Ruch Chorzow 4 #

CRC = cbind(CRC,c(4,4))
RCH = cbind(RCH,c(4,4))

# Zaglebie Lubin 0 - Legia Warszawa 3 #

ZLU = cbind(ZLU,c(0,3))
LWA = cbind(LWA,c(3,0))

# Slask Wroclaw 1 - Rakow Czestochowa 1 #

SWR = cbind(SWR,c(1,1))
RCZ = cbind(RCZ,c(1,1))

## Gameweek 18 ##

# Ruch Chorzow 2 - Zaglebie Lubin 2 #

RCH = cbind(RCH,c(2,2))
ZLU = cbind(ZLU,c(2,2))

# Pogon Szczecin 3 - Warta Poznan 3 #

PSZ = cbind(PSZ,c(3,3))
WPO = cbind(WPO,c(3,3))

# Radomiak Radom 1 - Gornik Zabrze 1 #

RRA = cbind(RRA,c(1,1))
GZA = cbind(GZA,c(1,1))

# Cracovia 2 - Stal Mielec 2 #

CRC = cbind(CRC,c(2,2))
SMI = cbind(SMI,c(2,2))

# Slask Wroclaw 0 - Korona Kielce 0 #

SWR = cbind(SWR,c(0,0))
KKI = cbind(KKI,c(0,0))

# Lech Poznan 0 - Piast Gliwice 1 #

LPO = cbind(LPO,c(0,1))
PGL = cbind(PGL,c(1,0))

# LKS Lodz 1 - Legia Warszawa 1 #

LKS = cbind(LKS,c(1,1))
LWA = cbind(LWA,c(1,1))

# Jagiellonia Bialystok 4 - Rakow Czestochowa 2 #

JBI = cbind(JBI,c(4,2))
RCZ = cbind(RCZ,c(2,4))

# Puszcza Niepolomice 1 - Widzew Lodz 0 #

PNI = cbind(PNI,c(1,0))
WLO = cbind(WLO,c(0,1))

## Gameweek 19 ##

# Gornik Zabrze 3 - Warta Poznan 0 #

GZA = cbind(GZA,c(3,0))
WPO = cbind(WPO,c(0,3))

# Zaglebie Lubin 1 - Slask Wroclaw 2 #

ZLU = cbind(ZLU,c(1,2))
SWR = cbind(SWR,c(2,1))

# Puszcza Niepolomice 3 - Jagiellonia Bialystok 3 #

PNI = cbind(PNI,c(3,3))
JBI = cbind(JBI,c(3,3))

# Widzew Lodz 1 - Pogon Szczecin 2 #

WLO = cbind(WLO,c(1,2))
PSZ = cbind(PSZ,c(2,1))

# Radomiak Radom 2 - Lech Poznan 2 #

RRA = cbind(RRA,c(2,2))
LPO = cbind(LPO,c(2,2))

# LKS Lodz 1 - Ruch Chorzow 1 #

LKS = cbind(LKS,c(1,1))
RCH = cbind(RCH,c(1,1))

# Rakow Czestochowa 1 - Korona Kielce 0 #

RCZ = cbind(RCZ,c(1,0))
KKI = cbind(KKI,c(0,1))

# Legia Warszawa 2 - Cracovia 0 #

LWA = cbind(LWA,c(2,0))
CRC = cbind(CRC,c(0,2))

# Piast Gliwice 3 - Stal Mielec 0 #

PGL = cbind(PGL,c(3,0))
SMI = cbind(SMI,c(0,3))

# Cracovia 2 - Legia Warszawa 0 #

CRC = cbind(CRC,c(2,0))
LWA = cbind(LWA,c(0,2))

## Gameweek 20 ##

# Stal Mielec 2 - Puszcza Niepolomice 1 #

SMI = cbind(SMI,c(2,1))
PNI = cbind(PNI,c(1,2))

# Ruch Chorzow 0 - Legia Warszawa 1 #

RCH = cbind(RCH,c(0,1))
LWA = cbind(LWA,c(1,0))

# Cracovia 6 - Radomiak Radom 0 #

CRC = cbind(CRC,c(6,0))
RRA = cbind(RRA,c(0,6))

# Piast Gliwice 1 - Gornik Zabrze 3 #

PGL = cbind(PGL,c(1,3))
GZA = cbind(GZA,c(3,1))

# Lech Poznan 2 - Zaglebie Lubin 0 #

LPO = cbind(LPO,c(2,0))
ZLU = cbind(ZLU,c(0,2))

# Warta Poznan 2 - Rakov Czestochowa 1 #

WPO = cbind(WPO,c(2,1))
RCZ = cbind(RCZ,c(1,2))

# Widzew Lodz 1 - Jagiellonia Bialystok 3 #

WLO = cbind(WLO,c(1,3))
JBI = cbind(JBI,c(3,1))

# Slask Wroclaw 0 - Pogon Szczecin 1 #

SWR = cbind(SWR,c(0,1))
PSZ = cbind(PSZ,c(1,0))

# Korona Kielce 2 - LKS Lodz 1 #

KKI = cbind(KKI,c(2,1))
LKS = cbind(LKS,c(1,2))

## Gameweek 21 ##

# Radomiak Radom 0 - Pogon Szczecin 4 #

RRA = cbind(RRA,c(0,4))
PSZ = cbind(PSZ,c(4,0))

# Slask Wroclaw 0 - Stal Mielec 1 #

SWR = cbind(SWR,c(0,1))
SMI = cbind(SMI,c(1,0))

# Ruch Chorzow 0 - Warta Poznan 0 #

RCH = cbind(RCH,c(0,0))
WPO = cbind(WPO,c(0,0))

# Jagiellonia Bialystok 1 - Lech Poznan 2 #

JBI = cbind(JBI,c(1,2))
LPO = cbind(LPO,c(2,1))

# Rakov Czestochowa 3 - Piast Gliwice 1 #

RCZ = cbind(RCZ,c(3,1))
PGL = cbind(PGL,c(1,3))

# Zaglebie Lubin 1 - Cracovia 1 #

ZLU = cbind(ZLU,c(1,1))
CRC = cbind(CRC,c(1,1))

# Legia Warszawa 1 - Puszcza Niepolomice 1 #

LWA = cbind(LWA,c(1,1))
PNI = cbind(PNI,c(1,1))

# LKS Lodz 0 - Widzew Lodz 2 #

LKS = cbind(LKS,c(0,2))
WLO = cbind(WLO,c(2,0))

# Gornik Zabrze 3 - Korona Kielce 1 #

GZA = cbind(GZA,c(3,1))
KKI = cbind(KKI,c(1,3))

## Gameweek 22 ##

# Piast Gliwice 0 - Cracovia 0 #

PGL = cbind(PGL,c(0,0))
CRC = cbind(CRC,c(0,0))

# Pogon Szczecin 4 - LKS Lodz 2 #

PSZ = cbind(PSZ,c(4,2))
LKS = cbind(LKS,c(2,4))

# Jagiellonia Bialystok 1 - Ruch Chorzow 1 #

JBI = cbind(JBI,c(1,1))
RCH = cbind(RCH,c(1,1))

# Lech Poznan 0 - Slask Wroclaw 0 #

LPO = cbind(LPO,c(0,0))
SWR = cbind(SWR,c(0,0))

# Stal Mielec 0 - Rakow Czestochowa 0 #

SMI = cbind(SMI,c(0,0))
RCZ = cbind(RCZ,c(0,0))

# Puszcza Niepolomice 2 - Zaglebie Lubin 2 #

PNI = cbind(PNI,c(2,2))
ZLU = cbind(ZLU,c(2,2))

# Widzew Lodz 3 - Gornik Zabrze 1 #

WLO = cbind(WLO,c(3,1))
GZA = cbind(GZA,c(1,3))

# Korona Kielce 3 - Legia Warszawa 3 #

KKI = cbind(KKI,c(3,3))
LWA = cbind(LWA,c(3,3))

# Warta Poznan 0 - Radomiak Radom 0 #

WPO = cbind(WPO,c(0,0))
RRA = cbind(RRA,c(0,0))

# Stal Mielec 1 - LKS Lodz 0 #

SMI = cbind(SMI,c(1,0))
LKS = cbind(LKS,c(0,1))

## Gameweek 23 ##

# Cracovia 0 - Warta Poznan 1 #

CRC = cbind(CRC,c(0,1))
WPO = cbind(WPO,c(1,0))

# Ruch Chorzow 3 - Piast Gliwice 0 #

RCH = cbind(RCH,c(3,0))
PGL = cbind(PGL,c(0,3))

# Gornik Zabrze 2 - Jagiellonia Bialystok 1 #

GZA = cbind(GZA,c(2,1))
JBI = cbind(JBI,c(1,2))

# Slask Wroclaw 2 - Widzew Lodz 1 #

SWR = cbind(SWR,c(2,1))
WLO = cbind(WLO,c(1,2))

# Legia Warszawa 1 - Pogon Szczecin 1 #

LWA = cbind(LWA,c(1,1))
PSZ = cbind(PSZ,c(1,1))

# LKS Lodz 3 - Puszcza Niepolomice 2 #

LKS = cbind(LKS,c(3,2))
PNI = cbind(PNI,c(2,3))

# Zaglebie Lubin 1 - Korona Kielce 0 #

ZLU = cbind(ZLU,c(1,0))
KKI = cbind(KKI,c(0,1))

# Rakow Czestochowa 4 - Lech Poznan 0 #

RCZ = cbind(RCZ,c(4,0))
LPO = cbind(LPO,c(0,4))

# Radomiak Radom 2 - Stal Mielec 1 #

RRA = cbind(RRA,c(2,1))
SMI = cbind(SMI,c(1,2))

## Gameweek 24 ##

# Piast Gliwice 2 - Radomiak Radom 3 #

PGL = cbind(PGL,c(2,3))
RRA = cbind(RRA,c(3,2))

# Jagiellonia Bialystok 3 - Slask Wroclaw 1 #

JBI = cbind(JBI,c(3,1))
SWR = cbind(SWR,c(1,3))

# Korona Kielce 1 - Cracovia 1 #

KKI = cbind(KKI,c(1,1))
CRC = cbind(CRC,c(1,1))

# Puszcza Niepolomice 1 - Rakow Czestochowa 1 #

PNI = cbind(PNI,c(1,1))
RCZ = cbind(RCZ,c(1,1))

# Gornik Zabrze 0 - Lech Poznan 0 #

GZA = cbind(GZA,c(0,0))
LPO = cbind(LPO,c(0,0))

# Stal Mielec 3 - Ruch Chorzow 1 #

SMI = cbind(SMI,c(3,1))
RCH = cbind(RCH,c(1,3))

# Pogon Szczecin 0 - Zaglebie Lubin 2 #

PSZ = cbind(PSZ,c(0,2))
ZLU = cbind(ZLU,c(2,0))

# Widzew Lodz 1 - Legia Warszawa 0 #

WLO = cbind(WLO,c(1,0))
LWA = cbind(LWA,c(0,1))

# Warta Poznan 0 - LKS Lodz 1 #

WPO = cbind(WPO,c(0,1))
LKS = cbind(LKS,c(1,0))

# Piast Gliwice 1 - Puszcza Niepolomice 0 #

PGL = cbind(PGL,c(1,0))
PNI = cbind(PNI,c(0,1))

# Korona Kielce 0 - Rakow Czestochowa 2 #

KKI = cbind(KKI,c(0,2))
RCZ = cbind(RCZ,c(2,0))

## Gameweek 25 ##

# Zaglebie Lubin 0 - Stal Mielec 0 #

ZLU = cbind(ZLU,c(0,0))
SMI = cbind(SMI,c(0,0))

# Lech Poznan 2 - Warta Poznan 0 #

LPO = cbind(LPO,c(2,0))
WPO = cbind(WPO,c(0,2))

# Cracovia 2 - Widzew Lodz 2 #

CRC = cbind(CRC,c(2,2))
WLO = cbind(WLO,c(2,2))

# Radomiak Radom 0 - Jagiellonia Bialystok 2 #

RRA = cbind(RRA,c(0,2))
JBI = cbind(JBI,c(2,0))

# Ruch Chorzow 1 - Gornik Zabrze 2 #

RCH = cbind(RCH,c(1,2))
GZA = cbind(GZA,c(2,1))

# Slask Wroclaw 0 - Puszcza Niepolomice 0 #

SWR = cbind(SWR,c(0,0))
PNI = cbind(PNI,c(0,0))

# Korona Kielce 2 - Pogon Szczecin 2 #

KKI = cbind(KKI,c(2,2))
PSZ = cbind(PSZ,c(2,2))

# LKS Lodz 1 - Rakow Czestochowa 1 #

LKS = cbind(LKS,c(1,1))
RCZ = cbind(RCZ,c(1,1))

# Legia Warszawa 3 - Piast Gliwice 1 #

LWA = cbind(LWA,c(3,1))
PGL = cbind(PGL,c(1,3))

## Gameweek 26 ##

# Rakow Czestochowa 1 - Ruch Chorzow 1 #

RCZ = cbind(RCZ,c(1,1))
RCH = cbind(RCH,c(1,1))

# Jagiellonia Bialystok 6 - LKS Lodz 0 #

JBI = cbind(JBI,c(6,0))
LKS = cbind(LKS,c(0,6))

# Piast Gliwice 2 - Slask Wroclaw 2 #

PGL = cbind(PGL,c(2,2))
SWR = cbind(SWR,c(2,2))

# Pogon Szczecin 3 - Cracovia 1 #

PSZ = cbind(PSZ,c(3,1))
CRC = cbind(CRC,c(1,3))

# Puszcza Niepolomice 1 - Radomiak Radom 1 #

PNI = cbind(PNI,c(1,1))
RRA = cbind(RRA,c(1,1))

# Stal Mielec 0 - Lech Poznan 0 #

SMI = cbind(SMI,c(0,0))
LPO = cbind(LPO,c(0,0))

# Widzew Lodz 3 - Korona Kielce 1 #

WLO = cbind(WLO,c(3,1))
KKI = cbind(KKI,c(1,3))

# Gornik Zabrze 1 - Legia Warszawa 3 #

GZA = cbind(GZA,c(1,3))
LWA = cbind(LWA,c(3,1))

# Warta Poznan 1 - Zaglebie Lubin 1 #

WPO = cbind(WPO,c(1,1))
ZLU = cbind(ZLU,c(1,1))

## Gameweek 27 ##

# Cracovia 2 - LKS Lodz 2 #

CRC = cbind(CRC,c(2,2))
LKS = cbind(LKS,c(2,2))

# Radomiak Radom 2 - Rakow Czestochowa 1 #

RRA = cbind(RRA,c(2,1))
RCZ = cbind(RCZ,c(1,2))

# Korona Kielce 1 - Stal Mielec 0 #

KKI = cbind(KKI,c(1,0))
SMI = cbind(SMI,c(0,1))

# Ruch Chorzow 0 - Puszcza Niepolomice 0 #

RCH = cbind(RCH,c(0,0))
PNI = cbind(PNI,c(0,0))

# Slask Wroclaw 2 - Warta Poznan 1 #

SWR = cbind(SWR,c(2,1))
WPO = cbind(WPO,c(1,2))

# Widzew Lodz 1 - Piast Gliwice 0 #

WLO = cbind(WLO,c(1,0))
PGL = cbind(PGL,c(0,1))

# Lech Poznan 1 - Pogon Szczecin 0 #

LPO = cbind(LPO,c(1,0))
PSZ = cbind(PSZ,c(0,1))

# Legia Warszawa 1 - Jagiellonia Bialystok 1 #

LWA = cbind(LWA,c(1,1))
JBI = cbind(JBI,c(1,1))

# Zaglebie Lubin 1 - Gornik Zabrze 2 #

ZLU = cbind(ZLU,c(1,2))
GZA = cbind(GZA,c(2,1))

## Gameweek 28 ##

# Warta Poznan 1 - Korona Kielce 0 #

WPO = cbind(WPO,c(1,0))
KKI = cbind(KKI,c(0,1))

# Pogon Szczecin 5 - Ruch Chorzow 0 #

PSZ = cbind(PSZ,c(5,0))
RCH = cbind(RCH,c(0,5))

# Stal Mielec 0 - Widzew Lodz 0 #

SMI = cbind(SMI,c(0,0))
WLO = cbind(WLO,c(0,0))

# Puszcza Niepolomice 2 - Lech Poznan 1 #

PNI = cbind(PNI,c(2,1))
LPO = cbind(LPO,c(1,2))

# Rakow Czestochowa 1 - Legia Warszawa 1 #

RCZ = cbind(RCZ,c(1,1))
LWA = cbind(LWA,c(1,1))

# LKS Lodz 3 - Radomiak Radom 2 #

LKS = cbind(LKS,c(3,2))
RRA = cbind(RRA,c(2,3))

# Jagiellonia Bialystok 1 - Cracovia 3 #

JBI = cbind(JBI,c(1,3))
CRC = cbind(CRC,c(3,1))

# Gornik Zabrze 2 - Slask Wroclaw 0 #

GZA = cbind(GZA,c(2,0))
SWR = cbind(SWR,c(0,2))

# Piast Gliwice 2 - Zaglebie Lubin 0 #

PGL = cbind(PGL,c(2,0))
ZLU = cbind(ZLU,c(0,2))

## Gameweek 29 ##

# Korona Kielce 4 - Radomiak Radom 0 #

KKI = cbind(KKI,c(4,0))
RRA = cbind(RRA,c(0,4))

# Rakow Czestochowa 0 - Gornik Zabrze 1 #

RCZ = cbind(RCZ,c(0,1))
GZA = cbind(GZA,c(1,0))

# Pogon Szczecin 0 - Piast Gliwice 2 #

PSZ = cbind(PSZ,c(0,2))
PGL = cbind(PGL,c(2,0))

# Ruch Chorzow 2 - Widzew Lodz 3 #

RCH = cbind(RCH,c(2,3))
WLO = cbind(WLO,c(3,2))

# Zaglebie Lubin 1 - Jagiellonia Bialystok 2 #

ZLU = cbind(ZLU,c(1,2))
JBI = cbind(JBI,c(2,1))

# Cracovia 0 - Puszcza Niepolomice 1 #

CRC = cbind(CRC,c(0,1))
PNI = cbind(PNI,c(1,0))

# LKS Lodz 2 - Lech Poznan 3 #

LKS = cbind(LKS,c(2,3))
LPO = cbind(LPO,c(3,2))

# Legia Warszawa 0 - Slask Wroclaw 0 #

LWA = cbind(LWA,c(0,0))
SWR = cbind(SWR,c(0,0))

# Warta Poznan 5 - Stal Mielec 2 #

WPO = cbind(WPO,c(5,2))
SMI = cbind(SMI,c(2,5))

## Gameweek 30 ##

# Piast Gliwice 2 - Warta Poznan 0 #

PGL = cbind(PGL,c(2,0))
WPO = cbind(WPO,c(0,2))

# Jagiellonia Bialystok 2 - Pogon Szczecin 2 #

JBI = cbind(JBI,c(2,2))
PSZ = cbind(PSZ,c(2,2))

# Gornik Zabrze 4 - LKS Lodz 1 #

GZA = cbind(GZA,c(4,1))
LKS = cbind(LKS,c(1,4))

# Slask Wroclaw 2 - Ruch Chorzow 3 #

SWR = cbind(SWR,c(2,3))
RCH = cbind(RCH,c(3,2))

# Widzew Lodz 0 - Rakow Czestochowa 1 #

WLO = cbind(WLO,c(0,1))
RCZ = cbind(RCZ,c(1,0))

# Radomiak Radom 3 - Zaglebie Lubin 4 #

RRA = cbind(RRA,c(3,4))
ZLU = cbind(ZLU,c(4,3))

# Stal Mielec 1 - Legia Warszawa 3 #

SMI = cbind(SMI,c(1,3))
LWA = cbind(LWA,c(3,1))

# Lech Poznan 0 - Cracovia 0 #

LPO = cbind(LPO,c(0,0))
CRC = cbind(CRC,c(0,0))

# Puszcza Niepolomice 1 - Korona Kielce 1 #

PNI = cbind(PNI,c(1,1))
KKI = cbind(KKI,c(1,1))

## Gameweek 31 ##

# Cracovia 5 - Gornik Zabrze 0 #

CRC = cbind(CRC,c(5,0))
GZA = cbind(GZA,c(0,5))

# Ruch Chorzow 2 - Lech Poznan 1 #

RCH = cbind(RCH,c(2,1))
LPO = cbind(LPO,c(1,2))

# LKS Lodz 1 - Slask Wroclaw 2 #

LKS = cbind(LKS,c(1,2))
SWR = cbind(SWR,c(2,1))

# Zaglebie Lubin 2 - Rakow Czestochowa 0 #

ZLU = cbind(ZLU,c(2,0))
RCZ = cbind(RCZ,c(0,2))

# Stal Mielec 3 - Jagiellonia Bialystok 2 #

SMI = cbind(SMI,c(3,2))
JBI = cbind(JBI,c(2,3))

# Warta Poznan 2 - Widzew Lodz 1 #

WPO = cbind(WPO,c(2,1))
WLO = cbind(WLO,c(1,2))

# Korona Kielce 1 - Piast Gliwice 1 #

KKI = cbind(KKI,c(1,1))
PGL = cbind(PGL,c(1,1))

# Legia Warszawa 0 - Radomiak Radom 3 #

LWA = cbind(LWA,c(0,3))
RRA = cbind(RRA,c(3,0))

# Pogon Szczecin 1 - Puszcza Niepolomice 0 #

PSZ = cbind(PSZ,c(1,0))
PNI = cbind(PNI,c(0,1))

## Gameweek 32 ##

# Piast Gliwice 4 - LKS Lodz 0 #

PGL = cbind(PGL,c(4,0))
LKS = cbind(LKS,c(0,4))

# Slask Wroclaw 4 - Cracovia 0 #

SWR = cbind(SWR,c(4,0))
CRC = cbind(CRC,c(0,4))

# Gornik Zabrze 1 - Stal Mielec 1 #

GZA = cbind(GZA,c(1,1))
SMI = cbind(SMI,c(1,1))

# Jagiellonia Bialystok 3 - Korona Kielce 0 #

JBI = cbind(JBI,c(3,0))
KKI = cbind(KKI,c(0,3))

# Rakow Czestochowa 2 - Pogon Szczecin 1 #

RCZ = cbind(RCZ,c(2,1))
PSZ = cbind(PSZ,c(1,2))

# Puszcza Niepolomice 1 - Warta Poznan 0 #

PNI = cbind(PNI,c(1,0))
WPO = cbind(WPO,c(0,1))

# Widzew Lodz 1 - Zaglebie Lubin 3 #

WLO = cbind(WLO,c(1,3))
ZLU = cbind(ZLU,c(3,1))

# Lech Poznan 1 - Legia Warszawa 2 #

LPO = cbind(LPO,c(1,2))
LWA = cbind(LWA,c(2,1))

# Radomiak Radom 0 - Ruch Chorzow 2 #

RRA = cbind(RRA,c(0,2))
RCH = cbind(RCH,c(2,0))

## Gameweek 33 ##

# Stal Mielec 0 - Pogon Szczecin 0 #

SMI = cbind(SMI,c(0,0))
PSZ = cbind(PSZ,c(0,0))

# Gornik Zabrze 1 - Puszcza Niepolomice 1 #

GZA = cbind(GZA,c(1,1))
PNI = cbind(PNI,c(1,1))

# Korona Kielce 2 - Ruch Chorzow 0 #

KKI = cbind(KKI,c(2,0))
RCH = cbind(RCH,c(0,2))

# Slask Wroclaw 2 - Radomiak Radom 0 #

SWR = cbind(SWR,c(2,0))
RRA = cbind(RRA,c(0,2))

# Piast Gliwice 1 - Jagiellonia Bialystok 1 #

PGL = cbind(PGL,c(1,1))
JBI = cbind(JBI,c(1,1))

# Cracovia 2 - Rakow Czestochowa 0 #

CRC = cbind(CRC,c(2,0))
RCZ = cbind(RCZ,c(0,2))

# Warta Poznan 0 - Legia Warszawa 1 #

WPO = cbind(WPO,c(0,1))
LWA = cbind(LWA,c(1,0))

# Widzew Lodz 1 - Lech Poznan 1 #

WLO = cbind(WLO,c(1,1))
LPO = cbind(LPO,c(1,1))

# Zaglebie Lubin 2 - LKS Lodz 1 #

ZLU = cbind(ZLU,c(2,1))
LKS = cbind(LKS,c(1,2))

## Gameweek 34 ##

# Pogon Szczecin 1 - Gornik Zabrze 0 #

PSZ = cbind(PSZ,c(1,0))
GZA = cbind(GZA,c(0,1))

# Ruch Chorzow 2 - Cracovia 0 #

RCH = cbind(RCH,c(2,0))
CRC = cbind(CRC,c(0,2))

# Legia Warszawa 2 - Zaglebie Lubin 1 #

LWA = cbind(LWA,c(2,1))
ZLU = cbind(ZLU,c(1,2))

# Lech Poznan 1 - Korona Kielce 2 #

LPO = cbind(LPO,c(1,2))
KKI = cbind(KKI,c(2,1))

# Jagiellonia Bialystok 3 - Warta Poznan 0 #

JBI = cbind(JBI,c(3,0))
WPO = cbind(WPO,c(0,3))

# LKS Lodz 3 - Stal Mielec 2 #

LKS = cbind(LKS,c(3,2))
SMI = cbind(SMI,c(2,3))

# Radomiak Radom 1 - Widzew Lodz 3 #

RRA = cbind(RRA,c(1,3))
WLO = cbind(WLO,c(3,1))

# Puszcza Niepolomice 1 - Piast Gliwice 0 #

PNI = cbind(PNI,c(1,0))
PGL = cbind(PGL,c(0,1))

# Rakow Czestochowa 1 - Slask Wroclaw 2 #

RCZ = cbind(RCZ,c(1,2))
SWR = cbind(SWR,c(2,1))

### 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]
}

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

table