### 1. Create table ###

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

teams = c("EBR","ELV","MAG","DUS","GRF","HSV","HAN","HRO","BCS",
          "HKI","FCK","KSC","NUR","SCP","S04","PAU","OSN","WEH")   # 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 ##

# Hamburger SV 5 - Schalke 3 #

HSV = matrix(c(5,3),nrow=2)
S04 = matrix(c(3,5),nrow=2)

# 1. FCK 1 - FC St Pauli 2 #

FCK = matrix(c(1,2),nrow=2)
PAU = matrix(c(2,1),nrow=2)

# Wehen Wiesbaden 1 - 1. FC Magdeburg 1 #

WEH = matrix(c(1,1),nrow=2)
MAG = matrix(c(1,1),nrow=2)

# Vfl Osnabruck 2 - Karlsruher 3 #

OSN = matrix(c(2,3),nrow=2)
KSC = matrix(c(3,2),nrow=2)

# Hannover 96 2 - SV Elversberg 2 #

HAN = matrix(c(2,2),nrow=2)
ELV = matrix(c(2,2),nrow=2)

# Dusseldorf 1 - Hertha 0 #

DUS = matrix(c(1,0),nrow=2)
BCS = matrix(c(0,1),nrow=2)

# Eintracht Braunschweig 0 - Holstein Kiel 1 #

EBR = matrix(c(0,1),nrow=2)
HKI = matrix(c(1,0),nrow=2)

# Hansa 2 - Nurnberg 0 #

HRO = matrix(c(2,0),nrow=2)
NUR = matrix(c(0,2),nrow=2)

# Furth 5 - Paderborn 0 #

GRF = matrix(c(5,0),nrow=2)
SCP = matrix(c(0,5),nrow=2)

## Gameweek 2 ##

# Hertha 0 - Wehen Wiesbaden 1 #

BCS = cbind(BCS,c(0,1))
WEH = cbind(WEH,c(1,0))

# Paderborn 1 - Vfl Osnabruck 1 #

SCP = cbind(SCP,c(1,1))
OSN = cbind(OSN,c(1,1))

# SV Elversberg 1 - Hansa 2 #

ELV = cbind(ELV,c(1,2))
HRO = cbind(HRO,c(2,1))

# FC St. Pauli 0 - Dusseldorf 0 #

PAU = cbind(PAU,c(0,0))
DUS = cbind(DUS,c(0,0))

# Holstein Kiel 2 - Furth 1 #

HKI = cbind(HKI,c(2,1))
GRF = cbind(GRF,c(1,2))

# Schalke 3 - 1. FCK 0 #

S04 = cbind(S04,c(3,0))
FCK = cbind(FCK,c(0,3))

# Karlsruher 2 - Hamburger SV 2 #

KSC = cbind(KSC,c(2,2))
HSV = cbind(HSV,c(2,2))

# Nurnberg 2 - Hannover 96 2 #

NUR = cbind(NUR,c(2,2))
HAN = cbind(HAN,c(2,2))

# 1. FC Magdeburg 2 - Eintracht Braunschweig 1 #

MAG = cbind(MAG,c(2,1))
EBR = cbind(EBR,c(1,2))

## Gameweek 3 ##

# 1. FCK 3 - SV Elversberg 2 #

FCK = cbind(FCK,c(3,2))
ELV = cbind(ELV,c(2,3))

# Wehen Wiesbaden 1 - Karlsruher 0 #

WEH = cbind(WEH,c(1,0))
KSC = cbind(KSC,c(0,1))

# Dusseldorf 1 - Paderborn 2 #

DUS = cbind(DUS,c(1,2))
SCP = cbind(SCP,c(2,1))

# Hansa 1 - Hannover 96 2 #

HRO = cbind(HRO,c(1,2))
HAN = cbind(HAN,c(2,1))

# Furth 0 - FC St. Pauli 0 #

GRF = cbind(GRF,c(0,0))
PAU = cbind(PAU,c(0,0))

# Hamburger SV 3 - Hertha 0 #

HSV = cbind(HSV,c(3,0))
BCS = cbind(BCS,c(0,3))

# Holstein Kiel 2 - 1. FC Magdeburg 4 #

HKI = cbind(HKI,c(2,4))
MAG = cbind(MAG,c(4,2))

# Vfl Osnabruck 2 - Nurnberg 3 #

OSN = cbind(OSN,c(2,3))
NUR = cbind(NUR,c(3,2))

# Eintracht Braunschweig 1 - Schalke 0 #

EBR = cbind(EBR,c(1,0))
S04 = cbind(S04,c(0,1))

## Gameweek 4 ##

# Schalke 0 - Holstein Kiel 2 #

S04 = cbind(S04,c(0,2))
HKI = cbind(HKI,c(2,0))

# Paderborn 1 - 1. FCK 2 #

SCP = cbind(SCP,c(1,2))
FCK = cbind(FCK,c(2,1))

# SV Elversberg 0 - Dusseldorf 5 #

ELV = cbind(ELV,c(0,5))
DUS = cbind(DUS,c(5,0))

# Hansa 2 - Vfl Osnabruck 1 #

HRO = cbind(HRO,c(2,1))
OSN = cbind(OSN,c(1,2))

# Hertha 5 - Furth 0 #

BCS = cbind(BCS,c(5,0))
GRF = cbind(GRF,c(0,5))

# Hannover 96 0 - Hamburger SV 1 #

HAN = cbind(HAN,c(0,1))
HSV = cbind(HSV,c(1,0))

# FC St Pauli 0 - 1. FC Magdeburg 0 #

PAU = cbind(PAU,c(0,0))
MAG = cbind(MAG,c(0,0))

# Karlsruher 2 - Eintracht Braunschweig 0 #

KSC = cbind(KSC,c(2,0))
EBR = cbind(EBR,c(0,2))

# Nurnberg 2 - Wehen Wiesbaden 1 #

NUR = cbind(NUR,c(2,1))
WEH = cbind(WEH,c(1,2))

## Gameweek 5 ##

# Eintracht Braunschweig 1 - FC St. Pauli 1 #

