### 1. Create table ###

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

teams = c("COD","DNI","DYK","KKO","KKR","LNZ","MKH","MYN",
          "OKI","OLE","PZH","RLV","SDO","VRI","VPO","ZLH")   # 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 ##

# Obolon-Brovar 0 - Kolos 0 #

OKI = matrix(c(0,0),nrow=2)
KKO = matrix(c(0,0),nrow=2)

# Veres Rivne 0 - Polissya Zhytomyr 2 #

VRI = matrix(c(0,2),nrow=2)
PZH = matrix(c(2,0),nrow=2)

# Rukh Vynnyky 2 - Zorya Luhansk 1 #

RLV = matrix(c(2,1),nrow=2)
ZLH = matrix(c(1,2),nrow=2)

# Metalist 1925 1 - Shakhtar Donetsk 2 #

MKH = matrix(c(1,2),nrow=2)
SDO = matrix(c(2,1),nrow=2)

# LNZ 0 - Chornomorets Odesa 2 #

LNZ = matrix(c(0,2),nrow=2)
COD = matrix(c(2,0),nrow=2)

# Dynamo Kyiv 4 - Mynai 1 #

DYK = matrix(c(4,1),nrow=2)
MYN = matrix(c(1,4),nrow=2)

# Oleksandriya 1 - Kryvbas KR 0 #

OLE = matrix(c(1,0),nrow=2)
KKR = matrix(c(0,1),nrow=2)

## Gameweek 2 ##

# Veres Rivne 1 - Shakhtar Donetsk 1 #

VRI = cbind(VRI,c(1,1))
SDO = cbind(SDO,c(1,1))

# Obolon-Brovar 2 - Dynamo Kyiv 4 #

OKI = cbind(OKI,c(2,4))
DYK = cbind(DYK,c(4,2))

# Mynai 0 - LNZ 3 #

MYN = cbind(MYN,c(0,3))
LNZ = cbind(LNZ,c(3,0))

# Oleksandriya 1 - Metalist 1925 0 #

OLE = cbind(OLE,c(1,0))
MKH = cbind(MKH,c(0,1))

# Dnipro-1 2 - Polissya Zhytomyr 1 #

DNI = matrix(c(2,1),nrow=2)
PZH = cbind(PZH,c(1,2))

# Zorya Luhansk 1 - Kryvbas KR 3 #

ZLH = cbind(ZLH,c(1,3))
KKR = cbind(KKR,c(3,1))

# Kolos 2 - Chornomorets Odesa 0 #

KKO = cbind(KKO,c(2,0))
COD = cbind(COD,c(0,2))

# Rukh Vynnyky 4 - Vorskla 1 #

RLV = cbind(RLV,c(4,1))
VPO = matrix(c(1,4),nrow=2)

## Gameweek 3 ##

# Chornomorets Odesa 2 - Obolon-Brovar 0 #

COD = cbind(COD,c(2,0))
OKI = cbind(OKI,c(0,2))

# Polissya Zhytomyr 0 - Rukh Vynnyky 1 #

PZH = cbind(PZH,c(0,1))
RLV = cbind(RLV,c(1,0))

# Kolos 2 - Veres Rivne 0 #

KKO = cbind(KKO,c(2,0))
VRI = cbind(VRI,c(0,2))

# Mynai 1 - Dnipro-1 1 #

MYN = cbind(MYN,c(1,1))
DNI = cbind(DNI,c(1,1))

# Vorskla 1 - Zorya Luhansk 2 #

VPO = cbind(VPO,c(1,2))
ZLH = cbind(ZLH,c(2,1))

# Kryvbas KR 2 - LNZ 0 #

KKR = cbind(KKR,c(2,0))
LNZ = cbind(LNZ,c(0,2))

# Shakhtar Donetsk 2 - Oleksandriya 1 #

SDO = cbind(SDO,c(2,1))
OLE = cbind(OLE,c(1,2))

## Gameweek 4 ##

# LNZ 1 - Polissya Zhytomyr 2 #

LNZ = cbind(LNZ,c(1,2))
PZH = cbind(PZH,c(2,1))

# Zorya Luhansk 0 - Oleksandriya 0 #

ZLH = cbind(ZLH,c(0,0))
OLE = cbind(OLE,c(0,0))

# Veres Rivne 1 - Vorskla 2 #

VRI = cbind(VRI,c(1,2))
VPO = cbind(VPO,c(2,1))

# Metalist 1925 1 - Mynai 0 #

MKH = cbind(MKH,c(1,0))
MYN = cbind(MYN,c(0,1))

# Rukh Vynnyky 1 - Kolos 1 #

RLV = cbind(RLV,c(1,1))
KKO = cbind(KKO,c(1,1))

# Dnipro-1 1 - Obolon-Brovar 2 #

DNI = cbind(DNI,c(1,2))
OKI = cbind(OKI,c(2,1))

# Chornomorets Odesa 3 - Dynamo Kiev 2 #