EBR = cbind(EBR,c(1,1))
PAU = cbind(PAU,c(1,1))

# Dusseldorf 3 - Karlsruher 1 #

DUS = cbind(DUS,c(3,1))
KSC = cbind(KSC,c(1,3))

# 1. FC Magdeburg 6 - Hertha 4 #

MAG = cbind(MAG,c(6,4))
BCS = cbind(BCS,c(4,6))

# Wehen Wiesbaden 1 - Schalke 1 #

WEH = cbind(WEH,c(1,1))
S04 = cbind(S04,c(1,1))

# Holstein Kiel 2 - Paderborn 1 #

HKI = cbind(HKI,c(2,1))
SCP = cbind(SCP,c(1,2))

# 1. FCK 3 - Nurnberg 1 #

FCK = cbind(FCK,c(3,1))
NUR = cbind(NUR,c(1,3))

# Hamburger SV 2 - Hansa 0 #

HSV = cbind(HSV,c(2,0))
HRO = cbind(HRO,c(0,2))

# Furth 1 - Hannover 96 3 #

GRF = cbind(GRF,c(1,3))
HAN = cbind(HAN,c(3,1))

# Vfl Osnabruck 0 - SV Elversberg 1 #

OSN = cbind(OSN,c(0,1))
ELV = cbind(ELV,c(1,0))

## Gameweek 6 ##

# Nurnberg 1 - Furth 1 #

NUR = cbind(NUR,c(1,1))
GRF = cbind(GRF,c(1,1))

# Paderborn 2 - Wehen Wiesbaden 1 #

SCP = cbind(SCP,c(2,1))
WEH = cbind(WEH,c(1,2))

# SV Elversberg 2 - Hamburger SV 1 #

ELV = cbind(ELV,c(2,1))
HSV = cbind(HSV,c(1,2))

# Hansa 1 - Dusseldorf 3 #

HRO = cbind(HRO,c(1,3))
DUS = cbind(DUS,c(3,1))

# Karlsruher 1 - 1. FCK 1 #

KSC = cbind(KSC,c(1,1))
FCK = cbind(FCK,c(1,1))

# Schalke 4 - 1. FC Magdeburg 3 #

S04 = cbind(S04,c(4,3))
MAG = cbind(MAG,c(3,4))

# FC St. Pauli 5 - Holstein Kiel 1 #

PAU = cbind(PAU,c(5,1))
HKI = cbind(HKI,c(1,5))

# Hertha 3 - Eintracht Braunschweig 0 #

BCS = cbind(BCS,c(3,0))
EBR = cbind(EBR,c(0,3))

# Hannover 96 7 - Vfl Osnabruck 0 #

HAN = cbind(HAN,c(7,0))
OSN = cbind(OSN,c(0,7))

## Gameweek 7 ##

# Vfl Osnabruck 2 - Hamburger SV 1 #

OSN = cbind(OSN,c(2,1))
HSV = cbind(HSV,c(1,2))

# 1. FC Magdeburg 1 - Paderborn 1 #

MAG = cbind(MAG,c(1,1))
SCP = cbind(SCP,c(1,1))

# Wehen Wiesbaden 0 - SV Elversberg 2 #

WEH = cbind(WEH,c(0,2))
ELV = cbind(ELV,c(2,0))

# Furth 4 - Karlsruher 3 #

GRF = cbind(GRF,c(4,3))
KSC = cbind(KSC,c(3,4))

# Eintracht Braunschweig 2 - Nurnberg 2 #

EBR = cbind(EBR,c(2,2))
NUR = cbind(NUR,c(2,2))

# FC St. Pauli 3 - Schalke 1 #

PAU = cbind(PAU,c(3,1))
S04 = cbind(S04,c(1,3))

# Dusseldorf 1 - Hannover 96 1 #

DUS = cbind(DUS,c(1,1))
HAN = cbind(HAN,c(1,1))

# Holstein Kiel 2 - Hertha 3 #

HKI = cbind(HKI,c(2,3))
BCS = cbind(BCS,c(3,2))

# 1. FCK 3 - Hansa 1 #

FCK = cbind(FCK,c(3,1))
HRO = cbind(HRO,c(1,3))

## Gameweek 8 ##

# Paderborn 3 - Schalke 1 #

SCP = cbind(SCP,c(3,1))
S04 = cbind(S04,c(1,3))

# Hamburger SV 1 - Dusseldorf 0 #

HSV = cbind(HSV,c(1,0))
DUS = cbind(DUS,c(0,1))

# Hansa 1 - Eintracht Braunschweig 0 #

HRO = cbind(HRO,c(1,0))
EBR = cbind(EBR,c(0,1))

# Karlsruher 0 - Holstein Kiel 2 #

KSC = cbind(KSC,c(0,2))
HKI = cbind(HKI,c(2,0))

# Hannover 96 2 - Wehen Wiesbaden 0 #

HAN = cbind(HAN,c(2,0))
WEH = cbind(WEH,c(0,2))

# Hertha 1 - FC St. Pauli 2 #

BCS = cbind(BCS,c(1,2))
PAU = cbind(PAU,c(2,1))

# Nurnberg 1 - 1. FC Magdeburg 0 #

NUR = cbind(NUR,c(1,0))
MAG = cbind(MAG,c(0,1))

# SV Elversberg 1 - Furth 1 #

ELV = cbind(ELV,c(1,1))
GRF = cbind(GRF,c(1,1))

# Vfl Osnabruck 2 - 1. FCK 2 #

OSN = cbind(OSN,c(2,2))
FCK = cbind(FCK,c(2,2))

## Gameweek 9 ##

# Dusseldorf 1 - Vfl Osnabruck 1 #

DUS = cbind(DUS,c(1,1))
OSN = cbind(OSN,c(1,1))

# 1. FCK 3 - Hannover 96 1 #

FCK = cbind(FCK,c(3,1))
HAN = cbind(HAN,c(1,3))

# Wehen Wiesbaden 1 - Hamburger SV 1 #

WEH = cbind(WEH,c(1,1))
HSV = cbind(HSV,c(1,1))

# 1. FC Magdeburg 1 - Karlsruher 1 #

MAG = cbind(MAG,c(1,1))
KSC = cbind(KSC,c(1,1))

# Furth 1 - Hansa 0 #

GRF = cbind(GRF,c(1,0))
HRO = cbind(HRO,c(0,1))

# FC St. Pauli 5 - Nurnberg 1 #

PAU = cbind(PAU,c(5,1))
NUR = cbind(NUR,c(1,5))

# Holstein Kiel 1 - SV Elversberg 1 #

HKI = cbind(HKI,c(1,1))
ELV = cbind(ELV,c(1,1))

# Eintracht Braunschweig 1 - Paderborn 3 #

EBR = cbind(EBR,c(1,3))
SCP = cbind(SCP,c(3,1))

# Schalke 1 - Hertha 2 #

S04 = cbind(S04,c(1,2))
BCS = cbind(BCS,c(2,1))

## Gameweek 10 ##

# SV Elversberg 3 - Eintracht Braunschweig 0 #

ELV = cbind(ELV,c(3,0))
EBR = cbind(EBR,c(0,3))

# Hannover 96 2 - 1. FC Magdeburg 1 #

HAN = cbind(HAN,c(2,1))
MAG = cbind(MAG,c(1,2))

# Paderborn 2 - FC St. Pauli 2 #

SCP = cbind(SCP,c(2,2))
PAU = cbind(PAU,c(2,2))

# Hamburger SV 2 - Furth 0 #

HSV = cbind(HSV,c(2,0))
GRF = cbind(GRF,c(0,2))

# Vfl Osnabruck 0 - Wehen Wiesbaden 2 #

OSN = cbind(OSN,c(0,2))
WEH = cbind(WEH,c(2,0))

# Dusseldorf 4 - 1. FCK 3 #

DUS = cbind(DUS,c(4,3))
FCK = cbind(FCK,c(3,4))

# Karlsruher 3 - Schalke 0 #

KSC = cbind(KSC,c(3,0))
S04 = cbind(S04,c(0,3))

# Hansa 1 - Holstein Kiel 3 #

HRO = cbind(HRO,c(1,3))
HKI = cbind(HKI,c(3,1))

# Nurnberg 3 - Hertha 1 #

NUR = cbind(NUR,c(3,1))
BCS = cbind(BCS,c(1,3))

## Gameweek 11 ##

# Eintracht Braunschweig 1 - Dusseldorf 4 #

EBR = cbind(EBR,c(1,4))
DUS = cbind(DUS,c(4,1))

# Furth 4 - Vfl Osnabruck 0 #

GRF = cbind(GRF,c(4,0))
OSN = cbind(OSN,c(0,4))

# FC St. Pauli 2 - Karlsruher 1 #

PAU = cbind(PAU,c(2,1))
KSC = cbind(KSC,c(1,2))

# Schalke 3 - Hannover 96 2 #

S04 = cbind(S04,c(3,2))
HAN = cbind(HAN,c(2,3))

# Hertha 3 - Paderborn 1 #

BCS = cbind(BCS,c(3,1))
SCP = cbind(SCP,c(1,3))

# 1. FCK 3 - Hamburger SV 3 #

FCK = cbind(FCK,c(3,3))
HSV = cbind(HSV,c(3,3))

# 1. FC Magdeburg 1 - SV Elversberg 2 #

MAG = cbind(MAG,c(1,2))
ELV = cbind(ELV,c(2,1))

# Holstein Kiel 0 - Nurnberg 2 #

HKI = cbind(HKI,c(0,2))
NUR = cbind(NUR,c(2,0))

# Wehen Wiesbaden 1 - Hansa 0 #

WEH = cbind(WEH,c(1,0))
HRO = cbind(HRO,c(0,1))

## Gameweek 12 ##

# Dusseldorf 1 - Wehen Wiesbaden 3 #

DUS = cbind(DUS,c(1,3))
WEH = cbind(WEH,c(3,1))

# SV Elversberg 0 - FC St. Pauli 2 #

ELV = cbind(ELV,c(0,2))
PAU = cbind(PAU,c(2,0))

# 1. FCK 0 - Furth 2 #

FCK = cbind(FCK,c(0,2))
GRF = cbind(GRF,c(2,0))

# Vfl Osnabruck 1 - Holstein Kiel 1 #

OSN = cbind(OSN,c(1,1))
HKI = cbind(HKI,c(1,1))

# Nurnberg 1 - Schalke 2 #

NUR = cbind(NUR,c(1,2))
S04 = cbind(S04,c(2,1))

# Hamburger SV 2 - 1. FC Magdeburg 0 #

HSV = cbind(HSV,c(2,0))
MAG = cbind(MAG,c(0,2))

# Hannover 96 2 - Eintracht Braunschweig 0 #

HAN = cbind(HAN,c(2,0))
EBR = cbind(EBR,c(0,2))

# Karlsruher 0 - Paderborn 3 #

KSC = cbind(KSC,c(0,3))
SCP = cbind(SCP,c(3,0))

# Hansa 0 - Hertha 0 #

HRO = cbind(HRO,c(0,0))
BCS = cbind(BCS,c(0,0))

## Gameweek 13 ##

# FC St. Pauli 0 - Hannover 96 0 #

PAU = cbind(PAU,c(0,0))
HAN = cbind(HAN,c(0,0))

# Schalke 1 - SV Elversberg 2 #

S04 = cbind(S04,c(1,2))
ELV = cbind(ELV,c(2,1))

# Paderborn 1 - Nurnberg 3 #

SCP = cbind(SCP,c(1,3))
NUR = cbind(NUR,c(3,1))

# Holstein Kiel 4 - Hamburger SV 2 #

HKI = cbind(HKI,c(4,2))
HSV = cbind(HSV,c(2,4))

# Eintracht Braunschweig 3 - Vfl Osnabruck 2 #

EBR = cbind(EBR,c(3,2))
OSN = cbind(OSN,c(2,3))

# Hertha 2 - Karlsruher 2 #