COD = cbind(COD,c(3,2))
DYK = cbind(DYK,c(2,3))

# Kryvbas KR 3 - Shakhtar Donetsk 3 #

KKR = cbind(KKR,c(3,3))
SDO = cbind(SDO,c(3,3))

## Gameweek 5 ##

# LNZ 0 - Metalist 1925 1 #

LNZ = cbind(LNZ,c(0,1))
MKH = cbind(MKH,c(1,0))

# Oleksandriya 0 - Polissya Zhytomyr 3 #

OLE = cbind(OLE,c(0,3))
PZH = cbind(PZH,c(3,0))

# Mynai 1 - Zorya Luhansk 1 #

MYN = cbind(MYN,c(1,1))
ZLH = cbind(ZLH,c(1,1))

# Kolos 0 - Shakhtar Donetsk 2 #

KKO = cbind(KKO,c(0,2))
SDO = cbind(SDO,c(2,0))

# Vorskla 2 - Chornomorets Odesa 1 #

VPO = cbind(VPO,c(2,1))
COD = cbind(COD,c(1,2))

# Obolon-Brovar 0 - Kryvbas KR 0 #

OKI = cbind(OKI,c(0,0))
KKR = cbind(KKR,c(0,0))

## Gameweek 6 ##

# Veres Rivne 3 - Chornomorets Odesa 1 #

VRI = cbind(VRI,c(3,1))
COD = cbind(COD,c(1,3))

# Mynai 1 - Shakhtar Donetsk 4 #

MYN = cbind(MYN,c(1,4))
SDO = cbind(SDO,c(4,1))

# Polissya Zhytomyr 2 - Obolon-Brovar 0 #

PZH = cbind(PZH,c(2,0))
OKI = cbind(OKI,c(0,2))

# Vorskla 1 - Oleksandriya 0 #

VPO = cbind(VPO,c(1,0))
OLE = cbind(OLE,c(0,1))

# Dnipro-1 0 - LNZ 0 #

DNI = cbind(DNI,c(0,0))
LNZ = cbind(LNZ,c(0,0))

# Kolos 0 - Kryvbas KR 3 #

KKO = cbind(KKO,c(0,3))
KKR = cbind(KKR,c(3,0))

# Rukh Vynnyky 1 - Metalist 1925 1 #

RLV = cbind(RLV,c(1,1))
MKH = cbind(MKH,c(1,1))

## Gameweek 7 ##

# Metalist 1925 2 - Zorya Luhansk 1 #

MKH = cbind(MKH,c(2,1))
ZLH = cbind(ZLH,c(1,2))

# Chornomorets Odesa 1 - Polissya Zhytomyr 0 #

COD = cbind(COD,c(1,0))
PZH = cbind(PZH,c(0,1))

# Shakhtar Donetsk 1 - Obolon-Brovar 0 #

SDO = cbind(SDO,c(1,0))
OKI = cbind(OKI,c(0,1))

# Oleksandriya 1 - Mynai 1 #

OLE = cbind(OLE,c(1,1))
MYN = cbind(MYN,c(1,1))

# LNZ 2 - Rukh Vynnyky 1 #

LNZ = cbind(LNZ,c(2,1))
RLV = cbind(RLV,c(1,2))

# Dnipro-1 1 - Kolos 1 #

DNI = cbind(DNI,c(1,1))
KKO = cbind(KKO,c(1,1))

# Kryvbas KR 2 - Veres Rivne 1 #

KKR = cbind(KKR,c(2,1))
VRI = cbind(VRI,c(1,2))

# Dynamo Kyiv 2 - Vorskla 0 #

DYK = cbind(DYK,c(2,0))
VPO = cbind(VPO,c(0,2))

## Gameweek 8 ##

# Obolon-Brovar 0 - Vers Rivne 0 #

OKI = cbind(OKI,c(0,0))
VRI = cbind(VRI,c(0,0))

# Oleksandriya 1 - Chornomorets Odesa 5 #

OLE = cbind(OLE,c(1,5))
COD = cbind(COD,c(5,1))

# LNZ 2 - Dynamo Kyiv 4 #

LNZ = cbind(LNZ,c(2,4))
DYK = cbind(DYK,c(4,2))

# Polissya Zhytomyr 2 - Mynai 1 #

PZH = cbind(PZH,c(2,1))
MYN = cbind(MYN,c(1,2))

# Vorskla 1 - Kryvbas KR 4 #

VPO = cbind(VPO,c(1,4))
KKR = cbind(KKR,c(4,1))

# Rukh Vynnyky 1 - Shakhtar Donestsk 1 #

RLV = cbind(RLV,c(1,1))
SDO = cbind(SDO,c(1,1))

# Zorya Luhansk 0 - Dnipro-1 1 #

ZLH = cbind(ZLH,c(0,1))
DNI = cbind(DNI,c(1,0))

# Metalist 1925 0 - Kolos 0 #