BCS = cbind(BCS,c(2,2))
KSC = cbind(KSC,c(2,2))

# 1. FC Magdeburg 1 - Hansa 2 #

MAG = cbind(MAG,c(1,2))
HRO = cbind(HRO,c(2,1))

# Furth 1 - Dusseldorf 0 #

GRF = cbind(GRF,c(1,0))
DUS = cbind(DUS,c(0,1))

# Wehen Wiesbaden 2 - 1. FCK 1 #

WEH = cbind(WEH,c(2,1))
FCK = cbind(FCK,c(1,2))

## Gameweek 14 ##

# Hamburger SV 2 - Eintracht Braunschweig 1 #

HSV = cbind(HSV,c(2,1))
EBR = cbind(EBR,c(1,2))

# Hannover 96 2 - Hertha 2 #

HAN = cbind(HAN,c(2,2))
BCS = cbind(BCS,c(2,2))

# Hansa 2 - FC St. Pauli 3 #

HRO = cbind(HRO,c(2,3))
PAU = cbind(PAU,c(3,2))

# Vfl Osnabruck 0 - 1. FC Magdeburg 2 #

OSN = cbind(OSN,c(0,2))
MAG = cbind(MAG,c(2,0))

# SV Elversberg 4 - Paderborn 1 #

ELV = cbind(ELV,c(4,1))
SCP = cbind(SCP,c(1,4))

# Dusseldorf 5 - Schalke 3 #

DUS = cbind(DUS,c(5,3))
S04 = cbind(S04,c(3,5))

# 1. FCK 0 - Holstein Kiel 3 #

FCK = cbind(FCK,c(0,3))
HKI = cbind(HKI,c(3,0))

# Furth 2 - Wehen Wiesbaden 0 #

GRF = cbind(GRF,c(2,0))
WEH = cbind(WEH,c(0,2))

# Karlsruher 4 - Nurnberg 1 #

KSC = cbind(KSC,c(4,1))
NUR = cbind(NUR,c(1,4))

## Gameweek 15 ##

# Schalke 4 - Vfl Osnabruck 0 #

S04 = cbind(S04,c(4,0))
OSN = cbind(OSN,c(0,4))

# FC St. Pauli 2 - Hamburger SV 2 #

PAU = cbind(PAU,c(2,2))
HSV = cbind(HSV,c(2,2))

# Eintracht Braunschweig 0 - Furth 1 #

EBR = cbind(EBR,c(0,1))
GRF = cbind(GRF,c(1,0))

# Nurnberg 0 - Dusseldorf 5 #

NUR = cbind(NUR,c(0,5))
DUS = cbind(DUS,c(5,0))

# Holstein Kiel 3 - Wehen Wiesbaden 2 #

HKI = cbind(HKI,c(3,2))
WEH = cbind(WEH,c(2,3))

# 1. FC Magdeburg 4 - 1. FCK 1 #

MAG = cbind(MAG,c(4,1))
FCK = cbind(FCK,c(1,4))

# Hertha 5 - SV Elversberg 1 #

BCS = cbind(BCS,c(5,1))
ELV = cbind(ELV,c(1,5))

# Paderborn 1 - Hannover 96 0 #

SCP = cbind(SCP,c(1,0))
HAN = cbind(HAN,c(0,1))

# Karlsruher 2 - Hansa 2 #

KSC = cbind(KSC,c(2,2))
HRO = cbind(HRO,c(2,2))

## Gameweek 16 ##

# Wehen Wiesbaden 1 - Eintracht Braunschweig 3 #

WEH = cbind(WEH,c(1,3))
EBR = cbind(EBR,c(3,1))

# Hannover 96 2 - Karlsruher 2 #

HAN = cbind(HAN,c(2,2))
KSC = cbind(KSC,c(2,2))

# Furth 1 - 1. FC Magdeburg 1 #

GRF = cbind(GRF,c(1,1))
MAG = cbind(MAG,c(1,1))

# 1. FCK 1 - Hertha 2 #

FCK = cbind(FCK,c(1,2))
BCS = cbind(BCS,c(2,1))

# Hamburger SV 1 - Paderborn 2 #

HSV = cbind(HSV,c(1,2))
SCP = cbind(SCP,c(2,1))

# Vfl Osnabruck 1 - FC St. Pauli 1 #

OSN = cbind(OSN,c(1,1))
PAU = cbind(PAU,c(1,1))

# Dusseldorf 0 - Holstein Kiel 1 #

DUS = cbind(DUS,c(0,1))
HKI = cbind(HKI,c(1,0))

# Hansa 0 - Schalke 2 #

HRO = cbind(HRO,c(0,2))
S04 = cbind(S04,c(2,0))

# SV Elversberg 0 - Nurnberg 1 #

ELV = cbind(ELV,c(0,1))
NUR = cbind(NUR,c(1,0))

## Gameweek 17 ##

# Paderborn 3 - Hansa 0 #

SCP = cbind(SCP,c(3,0))
HRO = cbind(HRO,c(0,3))

# Schalke 2 - Furth 2 #

S04 = cbind(S04,c(2,2))
GRF = cbind(GRF,c(2,2))

# 1. FC Magdeburg 2 - Dusseldorf 3 #

MAG = cbind(MAG,c(2,3))
DUS = cbind(DUS,c(3,2))

# Hertha 0 - Vfl Osnabruck 0 #

BCS = cbind(BCS,c(0,0))
OSN = cbind(OSN,c(0,0))

# Nurnberg 0 - Hamburger SV 2 #

NUR = cbind(NUR,c(0,2))
HSV = cbind(HSV,c(2,0))

# Holstein Kiel 3 - Hannover 96 0 #

HKI = cbind(HKI,c(3,0))
HAN = cbind(HAN,c(0,3))

# FC St Pauli 1 - Wehen Wiesbaden 1 #

PAU = cbind(PAU,c(1,1))
WEH = cbind(WEH,c(1,1))

# Karlsruher 3 - SV Elversberg 2 #

KSC = cbind(KSC,c(3,2))
ELV = cbind(ELV,c(2,3))

# Eintracht Braunschweig 2 - 1. FCK 1 #

EBR = cbind(EBR,c(2,1))
FCK = cbind(FCK,c(1,2))

## Gameweek 18 ##

# Holstein Kiel 1 - Eintracht Braunschweig 2 #

HKI = cbind(HKI,c(1,2))
EBR = cbind(EBR,c(2,1))

# Karlsruher 2 - Vfl Osnabruck 1 #

KSC = cbind(KSC,c(2,1))
OSN = cbind(OSN,c(1,2))

# Nurnberg 3 - Hansa 0 #

NUR = cbind(NUR,c(3,0))
HRO = cbind(HRO,c(0,3))

# SV Elversberg 2 - Hannover 96 2 #

ELV = cbind(ELV,c(2,2))
HAN = cbind(HAN,c(2,2))

# FC St Pauli 2 - 1. FCK 0 #

PAU = cbind(PAU,c(2,0))
FCK = cbind(FCK,c(0,2))

# Schalke 0 - Hamburger SV 2 #

S04 = cbind(S04,c(0,2))
HSV = cbind(HSV,c(2,0))

# 1. FC Magdeburg 1 - Wehen Wiesbaden 0 #

MAG = cbind(MAG,c(1,0))
WEH = cbind(WEH,c(0,1))

# Hertha 2 - Dusseldorf 2 #

BCS = cbind(BCS,c(2,2))
DUS = cbind(DUS,c(2,2))

# Paderborn 0 - Furth 1 #

SCP = cbind(SCP,c(0,1))
GRF = cbind(GRF,c(1,0))

## Gameweek 19 ##

# Hannover 96 3 - Nurnberg 0 #

HAN = cbind(HAN,c(3,0))
NUR = cbind(NUR,c(0,3))

# 1. FCK 4 - Schalke 1 #

FCK = cbind(FCK,c(4,1))
S04 = cbind(S04,c(1,4))

# Wehen Wiesbaden 3 - Hertha 1 #

WEH = cbind(WEH,c(3,1))
BCS = cbind(BCS,c(1,3))

# Hansa 2 - SV Elversberg 1 #

HRO = cbind(HRO,c(2,1))
ELV = cbind(ELV,c(1,2))

# VfL Osnabruck 0 - Paderborn 0 #

OSN = cbind(OSN,c(0,0))
SCP = cbind(SCP,c(0,0))

# Dusseldorf 1 - FC St Pauli 2 #

DUS = cbind(DUS,c(1,2))
PAU = cbind(PAU,c(2,1))

# Furth 2 - Holstein Kiel 1 #

GRF = cbind(GRF,c(2,1))
HKI = cbind(HKI,c(1,2))

# Hamburger SV 3 - Karlsruher 4 #

HSV = cbind(HSV,c(3,4))
KSC = cbind(KSC,c(4,3))

# Eintracht Braunschweig 1 - 1. FC Magdeburg 0 #

EBR = cbind(EBR,c(1,0))
MAG = cbind(MAG,c(0,1))

## Gameweek 20 ##

# Karlsruher 2 - Wehen Wiesbaden 2 #

KSC = cbind(KSC,c(2,2))
WEH = cbind(WEH,c(2,2))

# 1. FC Magdeburg 1 - Holstein Kiel 1 #

MAG = cbind(MAG,c(1,1))
HKI = cbind(HKI,c(1,1))

# Schalke 1 - Eintracht Braunschweig 0 #

S04 = cbind(S04,c(1,0))
EBR = cbind(EBR,c(0,1))

# FC St Pauli 3 - Furth 2 #

PAU = cbind(PAU,c(3,2))
GRF = cbind(GRF,c(2,3))

# Nurnberg 2 - VfL Osnabruck 2 #

NUR = cbind(NUR,c(2,2))
OSN = cbind(OSN,c(2,2))

# Hertha 1 - Hamburger SV 2 #

BCS = cbind(BCS,c(1,2))
HSV = cbind(HSV,c(2,1))

# Paderborn 4 - Dusseldorf 3 #

SCP = cbind(SCP,c(4,3))
DUS = cbind(DUS,c(3,4))

# Hannover 96 2 - Hansa 1 #

HAN = cbind(HAN,c(2,1))
HRO = cbind(HRO,c(1,2))

# SV Elversberg 2 - 1. FCK 1 #

ELV = cbind(ELV,c(2,1))
FCK = cbind(FCK,c(1,2))

## Gameweek 21 ##

# Hamburger SV 3 - Hannover 96 4 #

HSV = cbind(HSV,c(3,4))
HAN = cbind(HAN,c(4,3))

# Wehen Wiesbaden 1 - Nurnberg 1 #

WEH = cbind(WEH,c(1,1))
NUR = cbind(NUR,c(1,1))

# Dusseldorf 1 - SV Elversberg 1 #

DUS = cbind(DUS,c(1,1))
ELV = cbind(ELV,c(1,1))

# 1. FC Magdeburg 1 - FC St Pauli 0 #

MAG = cbind(MAG,c(1,0))
PAU = cbind(PAU,c(0,1))

# Eintracht Braunschweig 2 - Karlsruher 0 #

EBR = cbind(EBR,c(2,0))
KSC = cbind(KSC,c(0,2))

# 1. FCK 1 - Paderborn 2 #

FCK = cbind(FCK,c(1,2))
SCP = cbind(SCP,c(2,1))

# Furth 1 - Hertha 2 #

GRF = cbind(GRF,c(1,2))
BCS = cbind(BCS,c(2,1))

# VfL Osnabruck 0 - Hansa 0 #

OSN = cbind(OSN,c(0,0))
HRO = cbind(HRO,c(0,0))

# Holstein Kiel 1 - Schalke 0 #

HKI = cbind(HKI,c(1,0))
S04 = cbind(S04,c(0,1))

## Gameweek 22 ##

# Hannover 96 2 - Furth 1 #

HAN = cbind(HAN,c(2,1))
GRF = cbind(GRF,c(1,2))