MKH = cbind(MKH,c(0,0))
KKO = cbind(KKO,c(0,0))

## Gameweek 9 ##

# Veres Rivne 0 - LNZ 0 #

VRI = cbind(VRI,c(0,0))
LNZ = cbind(LNZ,c(0,0))

# Shakhtar Donetsk 1 - Vorskla 2 #

SDO = cbind(SDO,c(1,2))
VPO = cbind(VPO,c(2,1))

# Chornomorets Odesa 0 - Zorya Luhansk 0 #

COD = cbind(COD,c(0,0))
ZLH = cbind(ZLH,c(0,0))

# Mynai 0 - Obolon-Brovar 1 #

MYN = cbind(MYN,c(0,1))
OKI = cbind(OKI,c(1,0))

# Kryvbas KR 1 - Rukh Vynnyky 3 #

KKR = cbind(KKR,c(1,3))
RLV = cbind(RLV,c(3,1))

# Kolos 0 - Polissya Zhytomyr 0 #

KKO = cbind(KKO,c(0,0))
PZH = cbind(PZH,c(0,0))

# Dynamo Kiev 4 - Oleksandriya 2 #

DYK = cbind(DYK,c(4,2))
OLE = cbind(OLE,c(2,4))

# Dnipro-1 1 - Metalist 1925 0 #

DNI = cbind(DNI,c(1,0))
MKH = cbind(MKH,c(0,1))

## Gameweek 10 ##

# Polissya Zhytomyr 3 - Dynamo Kyiv 2 #

PZH = cbind(PZH,c(3,2))
DYK = cbind(DYK,c(2,3))

# Dnipro-1 2 - Veres Rivne 0 #

DNI = cbind(DNI,c(2,0))
VRI = cbind(VRI,c(0,2))

# LNZ 0 - Oleksandriya 0 #

LNZ = cbind(LNZ,c(0,0))
OLE = cbind(OLE,c(0,0))

# Kolos 0 - Vorskla 0 #

KKO = cbind(KKO,c(0,0))
VPO = cbind(VPO,c(0,0))

# Obolon-Brovar 1 - Metalist 1925 0 #

OKI = cbind(OKI,c(1,0))
MKH = cbind(MKH,c(0,1))

# Rukh Vynnyky 0 - Mynai 0 #

RLV = cbind(RLV,c(0,0))
MYN = cbind(MYN,c(0,0))

# Kryvbas KR 1 - Chornomorets Odesa 0 #

KKR = cbind(KKR,c(1,0))
COD = cbind(COD,c(0,1))

## Gameweek 11 ##

# Obolon-Brovar 2 - Zorya Luhansk 4 #

OKI = cbind(OKI,c(2,4))
ZLH = cbind(ZLH,c(4,2))

# Metalist 1925 1 - Kryvbas KR 3 #

MKH = cbind(MKH,c(1,3))
KKR = cbind(KKR,c(3,1))

# Chornomorets Odesa 3 - Mynai 0 #

COD = cbind(COD,c(3,0))
MYN = cbind(MYN,c(0,3))

# Shakhtar Donetsk 3 - LNZ 0 #

SDO = cbind(SDO,c(3,0))
LNZ = cbind(LNZ,c(0,3))

# Oleksandriya 0 - Kolos 1 #

OLE = cbind(OLE,c(0,1))
KKO = cbind(KKO,c(1,0))

# Veres Rivne 2 - Rukh Vynnyky 5 #

VRI = cbind(VRI,c(2,5))
RLV = cbind(RLV,c(5,2))

# Vorskla 0 - Polissya Zhytomyr 3 #

VPO = cbind(VPO,c(0,3))
PZH = cbind(PZH,c(3,0))

# Dynamo Kiev 0 - Dnipro-1 1 #

DYK = cbind(DYK,c(0,1))
DNI = cbind(DNI,c(1,0))

# Vorskla 2 - Dnipro-1 3 #

VPO = cbind(VPO,c(2,3))
DNI = cbind(DNI,c(3,2))

## Gameweek 12 ##

# Kryvbas KR 3 - Dnipro-1 0 #

KKR = cbind(KKR,c(3,0))
DNI = cbind(DNI,c(0,3))

# Kolos 1 - Dynamo Kiev 1 #

KKO = cbind(KKO,c(1,1))
DYK = cbind(DYK,c(1,1))

# Zorya Luhansk 0 - Polissya Zhytomyr 1 #

ZLH = cbind(ZLH,c(0,1))
PZH = cbind(PZH,c(1,0))

# Rukh Vynnyky 0 - Oleksandriya 0 #

RLV = cbind(RLV,c(0,0))
OLE = cbind(OLE,c(0,0))

# Mynai 0 - Veres Rivne 0 #

MYN = cbind(MYN,c(0,0))
VRI = cbind(VRI,c(0,0))

# LNZ 3 - Obolon-Brovar 0 #

LNZ = cbind(LNZ,c(3,0))
OKI = cbind(OKI,c(0,3))