# Hertha 3 - 1. FC Magdeburg 2 #

BCS = cbind(BCS,c(3,2))
MAG = cbind(MAG,c(2,3))

# Schalke 1 - Wehen Wiesbaden 0 #

S04 = cbind(S04,c(1,0))
WEH = cbind(WEH,c(0,1))

# Hansa 2 - Hamburger SV 2 #

HRO = cbind(HRO,c(2,2))
HSV = cbind(HSV,c(2,2))

# Paderborn 0 - Holstein Kiel 4 #

SCP = cbind(SCP,c(0,4))
HKI = cbind(HKI,c(4,0))

# Karlsruher 2 - Dusseldorf 2 #

KSC = cbind(KSC,c(2,2))
DUS = cbind(DUS,c(2,2))

# Nurnberg 1 - 1. FCK 1 #

NUR = cbind(NUR,c(1,1))
FCK = cbind(FCK,c(1,1))

# FC St Pauli 1 - Eintracht Braunschweig 0 #

PAU = cbind(PAU,c(1,0))
EBR = cbind(EBR,c(0,1))

# SV Elversberg 3 - VfL Osnabruck 1 #

ELV = cbind(ELV,c(3,1))
OSN = cbind(OSN,c(1,3))

## Gameweek 23 ##

# Wehen Wiesbaden 1 - Paderborn 2 #

WEH = cbind(WEH,c(1,2))
SCP = cbind(SCP,c(2,1))

# Holstein Kiel 3 - FC St Pauli 4 #

HKI = cbind(HKI,c(3,4))
PAU = cbind(PAU,c(4,3))

# 1. FCK 0 - Karlsruher 4 #

FCK = cbind(FCK,c(0,4))
KSC = cbind(KSC,c(4,0))

# VfL Osnabruck 1 - Hannover 96 0 #

OSN = cbind(OSN,c(1,0))
HAN = cbind(HAN,c(0,1))

# Eintracht Braunschweig 1 - Hertha 1 #

EBR = cbind(EBR,c(1,1))
BCS = cbind(BCS,c(1,1))

# 1. FC Magdeburg 3 - Schalke 0 #

MAG = cbind(MAG,c(3,0))
S04 = cbind(S04,c(0,3))

# Furth 2 - Nurnberg 1 #

GRF = cbind(GRF,c(2,1))
NUR = cbind(NUR,c(1,2))

# Hamburger SV 1 - SV Elversberg 0 #

HSV = cbind(HSV,c(1,0))
ELV = cbind(ELV,c(0,1))

# Dusseldorf 2 - Hansa 0 #

DUS = cbind(DUS,c(2,0))
HRO = cbind(HRO,c(0,2))

## Gameweek 24 ##

# Schalke 3 - FC St Pauli 1 #

S04 = cbind(S04,c(3,1))
PAU = cbind(PAU,c(1,3))

# Hertha 2 - Holstein Kiel 2 #

BCS = cbind(BCS,c(2,2))
HKI = cbind(HKI,c(2,2))

# Hannover 96 2 - Dusseldorf 2 #

HAN = cbind(HAN,c(2,2))
DUS = cbind(DUS,c(2,2))

# Hansa 0 - 1. FCK 3 #

HRO = cbind(HRO,c(0,3))
FCK = cbind(FCK,c(3,0))

# Nurnberg 2 - Eintracht Braunschweig 1 #

NUR = cbind(NUR,c(2,1))
EBR = cbind(EBR,c(1,2))

# Karlsruher 4 - Furth 0 #

KSC = cbind(KSC,c(4,0))
GRF = cbind(GRF,c(0,4))

# Hamburger SV 1 - VfL Osnabruck 2 #

HSV = cbind(HSV,c(1,2))
OSN = cbind(OSN,c(2,1))

# SV Elversberg 0 - Wehen Wiesbaden 3 #

ELV = cbind(ELV,c(0,3))
WEH = cbind(WEH,c(3,0))

# Paderborn 0 - 1. FC Magdeburg 0 #

SCP = cbind(SCP,c(0,0))
MAG = cbind(MAG,c(0,0))

## Gameweek 25 ##

# Eintracht Braunschweig 0 - Hansa 1 #

EBR = cbind(EBR,c(0,1))
HRO = cbind(HRO,c(1,0))

# Dusseldorf 2 - Hamburger SV 0 #

DUS = cbind(DUS,c(2,0))
HSV = cbind(HSV,c(0,2))

# Wehen Wiesbaden 1 - Hannover 96 1 #

WEH = cbind(WEH,c(1,1))
HAN = cbind(HAN,c(1,1))

# Schalke 3 - Paderborn 3 #

S04 = cbind(S04,c(3,3))
SCP = cbind(SCP,c(3,3))

# Holstein Kiel 1 - Karlsruher 0 #

HKI = cbind(HKI,c(1,0))
KSC = cbind(KSC,c(0,1))

# 1. FC Magdeburg 0 - Nurnberg 1 #

MAG = cbind(MAG,c(0,1))
NUR = cbind(NUR,c(1,0))

# FC St Pauli 2 - Hertha 0 #

PAU = cbind(PAU,c(2,0))
BCS = cbind(BCS,c(0,2))

# Furth 1 - SV Elversberg 4 #

GRF = cbind(GRF,c(1,4))
ELV = cbind(ELV,c(4,1))

# 1. FCK 3 - VfL Osnabruck 2 #

FCK = cbind(FCK,c(3,2))
OSN = cbind(OSN,c(2,3))

## Gameweek 26 ##

# VfL Osnabruck 0 - Dusseldorf 4 #

OSN = cbind(OSN,c(0,4))
DUS = cbind(DUS,c(4,0))

# Paderborn 1 - Eintracht Braunschweig 2 #

SCP = cbind(SCP,c(1,2))
EBR = cbind(EBR,c(2,1))

# SV Elversberg 0 - Holstein Kiel 2 #

ELV = cbind(ELV,c(0,2))
HKI = cbind(HKI,c(2,0))

# Hansa 1 - Furth 0 #

HRO = cbind(HRO,c(1,0))
GRF = cbind(GRF,c(0,1))