# Vorskla 2 - Metalist 1925 2 #

VPO = cbind(VPO,c(2,2))
MKH = cbind(MKH,c(2,2))

# Rukh Vynnyky 0 - Dnipro-1 2 #

RLV = cbind(RLV,c(0,2))
DNI = cbind(DNI,c(2,0))

## Gameweek 13 ##

# Dynamo Kiev 0 - Shakhtar Donetsk 1 #

DYK = cbind(DYK,c(0,1))
SDO = cbind(SDO,c(1,0))

# LNZ 1 - Kolos 1 #

LNZ = cbind(LNZ,c(1,1))
KKO = cbind(KKO,c(1,1))

# Mynai 0 - Vorskla 0 #

MYN = cbind(MYN,c(0,0))
VPO = cbind(VPO,c(0,0))

# Metalist 1925 2 - Chornomorets Odesa 1 #

MKH = cbind(MKH,c(2,1))
COD = cbind(COD,c(1,2))

# Veres Rivne 2 - Zorya Luhansk 2 #

VRI = cbind(VRI,c(2,2))
ZLH = cbind(ZLH,c(2,2))

# Polissya Zhytomyr 1 - Kryvbas KR 1 #

PZH = cbind(PZH,c(1,1))
KKR = cbind(KKR,c(1,1))

# Dnipro-1 1 - Oleksandriya 0 #

DNI = cbind(DNI,c(1,0))
OLE = cbind(OLE,c(0,1))

# Rukh Vynnyky 2 - Obolon-Brovar 2 #

RLV = cbind(RLV,c(2,2))
OKI = cbind(OKI,c(2,2))

## Gameweek 14 ##

# Kolos 2 - Mynai 0 #

KKO = cbind(KKO,c(2,0))
MYN = cbind(MYN,c(0,2))

# Obolon-Brovar 0 - Vorskla 1 #

OKI = cbind(OKI,c(0,1))
VPO = cbind(VPO,c(1,0))

# Polissya Zhytomyr 2 - Metalist 1925 1 #

PZH = cbind(PZH,c(2,1))
MKH = cbind(MKH,c(1,2))

# Oleksandriya 1 - Veres Rivne 0 #

OLE = cbind(OLE,c(1,0))
VRI = cbind(VRI,c(0,1))

# Kryvbas KR 0 - Dynamo Kyiv 2 #

KKR = cbind(KKR,c(0,2))
DYK = cbind(DYK,c(2,0))

# Zorya Luhansk 1 - LNZ 2 #

ZLH = cbind(ZLH,c(1,2))
LNZ = cbind(LNZ,c(2,1))

# Chornomorets Odesa 2 - Rukh Vynnyky 3 #

COD = cbind(COD,c(2,3))
RLV = cbind(RLV,c(3,2))

# Shakhtar Donetsk 1 - Dnipro-1 3 #

SDO = cbind(SDO,c(1,3))
DNI = cbind(DNI,c(3,1))

## Gameweek 15 ##

# Shakhtar Donetsk 0 - Polissya Zhytomyr 0 #

SDO = cbind(SDO,c(0,0))
PZH = cbind(PZH,c(0,0))

# Mynai 0 - Kryvbas KR 1 #

MYN = cbind(MYN,c(0,1))
KKR = cbind(KKR,c(1,0))

# Veres Rivne 4 - Metalist 1925 3 #

VRI = cbind(VRI,c(4,3))
MKH = cbind(MKH,c(3,4))

# Vorskla 0 - LNZ 0 #

VPO = cbind(VPO,c(0,0))
LNZ = cbind(LNZ,c(0,0))

# Dynamo Kyiv 2 - Rukh Vynnyky 0 #

DYK = cbind(DYK,c(2,0))
RLV = cbind(RLV,c(0,2))

# Dnipro-1 5 - Chornomorets Odesa 2 #

DNI = cbind(DNI,c(5,2))
COD = cbind(COD,c(2,5))

## Gameweek 16 ##

# Polissya Zhytomyr 1 - Veres Rivne 1 #

PZH = cbind(PZH,c(1,1))
VRI = cbind(VRI,c(1,1))

# Kryvbas KR 2 - Oleksandriya 1 #

KKR = cbind(KKR,c(2,1))
OLE = cbind(OLE,c(1,2))

# Kolos 0 - Obolon-Brovar 0 #

KKO = cbind(KKO,c(0,0))
OKI = cbind(OKI,c(0,0))

# Dnipro-1 1 - Vorskla 2 #

DNI = cbind(DNI,c(1,2))
VPO = cbind(VPO,c(2,1))

# Chornomorets Odesa 1 - LNZ 3 #

COD = cbind(COD,c(1,3))
LNZ = cbind(LNZ,c(3,1))

# Shakhtar Donetsk 2 - Metalist 1925 0 #

SDO = cbind(SDO,c(2,0))
MKH = cbind(MKH,c(0,2))

# Zorya Luhansk 0 - Rukh Vynnyky 0 #

ZLH = cbind(ZLH,c(0,0))
RLV = cbind(RLV,c(0,0))

# Dynamo Kiev 4 - Metalist 1925 2 #

DYK = cbind(DYK,c(4,2))
MKH = cbind(MKH,c(2,4))

## Gameweek 17 ##

# Polissya Zhytomyr 1 - Dnipro-1 1 #

PZH = cbind(PZH,c(1,1))
DNI = cbind(DNI,c(1,1))

# Shakhtar Donetsk 2 - Vers Rivne 0 #

SDO = cbind(SDO,c(2,0))
VRI = cbind(VRI,c(0,2))

# Kryvbas KR 2 - Zorya Luhansk 2 #

KKR = cbind(KKR,c(2,2))
ZLH = cbind(ZLH,c(2,2))

# Vorskla 1 - Rukh Vynnyky 1 #

VPO = cbind(VPO,c(1,1))
RLV = cbind(RLV,c(1,1))

# Chornomorets Odesa 1 - Kolos 0 #

COD = cbind(COD,c(1,0))
KKO = cbind(KKO,c(0,1))

# Metalist 1925 0 - Oleksandriya 3 #

MKH = cbind(MKH,c(0,3))
OLE = cbind(OLE,c(3,0))

# Dynamo Kyiv 2 - Obolon-Brovar 0 #

DYK = cbind(DYK,c(2,0))
OKI = cbind(OKI,c(0,2))

## Gameweek 18 ##

# LNZ 0 - Kryvbas KR 3 #

LNZ = cbind(LNZ,c(0,3))
KKR = cbind(KKR,c(3,0))

# Veres Rivne 0 - Kolos 2 #

VRI = cbind(VRI,c(0,2))
KKO = cbind(KKO,c(2,0))

# Dnipro-1 1 - Mynai 1 #

DNI = cbind(DNI,c(1,1))
MYN = cbind(MYN,c(1,1))

# Metalist 1925 2 - Dynamo Kyiv 4 #

MKH = cbind(MKH,c(2,4))
DYK = cbind(DYK,c(4,2))

# Rukh Vynnyky 1 - Polissya Zhytomyr 1 #

RLV = cbind(RLV,c(1,1))
PZH = cbind(PZH,c(1,1))

# Zorya Luhansk 1 - Vorskla 0 #

ZLH = cbind(ZLH,c(1,0))
VPO = cbind(VPO,c(0,1))

# Oleksandriya 0 - Shakhtar Donetsk 3 (FORFEIT) #

OLE = cbind(OLE,c(0,3))
SDO = cbind(SDO,c(3,0))

# Obolon-Brovar 1 - Chomomorets Odesa 1 #

OKI = cbind(OKI,c(1,1))
COD = cbind(COD,c(1,1))

## Gameweek 19 ##

# Polissya Zhytomyr 0 - LNZ 1 #

PZH = cbind(PZH,c(0,1))
LNZ = cbind(LNZ,c(1,0))

# Mynai 2 - Metalist 1925 0 #

MYN = cbind(MYN,c(2,0))
MKH = cbind(MKH,c(0,2))

# Vorskla 2 - Veres Rivne 1 #

VPO = cbind(VPO,c(2,1))
VRI = cbind(VRI,c(1,2))

# Dynamo Kyiv 1 - Chornomorets Odesa 0 #

DYK = cbind(DYK,c(1,0))
COD = cbind(COD,c(0,1))

# Kolos 0 - Rukh Vynnyky 1 #

KKO = cbind(KKO,c(0,1))
RLV = cbind(RLV,c(1,0))

# Obolon-Brovar 0 - Dnipro-1 1 #

OKI = cbind(OKI,c(0,1))
DNI = cbind(DNI,c(1,0))

# Oleksandriya 0 - Zorya Luhansk 0 #

OLE = cbind(OLE,c(0,0))
ZLH = cbind(ZLH,c(0,0))

# Shakhtar Donetsk 5 - Kryvbas KR 2 #

SDO = cbind(SDO,c(5,2))
KKR = cbind(KKR,c(2,5))

## Gameweek 20 ##

# Zorya Luhansk 2 - Mynai 0 #

ZLH = cbind(ZLH,c(2,0))
MYN = cbind(MYN,c(0,2))

# Veres Rivne 1 - Dynamo Kyiv 1 #

VRI = cbind(VRI,c(1,1))
DYK = cbind(DYK,c(1,1))

# Dnipro-1 0 - Rukh Vynnyky 1 #

DNI = cbind(DNI,c(0,1))
RLV = cbind(RLV,c(1,0))

# Metalist 1925 1 - LNZ 1 #

MKH = cbind(MKH,c(1,1))
LNZ = cbind(LNZ,c(1,1))

# Shakhtar Donetsk 3 - Kolos 2 #

SDO = cbind(SDO,c(3,2))
KKO = cbind(KKO,c(2,3))

# Chornomorets Odesa 0 - Vorskla 1 #