# Nurnberg 0 - FC St Pauli 2 #

NUR = cbind(NUR,c(0,2))
PAU = cbind(PAU,c(2,0))

# Hannover 96 1 - 1. FCK 1 #

HAN = cbind(HAN,c(1,1))
FCK = cbind(FCK,c(1,1))

# Hertha 5 - Schalke 2 #

BCS = cbind(BCS,c(5,2))
S04 = cbind(S04,c(2,5))

# Hamburger SV 3 - Wehen Wiesbaden 0 #

HSV = cbind(HSV,c(3,0))
WEH = cbind(WEH,c(0,3))

# Karlsruher 7 - 1. FC Magdeburg 0 #

KSC = cbind(KSC,c(7,0))
MAG = cbind(MAG,c(0,7))

## Gameweek 27 ##

# Eintracht Braunschweig 5 - SV Elversberg 0 #

EBR = cbind(EBR,c(5,0))
ELV = cbind(ELV,c(0,5))

# Holstein Kiel 2 - Hansa 0 #

HKI = cbind(HKI,c(2,0))
HRO = cbind(HRO,c(0,2))

# 1. FCK 1 - Dusseldorf 3 #

FCK = cbind(FCK,c(1,3))
DUS = cbind(DUS,c(3,1))

# Hertha 3 - Nurnberg 3 #

BCS = cbind(BCS,c(3,3))
NUR = cbind(NUR,c(3,3))

# Wehen Wiesbaden 0 - VfL Osnabruck 1 #

WEH = cbind(WEH,c(0,1))
OSN = cbind(OSN,c(1,0))

# FC St Pauli 2 - Paderborn 1 #

PAU = cbind(PAU,c(2,1))
SCP = cbind(SCP,c(1,2))

# Schalke 0 - Karlsruher 0 #

S04 = cbind(S04,c(0,0))
KSC = cbind(KSC,c(0,0))

# 1. FC Magdeburg 0 - Hannover 96 3 #

MAG = cbind(MAG,c(0,3))
HAN = cbind(HAN,c(3,0))

# Furth 1 - Hamburger SV 1 #

GRF = cbind(GRF,c(1,1))
HSV = cbind(HSV,c(1,1))

## Gameweek 28 ##

# Hansa 3 - Wehen Wiesbaden 1 #

HRO = cbind(HRO,c(3,1))
WEH = cbind(WEH,c(1,3))

# Paderborn 2 - Hertha 3 #

SCP = cbind(SCP,c(2,3))
BCS = cbind(BCS,c(3,2))

# Hamburger SV 2 - 1. FCK 1 #

HSV = cbind(HSV,c(2,1))
FCK = cbind(FCK,c(1,2))

# Nurnberg 0 - Holstein Kiel 4 #

NUR = cbind(NUR,c(0,4))
HKI = cbind(HKI,c(4,0))

# SV Elversberg 0 - 1. FC Magdeburg 0 #

ELV = cbind(ELV,c(0,0))
MAG = cbind(MAG,c(0,0))

# Karlsruher 2 - FC St Pauli 1 #

KSC = cbind(KSC,c(2,1))
PAU = cbind(PAU,c(1,2))

# VfL Osnabruck 2 - Furth 0 #

OSN = cbind(OSN,c(2,0))
GRF = cbind(GRF,c(0,2))

# Hannover 96 1 - Schalke 1 #

HAN = cbind(HAN,c(1,1))
S04 = cbind(S04,c(1,1))

# Dusseldorf 2 - Eintracht Braunschweig 0 #

DUS = cbind(DUS,c(2,0))
EBR = cbind(EBR,c(0,2))

## Gameweek 29 ##

# Furth 2 - 1. FCK 1 #

GRF = cbind(GRF,c(2,1))
FCK = cbind(FCK,c(1,2))

# Hertha 4 - Hansa 0 #

BCS = cbind(BCS,c(4,0))
HRO = cbind(HRO,c(0,4))

# Paderborn 1 - Karlsruher 1 #

SCP = cbind(SCP,c(1,1))
KSC = cbind(KSC,c(1,1))

# Wehen Wiesbaden 0 - Dusseldorf 2 #

WEH = cbind(WEH,c(0,2))
DUS = cbind(DUS,c(2,0))

# Holstein Kiel 4 - VfL Osnabruck 0 #

HKI = cbind(HKI,c(4,0))
OSN = cbind(OSN,c(0,4))

# Schalke 2 - Nurnberg 0 #

S04 = cbind(S04,c(2,0))
NUR = cbind(NUR,c(0,2))

# 1. FC Magdeburg 2 - Hamburger SV 2 #

MAG = cbind(MAG,c(2,2))
HSV = cbind(HSV,c(2,2))

# FC St. Pauli 3 - SV Elversberg 4 #

PAU = cbind(PAU,c(3,4))
ELV = cbind(ELV,c(4,3))

# Eintracht Braunschweig 0 - Hannover 96 0 #

EBR = cbind(EBR,c(0,0))
HAN = cbind(HAN,c(0,0))

## Gameweek 30 ##

# SV Elversberg 1 - Schalke 1 #

ELV = cbind(ELV,c(1,1))
S04 = cbind(S04,c(1,1))

# Nurnberg 0 - Paderborn 2 #

NUR = cbind(NUR,c(0,2))
SCP = cbind(SCP,c(2,0))

# 1. FCK 1 - Wehen Wiesbaden 1 #

FCK = cbind(FCK,c(1,1))
WEH = cbind(WEH,c(1,1))

# Dusseldorf 1 - Furth 0 #

DUS = cbind(DUS,c(1,0))
GRF = cbind(GRF,c(0,1))

# VfL Osnabruck 0 - Eintracht Braunschweig 3 #

OSN = cbind(OSN,c(0,3))
EBR = cbind(EBR,c(3,0))

# Hamburger SV 0 - Holstein Kiel 1 #

HSV = cbind(HSV,c(0,1))
HKI = cbind(HKI,c(1,0))

# Hansa 0 - 1. FC Magdeburg 2 #