COD = cbind(COD,c(0,1))
VPO = cbind(VPO,c(1,0))

# Polissya Zhytomyr 1 - Oleksandriya 2 #

PZH = cbind(PZH,c(1,2))
OLE = cbind(OLE,c(2,1))

# Kryvbas KR 1 - Obolon-Brovar 0 #

KKR = cbind(KKR,c(1,0))
OKI = cbind(OKI,c(0,1))

## Gameweek 21 ##

# LNZ 1 - Dnipro-1 1 #

LNZ = cbind(LNZ,c(1,1))
DNI = cbind(DNI,c(1,1))

# Dynamo Kyiv 2 - Zorya Luhansk 0 #

DYK = cbind(DYK,c(2,0))
ZLH = cbind(ZLH,c(0,2))

# Shakhtar Donetsk 2 - Mynai 0 #

SDO = cbind(SDO,c(2,0))
MYN = cbind(MYN,c(0,2))

# Oleksandriya 1 - Vorskla 0 #

OLE = cbind(OLE,c(1,0))
VPO = cbind(VPO,c(0,1))

# Metalist 1925 1 - Rukh Vynnyky 4 #

MKH = cbind(MKH,c(1,4))
RLV = cbind(RLV,c(4,1))

# Obolon-Brovar 1 - Polissya Zhytomyr 0 #

OKI = cbind(OKI,c(1,0))
PZH = cbind(PZH,c(0,1))

# Kryvbas KR 1 - Kolos 0 #

KKR = cbind(KKR,c(1,0))
KKO = cbind(KKO,c(0,1))

# Chornomorets Odesa 0 - Veres Rivne 1 #

COD = cbind(COD,c(0,1))
VRI = cbind(VRI,c(1,0))

# LNZ 1 - Mynai 2 #

LNZ = cbind(LNZ,c(1,2))
MYN = cbind(MYN,c(2,1))

## Gameweek 22 ##

# Obolon-Brovar 0 - Shakhtar Donetsk 3 #

OKI = cbind(OKI,c(0,3))
SDO = cbind(SDO,c(3,0))

# Polissya Zhytomyr 1 - Chornomorets Odesa 4 #

PZH = cbind(PZH,c(1,4))
COD = cbind(COD,c(4,1))

# Veres Rivne 0 - Kryvbas KR 2 #

VRI = cbind(VRI,c(0,2))
KKR = cbind(KKR,c(2,0))

# Mynai 2 - Oleksandriya 2 #

MYN = cbind(MYN,c(2,2))
OLE = cbind(OLE,c(2,2))

# Zorya Luhansk 2 - Metalist 1925 1 #

ZLH = cbind(ZLH,c(2,1))
MKH = cbind(MKH,c(1,2))

# Vorskla 1 - Dynamo Kyiv 5 #

VPO = cbind(VPO,c(1,5))
DYK = cbind(DYK,c(5,1))

# Kolos 0 - Dnipro-1 2 #

KKO = cbind(KKO,c(0,2))
DNI = cbind(DNI,c(2,0))

# Rukh Vynnyky 1 - LNZ 0 #

RLV = cbind(RLV,c(1,0))
LNZ = cbind(LNZ,c(0,1))

# Zorya Luhansk 0 - Dynamo Kyiv 3 #

ZLH = cbind(ZLH,c(0,3))
DYK = cbind(DYK,c(3,0))

## Gameweek 23 ##

# Veres Rivne 3 - Obolon-Brovar 0 #

VRI = cbind(VRI,c(3,0))
OKI = cbind(OKI,c(0,3))

# Chornomorets Odesa 3 - Oleksandriya 2 #

COD = cbind(COD,c(3,2))
OLE = cbind(OLE,c(2,3))

# Kolos 1 - Metalist 1925 #

KKO = cbind(KKO,c(1,1))
MKH = cbind(MKH,c(1,1))

# Shakhtar Donetsk 3 - Rukh Vynnyky 1 #

SDO = cbind(SDO,c(3,1))
RLV = cbind(RLV,c(1,3))

# Mynai 2 - Polissya Zhytomyr 3 #

MYN = cbind(MYN,c(2,3))
PZH = cbind(PZH,c(3,2))

# Dynamo Kyiv 1 - LNZ 1 #

DYK = cbind(DYK,c(1,1))
LNZ = cbind(LNZ,c(1,1))

# Kryvbas KR 1 - Vorskla 1 #

KKR = cbind(KKR,c(1,1))
VPO = cbind(VPO,c(1,1))

# Dnipro-1 2 - Zorya Luhansk 2 #

DNI = cbind(DNI,c(2,2))
ZLH = cbind(ZLH,c(2,2))

## Gameweek 24 ##

# Obolon-Brovar 1 - Mynai 1 #

OKI = cbind(OKI,c(1,1))
MYN = cbind(MYN,c(1,1))

# Oleksandriya 0 - Dynamo Kyiv 1 #

OLE = cbind(OLE,c(0,1))
DYK = cbind(DYK,c(1,0))

# Rukh Vynnyky 1 - Kryvbas KR 1 #

RLV = cbind(RLV,c(1,1))
KKR = cbind(KKR,c(1,1))

# Vorskla 0 - Shakhtar Donetsk 1 #

VPO = cbind(VPO,c(0,1))
SDO = cbind(SDO,c(1,0))

# Zorya Luhansk 1 - Chornomorets Odesa 0 #

ZLH = cbind(ZLH,c(1,0))
COD = cbind(COD,c(0,1))

# Polissya Zhytomyr 1 - Kolos 0 #

PZH = cbind(PZH,c(1,0))
KKO = cbind(KKO,c(0,1))

# LNZ 1 - Veres Rivne 0 #

LNZ = cbind(LNZ,c(1,0))
VRI = cbind(VRI,c(0,1))

# Metalist 1925 1 - Dnipro-1 1 #

MKH = cbind(MKH,c(1,1))
DNI = cbind(DNI,c(1,1))

# Oleksandriya 2 - Obolon-Brovar 2 #

OLE = cbind(OLE,c(2,2))
OKI = cbind(OKI,c(2,2))

# Mynai 1 - Dynamo Kyiv 3 #

MYN = cbind(MYN,c(1,3))
DYK = cbind(DYK,c(3,1))

# Zorya Luhansk 1 - Shakhtar Donetsk 3 #

ZLH = cbind(ZLH,c(1,3))
SDO = cbind(SDO,c(3,1))

## Gameweek 25 ##

# Chornomorets Odesa 1 - Kryvbas KR 2 #

COD = cbind(COD,c(1,2))
KKR = cbind(KKR,c(2,1))

# Vorskla 0 - Kolos 2 #

VPO = cbind(VPO,c(0,2))
KKO = cbind(KKO,c(2,0))

# Veres Rivne 1 - Dnipro-1 1 #

VRI = cbind(VRI,c(1,1))
DNI = cbind(DNI,c(1,1))

# Oleksandriya 1 - LNZ 2 #

OLE = cbind(OLE,c(1,2))
LNZ = cbind(LNZ,c(2,1))

# Dynamo Kyiv 3 - Polissya Zhtomyr 0 #

DYK = cbind(DYK,c(3,0))
PZH = cbind(PZH,c(0,3))

# Mynai 1 - Rukh Vynnyky 1 #

MYN = cbind(MYN,c(1,1))
RLV = cbind(RLV,c(1,1))

# Metalist 1925 1 - Obolon-Brovar 1 #

MKH = cbind(MKH,c(1,1))
OKI = cbind(OKI,c(1,1))

# Shakhtar Donetsk 2 - Zorya Luhansk 1 #

SDO = cbind(SDO,c(2,1))
ZLH = cbind(ZLH,c(1,2))

## Gameweek 26 ##

# Mynai 2 - Chornomorets Odesa 0 #

MYN = cbind(MYN,c(2,0))
COD = cbind(COD,c(0,2))

# Dnipro-1 1 - Dynamo Kyiv 2 #

DNI = cbind(DNI,c(1,2))
DYK = cbind(DYK,c(2,1))

# LNZ 0 - Shakhtar Donetsk 3 #

LNZ = cbind(LNZ,c(0,3))
SDO = cbind(SDO,c(3,0))

# Rukh Vynnyky 3 - Veres Rivne 1 #

RLV = cbind(RLV,c(3,1))
VRI = cbind(VRI,c(1,3))

# Zorya Luhansk 0 - Obolon-Brovar 0 #

ZLH = cbind(ZLH,c(0,0))
OKI = cbind(OKI,c(0,0))

# Kolos 0 - Oleksandriya 0 #

KKO = cbind(KKO,c(0,0))
OLE = cbind(OLE,c(0,0))

# Kryvbas KR 3 - Metalist 1925 0 #

KKR = cbind(KKR,c(3,0))
MKH = cbind(MKH,c(0,3))

# Polissya Zhytomyr 1 - Vorskla 0 #

PZH = cbind(PZH,c(1,0))
VPO = cbind(VPO,c(0,1))

# Dynamo Kyiv 3 - Veres Rivne 0 #

DYK = cbind(DYK,c(3,0))
VRI = cbind(VRI,c(0,3))

# Chornomorets Odesa 1 - Shakhtar Donetsk 4 #

COD = cbind(COD,c(1,4))
SDO = cbind(SDO,c(4,1))

## Gameweek 27 ##

# Oleksandriya 2 - Rukh Vynnyky 2 #

OLE = cbind(OLE,c(2,2))
RLV = cbind(RLV,c(2,2))

# Obolon-Brovar 1 - LNZ 0 #

OKI = cbind(OKI,c(1,0))
LNZ = cbind(LNZ,c(0,1))

# Metalist 1925 3 - Vorskla 2 #