HRO = cbind(HRO,c(0,2))
MAG = cbind(MAG,c(2,0))

# Karlsruher 3 - Hertha 2 #

KSC = cbind(KSC,c(3,2))
BCS = cbind(BCS,c(2,3))

# Hannover 96 1 - FC St Pauli 2 #

HAN = cbind(HAN,c(1,2))
PAU = cbind(PAU,c(2,1))

## Gameweek 31 ##

# Hertha 1 - Hannover 96 1 #

BCS = cbind(BCS,c(1,1))
HAN = cbind(HAN,c(1,1))

# FC St Pauli 1 - Hansa 0 #

PAU = cbind(PAU,c(1,0))
HRO = cbind(HRO,c(0,1))

# Eintracht Braunschweig 0 - Hamburger SV 4 #

EBR = cbind(EBR,c(0,4))
HSV = cbind(HSV,c(4,0))

# Holstein Kiel 1 - 1. FCK 3 #

HKI = cbind(HKI,c(1,3))
FCK = cbind(FCK,c(3,1))

# Paderborn 3 - SV Elversberg 1 #

SCP = cbind(SCP,c(3,1))
ELV = cbind(ELV,c(1,3))

# Schalke 1 - Dusseldorf 1 #

S04 = cbind(S04,c(1,1))
DUS = cbind(DUS,c(1,1))

# Nurnberg 0 - Karlsruher 1 #

NUR = cbind(NUR,c(0,1))
KSC = cbind(KSC,c(1,0))

# Wehen Wiesbaden 3 - Furth 5 #

WEH = cbind(WEH,c(3,5))
GRF = cbind(GRF,c(5,3))

# 1. FC Magdeburg 1 - VfL Osnabruck 1 #

MAG = cbind(MAG,c(1,1))
OSN = cbind(OSN,c(1,1))

## Gameweek 32 ##

# Hamburger SV 1 - FC St Pauli 0 #

HSV = cbind(HSV,c(1,0))
PAU = cbind(PAU,c(0,1))

# Dusseldorf 3 - Nurnberg 1 #

DUS = cbind(DUS,c(3,1))
NUR = cbind(NUR,c(1,3))

# Furth 3 - Eintracht Braunschweig 3 #

GRF = cbind(GRF,c(3,3))
EBR = cbind(EBR,c(3,3))

# Hansa 1 - Karlsruher 2 #

HRO = cbind(HRO,c(1,2))
KSC = cbind(KSC,c(2,1))

# 1. FCK 4 - 1. FC Magdeburg 1 #

FCK = cbind(FCK,c(4,1))
MAG = cbind(MAG,c(1,4))

# Hannover 96 3 - Paderborn 2 #

HAN = cbind(HAN,c(3,2))
SCP = cbind(SCP,c(2,3))

# SV Elversberg 4 - Hertha 2 #

ELV = cbind(ELV,c(4,2))
BCS = cbind(BCS,c(2,4))

# Wehen Wiesbaden 0 - Holstein Kiel 1 #

WEH = cbind(WEH,c(0,1))
HKI = cbind(HKI,c(1,0))

# VfL Osnabruck 0 - Schalke 4 #

OSN = cbind(OSN,c(0,4))
S04 = cbind(S04,c(4,0))

## Gameweek 33 ##

# Paderborn 1 - Hamburger SV 0 #

SCP = cbind(SCP,c(1,0))
HSV = cbind(HSV,c(0,1))

# 1. FC Magdeburg 0 - Furth 0 #

MAG = cbind(MAG,c(0,0))
GRF = cbind(GRF,c(0,0))

# Nurnberg 3 - SV Elversberg 0 #

NUR = cbind(NUR,c(3,0))
ELV = cbind(ELV,c(0,3))

# Schalke 2 - Hansa 1 #

S04 = cbind(S04,c(2,1))
HRO = cbind(HRO,c(1,2))

# Hertha 3 - 1. FCK 1 #

BCS = cbind(BCS,c(3,1))
FCK = cbind(FCK,c(1,3))

# Holstein Kiel 1 - Dusseldorf 1 #

HKI = cbind(HKI,c(1,1))
DUS = cbind(DUS,c(1,1))

# Eintracht Braunschweig 1 - Wehen Wiesbaden 0 #

EBR = cbind(EBR,c(1,0))
WEH = cbind(WEH,c(0,1))

# Karlsruher 1 - Hannover 96 2 #

KSC = cbind(KSC,c(1,2))
HAN = cbind(HAN,c(2,1))

# FC St Pauli 3 - VfL Osnabruck 1 #

PAU = cbind(PAU,c(3,1))
OSN = cbind(OSN,c(1,3))

## Gameweek 34 ##

# Hamburger SV 4 - Nurnberg 1 #

HSV = cbind(HSV,c(4,1))
NUR = cbind(NUR,c(1,4))

# 1. FCK 5 - Eintracht Braunschweig 0 #

FCK = cbind(FCK,c(5,0))
EBR = cbind(EBR,c(0,5))

# Wehen Wiesbaden 1 - FC St Pauli 2 #

WEH = cbind(WEH,c(1,2))
PAU = cbind(PAU,c(2,1))

# VfL Osnabruck 2 - Hertha 1 #

OSN = cbind(OSN,c(2,1))
BCS = cbind(BCS,c(1,2))

# SV Elversberg 0 - Karlsruher 3 #

ELV = cbind(ELV,c(0,3))
KSC = cbind(KSC,c(3,0))

# Furth 2 - Schalke 0 #

GRF = cbind(GRF,c(2,0))
S04 = cbind(S04,c(0,2))

# Hannover 96 1 - Holstein Kiel 2 #

HAN = cbind(HAN,c(1,2))
HKI = cbind(HKI,c(2,1))

# Dusseldorf 3 - 1. FC Magdeburg 2 #

DUS = cbind(DUS,c(3,2))
MAG = cbind(MAG,c(2,3))

# Hansa 1 - Paderborn 2 #

HRO = cbind(HRO,c(1,2))
SCP = cbind(SCP,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