MKH = cbind(MKH,c(3,2))
VPO = cbind(VPO,c(2,3))

# Polissya Zhytomyr 1 - Zorya Luhansk 1 #

PZH = cbind(PZH,c(1,1))
ZLH = cbind(ZLH,c(1,1))

# Dynamo Kyiv 5 - Kolos 0 #

DYK = cbind(DYK,c(5,0))
KKO = cbind(KKO,c(0,5))

# Shakhtar Donetsk 3 - Chornomorets Odesa 0 #

SDO = cbind(SDO,c(3,0))
COD = cbind(COD,c(0,3))

# Dnipro-1 1 - Kryvbas KR 0 #

DNI = cbind(DNI,c(1,0))
KKR = cbind(KKR,c(0,1))

# Veres Rivne 3 - Mynai 1 #

VRI = cbind(VRI,c(3,1))
MYN = cbind(MYN,c(1,3))

# Kolos 0 - Zorya Luhansk 1 #

KKO = cbind(KKO,c(0,1))
ZLH = cbind(ZLH,c(1,0))

## Gameweek 28 ##

# Vorskla 2 - Mynai 3 #

VPO = cbind(VPO,c(2,3))
MYN = cbind(MYN,c(3,2))

# Obolon-Brovar 0 - Rukh Vynnyky 0 #

OKI = cbind(OKI,c(0,0))
RLV = cbind(RLV,c(0,0))

# Shakhtar Donetsk 1 - Dynamo Kyiv 0 #

SDO = cbind(SDO,c(1,0))
DYK = cbind(DYK,c(0,1))

# Oleksandriya 1 - Dnipro-1 0 #

OLE = cbind(OLE,c(1,0))
DNI = cbind(DNI,c(0,1))

# Chornomorets Odesa 3 - Metalist 1925 0 #

COD = cbind(COD,c(3,0))
MKH = cbind(MKH,c(0,3))

# Kryvbas KR 0 - Polissya Zhytomyr 1 #

KKR = cbind(KKR,c(0,1))
PZH = cbind(PZH,c(1,0))

# Kolos 1 - LNZ 3 #

KKO = cbind(KKO,c(1,3))
LNZ = cbind(LNZ,c(3,1))

# Zorya Luhansk 1 - Veres Rivne 1 #

ZLH = cbind(ZLH,c(1,1))
VRI = cbind(VRI,c(1,1))

## Gameweek 29 ##

# Dynamo Kyiv 3 - Kryvbas KR 1 #

DYK = cbind(DYK,c(3,1))
KKR = cbind(KKR,c(1,3))

# LNZ 2 - Zorya Luhansk 1 #

LNZ = cbind(LNZ,c(2,1))
ZLH = cbind(ZLH,c(1,2))

# Mynai 3 - Kolos 2 #

MYN = cbind(MYN,c(3,2))
KKO = cbind(KKO,c(2,3))

# Metalist 1925 3 - Polissya Zhytomyr 3 #

MKH = cbind(MKH,c(3,3))
PZH = cbind(PZH,c(3,3))

# Dnipro-1 1 - Shakhtar Donetsk 1 #

DNI = cbind(DNI,c(1,1))
SDO = cbind(SDO,c(1,1))

# Rukh Vynnyky 2 - Chornomorets Odesa 0 #

RLV = cbind(RLV,c(2,0))
COD = cbind(COD,c(0,2))

# Vorskla 3 - Obolon-Brovar 1 #

VPO = cbind(VPO,c(3,1))
OKI = cbind(OKI,c(1,3))

# Veres Rivne 2 - Oleksandriya 2 #

VRI = cbind(VRI,c(2,2))
OLE = cbind(OLE,c(2,2))

## Gameweek 30 ##

# LNZ 1 - Vorskla 0 #

LNZ = cbind(LNZ,c(1,0))
VPO = cbind(VPO,c(0,1))

# Obolon-Brovar 0 - Oleksandriya 3 #

OKI = cbind(OKI,c(0,3))
OLE = cbind(OLE,c(3,0))

# Kryvbas KR 3 - Mynai 0 #

KKR = cbind(KKR,c(3,0))
MYN = cbind(MYN,c(0,3))

# Rukh Vynnyky 1 - Dynamo Kyiv 2 #

RLV = cbind(RLV,c(1,2))
DYK = cbind(DYK,c(2,1))

# Polissya Zhytomyr 2 - Shakhtar Donetsk 0 #

PZH = cbind(PZH,c(2,0))
SDO = cbind(SDO,c(0,2))

# Metalist 1925 1 - Veres Rivne 2 #

MKH = cbind(MKH,c(1,2))
VRI = cbind(VRI,c(2,1))

# Chornomorets Odesa 0 - Dnipro-1 2 #

COD = cbind(COD,c(0,2))
DNI = cbind(DNI,c(2,0))

# Zorya Luhansk 0 - Kolos 1 #

ZLH = cbind(ZLH,c(0,1))
KKO = cbind(KKO,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]
}

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

table