### 1. Create table ###

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

teams = c("APR","AGO","AMN","BAH","BOT","CTH","CEC","CRZ","CUI","FLA",
          "FLU","FOR","GRE","INL","ECJ","PAL","RBB","SAO","VAG","VTO")   # 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 ##

# Internacional 2 - Bahia 1 #

INL = matrix(c(2,1),nrow=2)
BAH = matrix(c(1,2),nrow=2)

# Criciuma 1 - Juventude 1 #

CEC = matrix(c(1,1),nrow=2)
ECJ = matrix(c(1,1),nrow=2)

# Fluminense 2 - Bragantino 2 #

FLU = matrix(c(2,2),nrow=2)
RBB = matrix(c(2,2),nrow=2)

# Sao Paulo 1 - Fortaleza 2 #

SAO = matrix(c(1,2),nrow=2)
FOR = matrix(c(2,1),nrow=2)

# Vasco de Gama 2 - Gremio 1 #

VAG = matrix(c(2,1),nrow=2)
GRE = matrix(c(1,2),nrow=2)

# Athletico-PR 4 - Cuiaba 0 #

APR = matrix(c(4,0),nrow=2)
CUI = matrix(c(0,4),nrow=2)

# Atletico Goianiense 1 - Flamengo 2 #

AGO = matrix(c(1,2),nrow=2)
FLA = matrix(c(2,1),nrow=2)

# Corinthians 0 - Atletico Mineiro 0 #

CTH = matrix(c(0,0),nrow=2)
AMN = matrix(c(0,0),nrow=2)

# Cruzeiro 3 - Botafogo 2 #

CRZ = matrix(c(3,2),nrow=2)
BOT = matrix(c(2,3),nrow=2)

# Vitoria 0 - Palmeiras 1 #

VTO = matrix(c(0,1),nrow=2)
PAL = matrix(c(1,0),nrow=2)

## Gameweek 2 ##

# Bahia 2 - Fluminense 1 #

BAH = cbind(BAH,c(2,1))
FLU = cbind(FLU,c(1,2))

# Bragantino 2 - Vasco de Gama 1 #

RBB = cbind(RBB,c(2,1))
VAG = cbind(VAG,c(1,2))

# Gremio 2 - Athletico-PR 0 #

GRE = cbind(GRE,c(2,0))
APR = cbind(APR,c(0,2))

# Fortaleza 1 - Cruzeiro 1 #

FOR = cbind(FOR,c(1,1))
CRZ = cbind(CRZ,c(1,1))

# Palmeiras 0 - Internacional 1 #

PAL = cbind(PAL,c(0,1))
INL = cbind(INL,c(1,0))

# Atletico Mineiro 1 - Criciuma 1 #

AMN = cbind(AMN,c(1,1))
CEC = cbind(CEC,c(1,1))

# Juventude 2 - Corinthians 0 #

ECJ = cbind(ECJ,c(2,0))
CTH = cbind(CTH,c(0,2))

# Flamengo 2 - Sao Paulo 1 #

FLA = cbind(FLA,c(2,1))
SAO = cbind(SAO,c(1,2))

# Botafogo 1 - Atletico Goianiense 0 #

BOT = cbind(BOT,c(1,0))
AGO = cbind(AGO,c(0,1))

## Gameweek 3 ##

# Fluminense 2 - Vasco da Gama 1 #

FLU = cbind(FLU,c(2,1))
VAG = cbind(VAG,c(1,2))

# Bragantino 1 - Corinthians 0 #

RBB = cbind(RBB,c(1,0))
CTH = cbind(CTH,c(0,1))

# Gremio 1 - Cuiaba 0 #

GRE = cbind(GRE,c(1,0))
CUI = cbind(CUI,c(0,1))

# Atletico Mineiro 3 - Cruzeiro 0 #

AMN = cbind(AMN,c(3,0))
CRZ = cbind(CRZ,c(0,3))

# Palmeiras 0 - Flamengo 0 #

PAL = cbind(PAL,c(0,0))
FLA = cbind(FLA,c(0,0))

# Vitoria 2 - Bahia 2 #

VTO = cbind(VTO,c(2,2))
BAH = cbind(BAH,c(2,2))

# Athletico-PR 1 - Internacional 0 #

APR = cbind(APR,c(1,0))
INL = cbind(INL,c(0,1))

# Botafogo 5 - Juventude 1 #

BOT = cbind(BOT,c(5,1))
ECJ = cbind(ECJ,c(1,5))

# Atletico Goianiense 0 - Sao Paolo 3 #

AGO = cbind(AGO,c(0,3))
SAO = cbind(SAO,c(3,0))

## Gameweek 4 ##

# Vasco de Gama 0 - Criciuma 4 #

VAG = cbind(VAG,c(0,4))
CEC = cbind(CEC,c(4,0))

# Cuiaba 0 - Atletico Mineiro 3 #

CUI = cbind(CUI,c(0,3))
AMN = cbind(AMN,c(3,0))

# Bahia 1 - Gremio 0 #

BAH = cbind(BAH,c(1,0))
GRE = cbind(GRE,c(0,1))

# Flamengo 0 - Botafogo 2 #

FLA = cbind(FLA,c(0,2))
BOT = cbind(BOT,c(2,0))

# Cruzeiro 3 - Vitoria 1 #

CRZ = cbind(CRZ,c(3,1))
VTO = cbind(VTO,c(1,3))

# Corinthians 3 - Fluminense 0 #

CTH = cbind(CTH,c(3,0))
FLU = cbind(FLU,c(0,3))

# Fortaleza 1 - Bragantino 1 #

FOR = cbind(FOR,c(1,1))
RBB = cbind(RBB,c(1,1))

# Juventude 1 - Athletico-PR 1 #

ECJ = cbind(ECJ,c(1,1))
APR = cbind(APR,c(1,1))

# Internacional 1 - Atletico Goianiense 1 #

INL = cbind(INL,c(1,1))
AGO = cbind(AGO,c(1,1))

# Sao Paulo 0 - Palmeiras 0 #

SAO = cbind(SAO,c(0,0))
PAL = cbind(PAL,c(0,0))

## Gameweek 5 ##

# Fluminense 2 - Atletico Mineiro 2 #

FLU = cbind(FLU,c(2,2))
AMN = cbind(AMN,c(2,2))

# Bragantino 1 - Flamengo 1 #

RBB = cbind(RBB,c(1,1))
FLA = cbind(FLA,c(1,1))

# Corinthians 0 - Fortaleza 0 #

CTH = cbind(CTH,c(0,0))
FOR = cbind(FOR,c(0,0))

# Athletico-PR 1 - Vasco da Gama 0 #

APR = cbind(APR,c(1,0))
VAG = cbind(VAG,c(0,1))

# Vitoria 1 - Sao Paulo 3 #

VTO = cbind(VTO,c(1,3))
SAO = cbind(SAO,c(3,1))

# Botafogo 1 - Bahia 2 #

BOT = cbind(BOT,c(1,2))
BAH = cbind(BAH,c(2,1))

# Cuiaba 0 - Palmeiras 2 #

CUI = cbind(CUI,c(0,2))
PAL = cbind(PAL,c(2,0))

## Gameweek 6 ##

# Flamengo 2 - Corinthians 0 #

FLA = cbind(FLA,c(2,0))
CTH = cbind(CTH,c(0,2))

# Palmeiras 0 - Athletico-PR 2 #

PAL = cbind(PAL,c(0,2))
APR = cbind(APR,c(2,0))

# Atletico Goianiense 0 - Cruzeiro 1 #

AGO = cbind(AGO,c(0,1))
CRZ = cbind(CRZ,c(1,0))

# Fortaleza 1 - Botafogo 1 #

FOR = cbind(FOR,c(1,1))
BOT = cbind(BOT,c(1,1))

# Vasco da Gama 2 - Vitoria 1 #

VAG = cbind(VAG,c(2,1))
VTO = cbind(VTO,c(1,2))

# Bahia 1 - Bragantino 0 #

BAH = cbind(BAH,c(1,0))
RBB = cbind(RBB,c(0,1))

# Sao Paulo 2 - Fluminense 1 #

SAO = cbind(SAO,c(2,1))
FLU = cbind(FLU,c(1,2))

## Gameweek 7 ##

# Gremio 0 - Bragantino 2 #

GRE = cbind(GRE,c(0,2))
RBB = cbind(RBB,c(2,0))

# Vitoria 0 - Atletico Goianiense 2 #

VTO = cbind(VTO,c(0,2))
AGO = cbind(AGO,c(2,0))

# Fluminense 1 - Juventude 1 #

FLU = cbind(FLU,c(1,1))
ECJ = cbind(ECJ,c(1,1))

# Cuiaba 0 - Internacional 1 #

CUI = cbind(CUI,c(0,1))
INL = cbind(INL,c(1,0))

# Corinthians 0 - Botafogo 1 #

CTH = cbind(CTH,c(0,1))
BOT = cbind(BOT,c(1,0))

# Vasco da Gama 1 - Flamengo 6 #

VAG = cbind(VAG,c(1,6))
FLA = cbind(FLA,c(6,1))

# Atletico Mineiro 1 - Bahia 1 #

AMN = cbind(AMN,c(1,1))
BAH = cbind(BAH,c(1,1))

# Criciuma 1 - Palmeiras 2 #

CEC = cbind(CEC,c(1,2))
PAL = cbind(PAL,c(2,1))

# Sao Paulo 2 - Cruzeiro 0 #

SAO = cbind(SAO,c(2,0))
CRZ = cbind(CRZ,c(0,2))

# Fortaleza 1 - Athletico-PR 0 #

FOR = cbind(FOR,c(1,0))
APR = cbind(APR,c(0,1))

# Cuiaba 0 - Vitoria 0 #

CUI = cbind(CUI,c(0,0))
VTO = cbind(VTO,c(0,0))

# Juventude 1 - Atletico Goianiense 0 #

ECJ = cbind(ECJ,c(1,0))
AGO = cbind(AGO,c(0,1))

# Criciuma 2 - Cuiaba 5 #

CEC = cbind(CEC,c(2,5))
CUI = cbind(CUI,c(5,2))

## Gameweek 8 ##

# Atletico Goianiense 2 - Corinthians 2 #

AGO = cbind(AGO,c(2,2))
CTH = cbind(CTH,c(2,2))

# Juventude 1 - Vitoria 1 #

ECJ = cbind(ECJ,c(1,1))
VTO = cbind(VTO,c(1,1))

# Botafogo 1 - Fluminense 0 #

BOT = cbind(BOT,c(1,0))
FLU = cbind(FLU,c(0,1))

# Bragantino 1 - Atletico Mineiro 2 #

RBB = cbind(RBB,c(1,2))
AMN = cbind(AMN,c(2,1))

# Cruzeiro 2 - Cuiaba 1 #

CRZ = cbind(CRZ,c(2,1))
CUI = cbind(CUI,c(1,2))

# Athletico-PR 3 - Criciuma 1 #

APR = cbind(APR,c(3,1))
CEC = cbind(CEC,c(1,3))

# Internacional 0 - Sao Paulo 0 #

INL = cbind(INL,c(0,0))
SAO = cbind(SAO,c(0,0))

# Flamengo 2 - Gremio 1 #

FLA = cbind(FLA,c(2,1))
GRE = cbind(GRE,c(1,2))

# Bahia 1 - Fortaleza 0 #

BAH = cbind(BAH,c(1,0))
FOR = cbind(FOR,c(0,1))

# Palmeiras 2 - Vasco da Gama 0 #

PAL = cbind(PAL,c(2,0))
VAG = cbind(VAG,c(0,2))

## Gameweek 9 ##

# Bragantino 2 - Juventude 1 #

RBB = cbind(RBB,c(2,1))
ECJ = cbind(ECJ,c(1,2))

# Fluminense 1 - Atletico Goianiense 2 #

FLU = cbind(FLU,c(1,2))
AGO = cbind(AGO,c(2,1))

# Corinthians 2 - Sao Paulo 2 #

CTH = cbind(CTH,c(2,2))
SAO = cbind(SAO,c(2,2))

# Vitoria 2 - Internacional 1 #

VTO = cbind(VTO,c(2,1))
INL = cbind(INL,c(1,2))

# Athletico-PR 1 - Flamengo 1 #

APR = cbind(APR,c(1,1))
FLA = cbind(FLA,c(1,1))

# Vasco da Gama 0 - Cruzeiro 0 #

VAG = cbind(VAG,c(0,0))
CRZ = cbind(CRZ,c(0,0))

# Criciuma 2 - Bahia 2 #

CEC = cbind(CEC,c(2,2))
BAH = cbind(BAH,c(2,2))

# Gremio 1 - Botafogo 2 #

GRE = cbind(GRE,c(1,2))
BOT = cbind(BOT,c(2,1))

# Cuiaba 5 - Fortaleza 0 #

CUI = cbind(CUI,c(5,0))
FOR = cbind(FOR,c(0,5))

# Atletico Mineiro 0 - Palmeiras 4 #

AMN = cbind(AMN,c(0,4))
PAL = cbind(PAL,c(4,0))

## Gameweek 10 ##

# Botafogo 1 - Athletico-PR 1 #

BOT = cbind(BOT,c(1,1))
APR = cbind(APR,c(1,1))

# Atletico Goianiense 1 - Criciuma 2 #

AGO = cbind(AGO,c(1,2))
CEC = cbind(CEC,c(2,1))

# Sao Paulo 0 - Cuiaba 1 #

SAO = cbind(SAO,c(0,1))
CUI = cbind(CUI,c(1,0))

# Juventude 2 - Vasco da Gama 0 #

ECJ = cbind(ECJ,c(2,0))
VAG = cbind(VAG,c(0,2))

# Fortaleza 1 - Gremio 0 #

FOR = cbind(FOR,c(1,0))
GRE = cbind(GRE,c(0,1))

# Cruzeiro 2 - Fluminense 0 #

CRZ = cbind(CRZ,c(2,0))
FLU = cbind(FLU,c(0,2))

# Internacional 1 - Corinthians 0 #

INL = cbind(INL,c(1,0))
CTH = cbind(CTH,c(0,1))

# Vitoria 4 - Atletico Mineiro 2 #

VTO = cbind(VTO,c(4,2))
AMN = cbind(AMN,c(2,4))

# Flamengo 2 - Bahia 1 #

FLA = cbind(FLA,c(2,1))
BAH = cbind(BAH,c(1,2))

# Palmeiras 2 - Bragantino 1 #

PAL = cbind(PAL,c(2,1))
RBB = cbind(RBB,c(1,2))

## Gameweek 11 ##

# Criciuma 2 - Botafogo 1 #

CEC = cbind(CEC,c(2,1))
BOT = cbind(BOT,c(1,2))

# Gremio 0 - Internacional 1 #

GRE = cbind(GRE,c(0,1))
INL = cbind(INL,c(1,0))

# Cuiaba 0 - Atletico Goianiense 0 #

CUI = cbind(CUI,c(0,0))
AGO = cbind(AGO,c(0,0))

# Vasco da Gama 4 - Sao Paulo 1 #

VAG = cbind(VAG,c(4,1))
SAO = cbind(SAO,c(1,4))

# Bahia 4 - Cruzeiro 1 #

BAH = cbind(BAH,c(4,1))
CRZ = cbind(CRZ,c(1,4))

# Athletico-PR 1 - Corinthians 1 #

APR = cbind(APR,c(1,1))
CTH = cbind(CTH,c(1,1))

# Fluminense 0 - Flamengo 1 #

FLU = cbind(FLU,c(0,1))
FLA = cbind(FLA,c(1,0))

# Bragantino 2 - Vitoria 1 #

RBB = cbind(RBB,c(2,1))
VTO = cbind(VTO,c(1,2))

# Atletico Mineiro 1 - Fortaleza 1 #

AMN = cbind(AMN,c(1,1))
FOR = cbind(FOR,c(1,1))

# Palmeiras 3 - Juventude 1 #

PAL = cbind(PAL,c(3,1))
ECJ = cbind(ECJ,c(1,3))

## Gameweek 12 ##

# Botafogo 2 - Bragantino 1 #

BOT = cbind(BOT,c(2,1))
RBB = cbind(RBB,c(1,2))

# Cruzeiro 2 - Athletico-PR 0 #

CRZ = cbind(CRZ,c(2,0))
APR = cbind(APR,c(0,2))

# Juventude 2 - Flamengo 1 #

ECJ = cbind(ECJ,c(2,1))
FLA = cbind(FLA,c(1,2))

# Atletico Goianiense 1 - Gremio 1 #

AGO = cbind(AGO,c(1,1))
GRE = cbind(GRE,c(1,1))

# Corinthians 1 - Cuiaba 1 #

CTH = cbind(CTH,c(1,1))
CUI = cbind(CUI,c(1,1))

# Bahia 2 - Vasco da Gama 1 #

BAH = cbind(BAH,c(2,1))
VAG = cbind(VAG,c(1,2))

# Internacional 1 - Atletico Mineiro 2 #

INL = cbind(INL,c(1,2))
AMN = cbind(AMN,c(2,1))

# Fortaleza 3 - Palmeiras 0 #

FOR = cbind(FOR,c(3,0))
PAL = cbind(PAL,c(0,3))

# Fluminense 0 - Vitoria 1 #

FLU = cbind(FLU,c(0,1))
VTO = cbind(VTO,c(1,0))

# Sao Paulo 2 - Criciuma 1 #

SAO = cbind(SAO,c(2,1))
CEC = cbind(CEC,c(1,2))

## Gameweek 13 ##

# Vasco da Gama 1 - Botafogo 1 #

VAG = cbind(VAG,c(1,1))
BOT = cbind(BOT,c(1,1))

# Cuiaba 1 - Bragantino 1 #

CUI = cbind(CUI,c(1,1))
RBB = cbind(RBB,c(1,1))

# Atletico Mineiro 1 - Atletico Goianiense 1 #

AMN = cbind(AMN,c(1,1))
AGO = cbind(AGO,c(1,1))

# Gremio 1 - Fluminense 0 #

GRE = cbind(GRE,c(1,0))
FLU = cbind(FLU,c(0,1))

# Sao Paulo 3 - Bahia 1 #

SAO = cbind(SAO,c(3,1))
BAH = cbind(BAH,c(1,3))

# Fortaleza 2 - Juventude 1 #

FOR = cbind(FOR,c(2,1))
ECJ = cbind(ECJ,c(1,2))

# Criciuma 1 - Internacional 1 #

CEC = cbind(CEC,c(1,1))
INL = cbind(INL,c(1,1))

# Vitoria 0 - Athletico-PR 1 #

VTO = cbind(VTO,c(0,1))
APR = cbind(APR,c(1,0))

# Flamengo 2 - Cruzeiro 1 #

FLA = cbind(FLA,c(2,1))
CRZ = cbind(CRZ,c(1,2))

# Palmeiras 2 - Corinthians 0 #

PAL = cbind(PAL,c(2,0))
CTH = cbind(CTH,c(0,2))

## Gameweek 14 ##

# Cuiaba 1 - Botafogo 2 #

CUI = cbind(CUI,c(1,2))
BOT = cbind(BOT,c(2,1))

# Criciuma 1 - Cruzeiro 0 #

CEC = cbind(CEC,c(1,0))
CRZ = cbind(CRZ,c(0,1))

# Vasco da Gama 2 - Fortaleza 0 #

VAG = cbind(VAG,c(2,0))
FOR = cbind(FOR,c(0,2))

# Athletico-PR 1 - Sao Paulo 2 #

APR = cbind(APR,c(1,2))
SAO = cbind(SAO,c(2,1))

# Atletico Mineiro 2 - Flamengo 4 #

AMN = cbind(AMN,c(2,4))
FLA = cbind(FLA,c(4,2))

# Bragantino 3 - Atletico Goianiense 1 #

RBB = cbind(RBB,c(3,1))
AGO = cbind(AGO,c(1,3))

# Gremio 2 - Palmeiras 2 #

GRE = cbind(GRE,c(2,2))
PAL = cbind(PAL,c(2,2))

# Bahia 2 - Juventude 0 #

BAH = cbind(BAH,c(2,0))
ECJ = cbind(ECJ,c(0,2))

# Fluminense 1 - Internacional 1 #

FLU = cbind(FLU,c(1,1))
INL = cbind(INL,c(1,1))

# Corinthians 3 - Vitoria 2 #

CTH = cbind(CTH,c(3,2))
VTO = cbind(VTO,c(2,3))

## Gameweek 15 ##

# Sao Paulo 2 - Bragantino 0 #

SAO = cbind(SAO,c(2,0))
RBB = cbind(RBB,c(0,2))

# Flamengo 1 - Cuiaba 1 #

FLA = cbind(FLA,c(1,1))
CUI = cbind(CUI,c(1,1))

# Fortaleza 1 - Fluminense 0 #

FOR = cbind(FOR,c(1,0))
FLU = cbind(FLU,c(0,1))

# Juventude 3 - Gremio 0 #

ECJ = cbind(ECJ,c(3,0))
GRE = cbind(GRE,c(0,3))

# Cruzeiro 3 - Corinthians 0 #

CRZ = cbind(CRZ,c(3,0))
CTH = cbind(CTH,c(0,3))

# Internacional 1 - Vasco da Gama 2 #

INL = cbind(INL,c(1,2))
VAG = cbind(VAG,c(2,1))

# Vitoria 2 - Criciuma 1 #

VTO = cbind(VTO,c(2,1))
CEC = cbind(CEC,c(1,2))

# Atletico Goianiense 1 - Athletico-PR 2 #

AGO = cbind(AGO,c(1,2))
APR = cbind(APR,c(2,1))

# Palmeiras 2 - Bahia 0 #

PAL = cbind(PAL,c(2,0))
BAH = cbind(BAH,c(0,2))

# Botafogo 3 - Atletico Mineiro 0 #

BOT = cbind(BOT,c(3,0))
AMN = cbind(AMN,c(0,3))

## Gameweek 16 ##

# Gremio 0 - Cruzeiro 2 #

GRE = cbind(GRE,c(0,2))
CRZ = cbind(CRZ,c(2,0))

# Vasco da Gama 2 - Corinthians 0 #

VAG = cbind(VAG,c(2,0))
CTH = cbind(CTH,c(0,2))

# Athletico-PR 1 - Bahia 3 #

APR = cbind(APR,c(1,3))
BAH = cbind(BAH,c(3,1))

# Palmeiras 3 - Atletico Goianiense 1 #

PAL = cbind(PAL,c(3,1))
AGO = cbind(AGO,c(1,3))

# Criciuma 1 - Fluminense 1 #

CEC = cbind(CEC,c(1,1))
FLU = cbind(FLU,c(1,1))

# Flamengo 1 - Fortaleza 2 #

FLA = cbind(FLA,c(1,2))
FOR = cbind(FOR,c(2,1))

# Atletico Mineiro 2 - Sao Paulo 1 #

AMN = cbind(AMN,c(2,1))
SAO = cbind(SAO,c(1,2))

# Vitoria 0 - Botafogo 1 #

VTO = cbind(VTO,c(0,1))
BOT = cbind(BOT,c(1,0))

## Gameweek 17 ##

# Bahia 1 - Cuiaba 2 #

BAH = cbind(BAH,c(1,2))
CUI = cbind(CUI,c(2,1))

# Cruzeiro 2 - Bragantino 1 #

CRZ = cbind(CRZ,c(2,1))
RBB = cbind(RBB,c(1,2))

# Juventude 1 - Atletico Mineiro 1 #

ECJ = cbind(ECJ,c(1,1))
AMN = cbind(AMN,c(1,1))

# Corinthians 2 - Criciuma 1 #

CTH = cbind(CTH,c(2,1))
CEC = cbind(CEC,c(1,2))

# Atletico Goianiense 0 - Vasco da Gama 1 #

AGO = cbind(AGO,c(0,1))
VAG = cbind(VAG,c(1,0))

# Sao Paulo 1 - Gremio 0 #

SAO = cbind(SAO,c(1,0))
GRE = cbind(GRE,c(0,1))

# Botafogo 1 - Palmeiras 0 #

BOT = cbind(BOT,c(1,0))
PAL = cbind(PAL,c(0,1))

# Fortaleza 3 - Vitoria 1 #

FOR = cbind(FOR,c(3,1))
VTO = cbind(VTO,c(1,3))

## Gameweek 18 ##

# Flamengo 2 - Criciuma 1 #

FLA = cbind(FLA,c(2,1))
CEC = cbind(CEC,c(1,2))

# Botafogo 1 - Internacional 0 #

BOT = cbind(BOT,c(1,0))
INL = cbind(INL,c(0,1))

# Palmeiras 2 - Cruzeiro 0 #

PAL = cbind(PAL,c(2,0))
CRZ = cbind(CRZ,c(0,2))

# Gremio 2 - Vitoria 0 #

GRE = cbind(GRE,c(2,0))
VTO = cbind(VTO,c(0,2))

# Atletico Mineiro 2 - Vasco da Gama 0 #

AMN = cbind(AMN,c(2,0))
VAG = cbind(VAG,c(0,2))

# Bahia 0 - Corinthians 1 #

BAH = cbind(BAH,c(0,1))
CTH = cbind(CTH,c(1,0))

# Bragantino 1 - Athletico-PR 0 #

RBB = cbind(RBB,c(1,0))
APR = cbind(APR,c(0,1))

# Juventude 0 - Sao Paulo 0 #

ECJ = cbind(ECJ,c(0,0))
SAO = cbind(SAO,c(0,0))

# Fortaleza 3 - Atletico Goianiense 1 #

FOR = cbind(FOR,c(3,1))
AGO = cbind(AGO,c(1,3))

# Cuiaba 0 - Fluminense 1 #

CUI = cbind(CUI,c(0,1))
FLU = cbind(FLU,c(1,0))

# Criciuma 1 - Fortaleza 1 #

CEC = cbind(CEC,c(1,1))
FOR = cbind(FOR,c(1,1))

## Gameweek 19 ##

# Cruzeiro 2 - Juventude 0 #

CRZ = cbind(CRZ,c(2,0))
ECJ = cbind(ECJ,c(0,2))

# Sao Paulo 2 - Botafogo 2 #

SAO = cbind(SAO,c(2,2))
BOT = cbind(BOT,c(2,2))

# Vitoria 1 - Flamengo 2 #

VTO = cbind(VTO,c(1,2))
FLA = cbind(FLA,c(2,1))

# Atletico Goianiense 1 - Bahia 1 #

AGO = cbind(AGO,c(1,1))
BAH = cbind(BAH,c(1,1))

# Fluminense 1 - Palmeiras 0 #

FLU = cbind(FLU,c(1,0))
PAL = cbind(PAL,c(0,1))

# Corinthians 2 - Gremio 2 #

CTH = cbind(CTH,c(2,2))
GRE = cbind(GRE,c(2,2))

## Gameweek 20 ##

# Palmeiras 0 - Vitoria 2 #

PAL = cbind(PAL,c(0,2))
VTO = cbind(VTO,c(2,0))

# Juventude 1 - Criciuma 2 #

ECJ = cbind(ECJ,c(1,2))
CEC = cbind(CEC,c(2,1))

# Bahia 1 - Internacional 1 #

BAH = cbind(BAH,c(1,1))
INL = cbind(INL,c(1,1))

# Fortaleza 1 - Sao Paulo 0 #

FOR = cbind(FOR,c(1,0))
SAO = cbind(SAO,c(0,1))

# Botafogo 0 - Cruzeiro 3 #

BOT = cbind(BOT,c(0,3))
CRZ = cbind(CRZ,c(3,0))

# Bragantino 0 - Fluminense 1 #

RBB = cbind(RBB,c(0,1))
FLU = cbind(FLU,c(1,0))

# Flamengo 2 - Atletico Goianiense 0 #

FLA = cbind(FLA,c(2,0))
AGO = cbind(AGO,c(0,2))

# Atletico Mineiro 2 - Corinthians 1 #

AMN = cbind(AMN,c(2,1))
CTH = cbind(CTH,c(1,2))

# Cuiaba 1 - Athletico-PR 2 #

CUI = cbind(CUI,c(1,2))
APR = cbind(APR,c(2,1))

# Gremio 1 - Vasco da Gama 0 #

GRE = cbind(GRE,c(1,0))
VAG = cbind(VAG,c(0,1))

## Gameweek 21 ##

# Vitoria 1 - Cuiaba 0 #

VTO = cbind(VTO,c(1,0))
CUI = cbind(CUI,c(0,1))

# Vasco da Gama 2 - Bragantino 2 #

VAG = cbind(VAG,c(2,2))
RBB = cbind(RBB,c(2,2))

# Criciuma 2 - Atletico Mineiro 1 #

CEC = cbind(CEC,c(2,1))
AMN = cbind(AMN,c(1,2))

# Atletico Goianiense 1 - Botafogo 4 #

AGO = cbind(AGO,c(1,4))
BOT = cbind(BOT,c(4,1))

# Sao Paulo 1 - Flamengo 0 #

SAO = cbind(SAO,c(1,0))
FLA = cbind(FLA,c(0,1))

# Corinthians 1 - Juventude 1 #

CTH = cbind(CTH,c(1,1))
ECJ = cbind(ECJ,c(1,1))

# Fluminense 1 - Bahia 0 #

FLU = cbind(FLU,c(1,0))
BAH = cbind(BAH,c(0,1))

# Athletico-PR 0 - Gremio 2 #

APR = cbind(APR,c(0,2))
GRE = cbind(GRE,c(2,0))

# Internacional 1 - Palmeiras 1 #

INL = cbind(INL,c(1,1))
PAL = cbind(PAL,c(1,1))

# Cruzeiro 1 - Fortaleza 2 #

CRZ = cbind(CRZ,c(1,2))
FOR = cbind(FOR,c(2,1))

## Gameweek 22 ##

# Fortaleza 1 - Criciuma 0 #

FOR = cbind(FOR,c(1,0))
CEC = cbind(CEC,c(0,1))

# Cuiaba 1 - Gremio 3 #

CUI = cbind(CUI,c(1,3))
GRE = cbind(GRE,c(3,1))

# Cruzeiro 0 - Atletico Mineiro 0 #

CRZ = cbind(CRZ,c(0,0))
AMN = cbind(AMN,c(0,0))

# Corinthians 1 - Bragantino 1 #

CTH = cbind(CTH,c(1,1))
RBB = cbind(RBB,c(1,1))

# Vasco da Gama 2 - Fluminense 0 #

VAG = cbind(VAG,c(2,0))
FLU = cbind(FLU,c(0,2))

# Juventude 3 - Botafogo 2 #

ECJ = cbind(ECJ,c(3,2))
BOT = cbind(BOT,c(2,3))

# Bahia 2 - Vitoria 0 #

BAH = cbind(BAH,c(2,0))
VTO = cbind(VTO,c(0,2))

# Sao Paulo 1 - Atletico Goianiense 0 #

SAO = cbind(SAO,c(1,0))
AGO = cbind(AGO,c(0,1))

# Flamengo 1 - Palmeiras 1 #

FLA = cbind(FLA,c(1,1))
PAL = cbind(PAL,c(1,1))

# Internacional 2 - Athletico-PR 2 #

INL = cbind(INL,c(2,2))
APR = cbind(APR,c(2,2))

# Internacional 2 - Juventude 1 #

INL = cbind(INL,c(2,1))
ECJ = cbind(ECJ,c(1,2))

## Gameweek 23 ##

# Gremio 0 - Bahia 2 #

GRE = cbind(GRE,c(0,2))
BAH = cbind(BAH,c(2,0))

# Atletico Mineiro 1 - Cuiaba 1 #

AMN = cbind(AMN,c(1,1))
CUI = cbind(CUI,c(1,1))

# Bragantino 1 - Fortaleza 2 #

RBB = cbind(RBB,c(1,2))
FOR = cbind(FOR,c(2,1))

# Fluminense 0 - Corinthians 0 #

FLU = cbind(FLU,c(0,0))
CTH = cbind(CTH,c(0,0))

# Atletico Goianiense 1 - Internacional 0 #

AGO = cbind(AGO,c(1,0))
INL = cbind(INL,c(0,1))

# Criciuma 2 - Vasco da Gama 2 #

CEC = cbind(CEC,c(2,2))
VAG = cbind(VAG,c(2,2))

# Palmeiras 2 - Sao Paulo 1 #

PAL = cbind(PAL,c(2,1))
SAO = cbind(SAO,c(1,2))

# Athletico-PR 1 - Juventude 2 #

APR = cbind(APR,c(1,2))
ECJ = cbind(ECJ,c(2,1))

# Botafogo 4 - Flamengo 1 #

BOT = cbind(BOT,c(4,1))
FLA = cbind(FLA,c(1,4))

# Vitoria 2 - Cruzeiro 2 #

VTO = cbind(VTO,c(2,2))
CRZ = cbind(CRZ,c(2,2))

## Gameweek 24 ##

# Atletico Goianiense 2 - Juventude 1 #

AGO = cbind(AGO,c(2,1))
ECJ = cbind(ECJ,c(1,2))

# Palmeiras 5 - Cuiaba 0 #

PAL = cbind(PAL,c(5,0))
CUI = cbind(CUI,c(0,5))

# Atletico Mineiro 0 - Fluminense 2 #

AMN = cbind(AMN,c(0,2))
FLU = cbind(FLU,c(2,0))

# Bahia 0 - Botafogo 0 #

BAH = cbind(BAH,c(0,0))
BOT = cbind(BOT,c(0,0))

# Criciuma 0 - Gremio 1 #

CEC = cbind(CEC,c(0,1))
GRE = cbind(GRE,c(1,0))

# Fortaleza 1 - Corinthians 0 #

FOR = cbind(FOR,c(1,0))
CTH = cbind(CTH,c(0,1))

# Sao Paulo 2 - Vitoria 1 #

SAO = cbind(SAO,c(2,1))
VTO = cbind(VTO,c(1,2))

# Internacional 1 - Cruzeiro 0 #

INL = cbind(INL,c(1,0))
CRZ = cbind(CRZ,c(0,1))

# Flamengo 2 - Bragantino 1 #

FLA = cbind(FLA,c(2,1))
RBB = cbind(RBB,c(1,2))

# Vasco da Gama 2 - Athletico-PR 1 #

VAG = cbind(VAG,c(2,1))
APR = cbind(APR,c(1,2))

# Cruzeiro 0 - Internacional 0 #

CRZ = cbind(CRZ,c(0,0))
INL = cbind(INL,c(0,0))

# Criciuma 1 - Bragantino 0 #

CEC = cbind(CEC,c(1,0))
RBB = cbind(RBB,c(0,1))

## Gameweek 25 ##

# Cuiaba 2 - Criciuma 1 #

CUI = cbind(CUI,c(2,1))
CEC = cbind(CEC,c(1,2))

# Botafogo 2 - Fortaleza 0 #

BOT = cbind(BOT,c(2,0))
FOR = cbind(FOR,c(0,2))

# Gremio 2 - Atletico Mineiro 3 #

GRE = cbind(GRE,c(2,3))
AMN = cbind(AMN,c(3,2))

# Cruzeiro 3 - Atletico Goianiense 1 #

CRZ = cbind(CRZ,c(3,1))
AGO = cbind(AGO,c(1,3))

# Corinthians 2 - Flamengo 1 #

CTH = cbind(CTH,c(2,1))
FLA = cbind(FLA,c(1,2))

# Bragantino 2 - Bahia 1 #

RBB = cbind(RBB,c(2,1))
BAH = cbind(BAH,c(1,2))

# Fluminense 2 - Sao Paulo 0 #

FLU = cbind(FLU,c(2,0))
SAO = cbind(SAO,c(0,2))

# Athletico-PR 0 - Palmeiras 2 #

APR = cbind(APR,c(0,2))
PAL = cbind(PAL,c(2,0))

# Juventude 1 - Internacional 3 #

ECJ = cbind(ECJ,c(1,3))
INL = cbind(INL,c(3,1))

# Vitoria 0 - Vasco da Gama 1 #

VTO = cbind(VTO,c(0,1))
VAG = cbind(VAG,c(1,0))

# Cuiaba 0 - Juventude 0 #

CUI = cbind(CUI,c(0,0))
ECJ = cbind(ECJ,c(0,0))

# Internacional 2 - Fortaleza 1 #

INL = cbind(INL,c(2,1))
FOR = cbind(FOR,c(1,2))

## Gameweek 26 ##

# Atletico Goianiense 0 - Vitoria 2 #

AGO = cbind(AGO,c(0,2))
VTO = cbind(VTO,c(2,0))

# Athletico-PR 1 - Fortaleza 1 #

APR = cbind(APR,c(1,1))
FOR = cbind(FOR,c(1,1))

# Botafogo 2 - Corinthians 1 #

BOT = cbind(BOT,c(2,1))
CTH = cbind(CTH,c(1,2))

# Bragantino 2 - Gremio 2 #

RBB = cbind(RBB,c(2,2))
GRE = cbind(GRE,c(2,2))

# Palmeiras 5 - Criciuma 0 #

PAL = cbind(PAL,c(5,0))
CEC = cbind(CEC,c(0,5))

# Juventude 2 - Fluminense 1 #

ECJ = cbind(ECJ,c(2,1))
FLU = cbind(FLU,c(1,2))

# Bahia 3 - Atletico Mineiro 0 #

BAH = cbind(BAH,c(3,0))
AMN = cbind(AMN,c(0,3))

# Flamengo 1 - Vasco da Gama 1 #

FLA = cbind(FLA,c(1,1))
VAG = cbind(VAG,c(1,1))

# Cruzeiro 0 - Sao Paulo 1 #

CRZ = cbind(CRZ,c(0,1))
SAO = cbind(SAO,c(1,0))

# Internacional 3 - Cuiaba 0 #

INL = cbind(INL,c(3,0))
CUI = cbind(CUI,c(0,3))

## Gameweek 27 ##

# Corinthians 3 - Atletico Goianiense 0 #

CTH = cbind(CTH,c(3,0))
AGO = cbind(AGO,c(0,3))

# Vitoria 1 - Juventude 0 #

VTO = cbind(VTO,c(1,0))
ECJ = cbind(ECJ,c(0,1))

# Fluminense 0 - Botafogo 1 #

FLU = cbind(FLU,c(0,1))
BOT = cbind(BOT,c(1,0))

# Fortaleza 4 - Bahia 1 #

FOR = cbind(FOR,c(4,1))
BAH = cbind(BAH,c(1,4))

# Atletico Mineiro 3 - Bragantino 0 #

AMN = cbind(AMN,c(3,0))
RBB = cbind(RBB,c(0,3))

# Vasco da Gama 0 - Palmeiras 1 #

VAG = cbind(VAG,c(0,1))
PAL = cbind(PAL,c(1,0))

# Gremio 3 - Flamengo 2 #

GRE = cbind(GRE,c(3,2))
FLA = cbind(FLA,c(2,3))

# Cuiaba 0 - Cruzeiro 0 #

CUI = cbind(CUI,c(0,0))
CRZ = cbind(CRZ,c(0,0))

# Sao Paulo 1 - Internacional 3 #

SAO = cbind(SAO,c(1,3))
INL = cbind(INL,c(3,1))

# Criciuma 0 - Athletico-PR 0 #

CEC = cbind(CEC,c(0,0))
APR = cbind(APR,c(0,0))

# Gremio 1 - Criciuma 2 #

GRE = cbind(GRE,c(1,2))
CEC = cbind(CEC,c(2,1))

# Bragantino 2 - Internacional 2 #

RBB = cbind(RBB,c(2,2))
INL = cbind(INL,c(2,2))

## Gameweek 28 ##

# Palmeiras 2 - Atletico Mineiro 1 #

PAL = cbind(PAL,c(2,1))
AMN = cbind(AMN,c(1,2))

# Botafogo 0 - Gremio 0 #

BOT = cbind(BOT,c(0,0))
GRE = cbind(GRE,c(0,0))

# Juventude 1 - Bragantino 1 #

ECJ = cbind(ECJ,c(1,1))
RBB = cbind(RBB,c(1,1))

# Sao Paulo 3 - Corinthians 1 #

SAO = cbind(SAO,c(3,1))
CTH = cbind(CTH,c(1,3))

# Fortaleza 1 - Cuiaba 0 #

FOR = cbind(FOR,c(1,0))
CUI = cbind(CUI,c(0,1))

# Atletico Goianiense 1 - Fluminense 0 #

AGO = cbind(AGO,c(1,0))
FLU = cbind(FLU,c(0,1))

# Cruzeiro 1 - Vasco da Gama 1 #

CRZ = cbind(CRZ,c(1,1))
VAG = cbind(VAG,c(1,1))

# Internacional 3 - Vitoria 1 #

INL = cbind(INL,c(3,1))
VTO = cbind(VTO,c(1,3))

# Bahia 1 - Criciuma 0 #

BAH = cbind(BAH,c(1,0))
CEC = cbind(CEC,c(0,1))

# Flamengo 1 - Athletico-PR 0 #

FLA = cbind(FLA,c(1,0))
APR = cbind(APR,c(0,1))

## Gameweek 29 ##

# Criciuma 2 - Atletico Goianiense 0 #

CEC = cbind(CEC,c(2,0))
AGO = cbind(AGO,c(0,2))

# Fluminense 1 - Cruzeiro 0 #

FLU = cbind(FLU,c(1,0))
CRZ = cbind(CRZ,c(0,1))

# Gremio 3 - Fortaleza 1 #

GRE = cbind(GRE,c(3,1))
FOR = cbind(FOR,c(1,3))

# Athletico-PR 0 - Botafogo 1 #

APR = cbind(APR,c(0,1))
BOT = cbind(BOT,c(1,0))

# Atletico Mineiro 2 - Vitoria 2 #

AMN = cbind(AMN,c(2,2))
VTO = cbind(VTO,c(2,2))

# Bragantino 0 - Palmeiras 0 #

RBB = cbind(RBB,c(0,0))
PAL = cbind(PAL,c(0,0))

# Bahia 0 - Flamengo 2 #

BAH = cbind(BAH,c(0,2))
FLA = cbind(FLA,c(2,0))

# Cuiaba 2 - Sao Paulo 0 #

CUI = cbind(CUI,c(2,0))
SAO = cbind(SAO,c(0,2))

# Corinthians 2 - Internacional 2 #

CTH = cbind(CTH,c(2,2))
INL = cbind(INL,c(2,2))

# Vasco da Gama 1 - Juventude 1 #

VAG = cbind(VAG,c(1,1))
ECJ = cbind(ECJ,c(1,1))

# Atletico Mineiro 2 - Gremio 1 #

AMN = cbind(AMN,c(2,1))
GRE = cbind(GRE,c(1,2))

## Gameweek 30 ##

# Sao Paulo 3 - Vasco da Gama 0 #

SAO = cbind(SAO,c(3,0))
VAG = cbind(VAG,c(0,3))

# Fortaleza 1 - Atletico Mineiro 1 #

FOR = cbind(FOR,c(1,1))
AMN = cbind(AMN,c(1,1))

# Corinthians 5 - Athletico-PR 2 #

CTH = cbind(CTH,c(5,2))
APR = cbind(APR,c(2,5))

# Flamengo 0 - Fluminense 2 #

FLA = cbind(FLA,c(0,2))
FLU = cbind(FLU,c(2,0))

# Atletico Goianiense 0 - Cuiaba 0 #

AGO = cbind(AGO,c(0,0))
CUI = cbind(CUI,c(0,0))

# Botafogo 1 - Criciuma 1 #

BOT = cbind(BOT,c(1,1))
CEC = cbind(CEC,c(1,1))

# Cruzeiro 1 - Bahia 1 #

CRZ = cbind(CRZ,c(1,1))
BAH = cbind(BAH,c(1,1))

# Internacional 1 - Gremio 0 #

INL = cbind(INL,c(1,0))
GRE = cbind(GRE,c(0,1))

# Vitoria 1 - Bragantino 0 #

VTO = cbind(VTO,c(1,0))
RBB = cbind(RBB,c(0,1))

# Juventude 3 - Palmeiras 5 #

ECJ = cbind(ECJ,c(3,5))
PAL = cbind(PAL,c(5,3))

# Fluminense 1 - Athletico-PR 0 #

FLU = cbind(FLU,c(1,0))
APR = cbind(APR,c(0,1))

# Vasco da Gama 1 - Cuiaba 0 #

VAG = cbind(VAG,c(1,0))
CUI = cbind(CUI,c(0,1))

## Gameweek 31 ##

# Palmeiras 2 - Fortaleza 2 #

PAL = cbind(PAL,c(2,2))
FOR = cbind(FOR,c(2,2))

# Flamengo 4 - Juventude 2 #

FLA = cbind(FLA,c(4,2))
ECJ = cbind(ECJ,c(2,4))

# Gremio 3 - Atletico Goianiense 1 #

GRE = cbind(GRE,c(3,1))
AGO = cbind(AGO,c(1,3))

# Vitoria 2 - Fluminense 1 #

VTO = cbind(VTO,c(2,1))
FLU = cbind(FLU,c(1,2))

# Athletico-PR 3 - Cruzeiro 0 #

APR = cbind(APR,c(3,0))
CRZ = cbind(CRZ,c(0,3))

# Bragantino 0 - Botafogo 1 #

RBB = cbind(RBB,c(0,1))
BOT = cbind(BOT,c(1,0))

# Atletico Mineiro 1 - Internacional 3 #

AMN = cbind(AMN,c(1,3))
INL = cbind(INL,c(3,1))

# Criciuma 1 - Sao Paulo 1 #

CEC = cbind(CEC,c(1,1))
SAO = cbind(SAO,c(1,1))

# Cuiaba 0 - Corinthians 1 #

CUI = cbind(CUI,c(0,1))
CTH = cbind(CTH,c(1,0))

# Vasco da Gama 3 - Bahia 2 #

VAG = cbind(VAG,c(3,2))
BAH = cbind(BAH,c(2,3))

# Internacional 1 - Flamengo 1 #

INL = cbind(INL,c(1,1))
FLA = cbind(FLA,c(1,1))

## Gameweek 32 ##

# Fluminense 2 - Gremio 2 #

FLU = cbind(FLU,c(2,2))
GRE = cbind(GRE,c(2,2))

# Bragantino 0 - Cuiaba 0 #

RBB = cbind(RBB,c(0,0))
CUI = cbind(CUI,c(0,0))

# Juventude 0 - Fortaleza 3 #

ECJ = cbind(ECJ,c(0,3))
FOR = cbind(FOR,c(3,0))

# Athletico-PR 1 - Vitoria 2 #

APR = cbind(APR,c(1,2))
VTO = cbind(VTO,c(2,1))

# Corinthians 2 - Palmeiras 0 #

CTH = cbind(CTH,c(2,0))
PAL = cbind(PAL,c(0,2))

# Bahia 0 - Sao Paulo 3 #

BAH = cbind(BAH,c(0,3))
SAO = cbind(SAO,c(3,0))

# Internacional 2 - Criciuma 0 #

INL = cbind(INL,c(2,0))
CEC = cbind(CEC,c(0,2))

# Botafogo 3 - Vasco da Gama 0 #

BOT = cbind(BOT,c(3,0))
VAG = cbind(VAG,c(0,3))

# Cruzeiro 0 - Flamengo 1 #

CRZ = cbind(CRZ,c(0,1))
FLA = cbind(FLA,c(1,0))

# Atletico Goianiense 1 - Atletico Mineiro 0 #

AGO = cbind(AGO,c(1,0))
AMN = cbind(AMN,c(0,1))

## Gameweek 33 ##

# Internacional 2 - Fluminense 0 #

INL = cbind(INL,c(2,0))
FLU = cbind(FLU,c(0,2))

# Palmeiras 1 - Gremio 0 #

PAL = cbind(PAL,c(1,0))
GRE = cbind(GRE,c(0,1))

# Vitoria 1 - Corinthians 2 #

VTO = cbind(VTO,c(1,2))
CTH = cbind(CTH,c(2,1))

# Botafogo 0 - Cuiaba 0 #

BOT = cbind(BOT,c(0,0))
CUI = cbind(CUI,c(0,0))

# Cruzeiro 2 - Criciuma 1 #

CRZ = cbind(CRZ,c(2,1))
CEC = cbind(CEC,c(1,2))

# Juventude 2 - Bahia 1 #

ECJ = cbind(ECJ,c(2,1))
BAH = cbind(BAH,c(1,2))

# Fortaleza 3 - Vasco da Gama 0 #

FOR = cbind(FOR,c(3,0))
VAG = cbind(VAG,c(0,3))

# Atletico Goianiense 0 - Bragantino 0 #

AGO = cbind(AGO,c(0,0))
RBB = cbind(RBB,c(0,0))

# Sao Paulo 2 - Athletico-PR 1 #

SAO = cbind(SAO,c(2,1))
APR = cbind(APR,c(1,2))

# Flamengo 0 - Atletico Mineiro 0 #

FLA = cbind(FLA,c(0,0))
AMN = cbind(AMN,c(0,0))

# Athletico-PR 1 - Atletico Mineiro 0 #

APR = cbind(APR,c(1,0))
AMN = cbind(AMN,c(0,1))

## Gameweek 34 ##

# Corinthians 2 - Cruzeiro 1 #

CTH = cbind(CTH,c(2,1))
CRZ = cbind(CRZ,c(1,2))

# Bragantino 1 - Sao Paulo 1 #

RBB = cbind(RBB,c(1,1))
SAO = cbind(SAO,c(1,1))

# Athletico-PR 2 - Atletico Goianiense 0 #

APR = cbind(APR,c(2,0))
AGO = cbind(AGO,c(0,2))

# Criciuma 0 - Vitoria 1 #

CEC = cbind(CEC,c(0,1))
VTO = cbind(VTO,c(1,0))

# Bahia 1 - Palmeiras 2 #

BAH = cbind(BAH,c(1,2))
PAL = cbind(PAL,c(2,1))

# Gremio 2 - Juventude 2 #

GRE = cbind(GRE,c(2,2))
ECJ = cbind(ECJ,c(2,2))

# Cuiaba 1 - Flamengo 2 #

CUI = cbind(CUI,c(1,2))
FLA = cbind(FLA,c(2,1))

# Atletico Mineiro 0 - Botafogo 0 #

AMN = cbind(AMN,c(0,0))
BOT = cbind(BOT,c(0,0))

# Vasco da Gama 0 - Internacional 1 #

VAG = cbind(VAG,c(0,1))
INL = cbind(INL,c(1,0))

# Fluminense 2 - Fortaleza 2 #

FLU = cbind(FLU,c(2,2))
FOR = cbind(FOR,c(2,2))

## Gameweek 35 ##

# Juventude 1 - Cuiaba 1 #

ECJ = cbind(ECJ,c(1,1))
CUI = cbind(CUI,c(1,1))

# Botafogo 1 - Vitoria 1 #

BOT = cbind(BOT,c(1,1))
VTO = cbind(VTO,c(1,1))

# Atletico Goianiense 0 - Palmeiras 1 #

AGO = cbind(AGO,c(0,1))
PAL = cbind(PAL,c(1,0))

# Sao Paulo 2 - Atletico Mineiro 2 #

SAO = cbind(SAO,c(2,2))
AMN = cbind(AMN,c(2,2))

# Corinthians 3 - Vasco da Gama 1 #

CTH = cbind(CTH,c(3,1))
VAG = cbind(VAG,c(1,3))

# Internacional 4 - Bragantino 1 #

INL = cbind(INL,c(4,1))
RBB = cbind(RBB,c(1,4))

# Bahia 1 - Athletico-PR 1 #

BAH = cbind(BAH,c(1,1))
APR = cbind(APR,c(1,1))

# Fluminense 0 - Criciuma 0 #

FLU = cbind(FLU,c(0,0))
CEC = cbind(CEC,c(0,0))

# Fortaleza 0 - Flamengo 0 #

FOR = cbind(FOR,c(0,0))
FLA = cbind(FLA,c(0,0))

# Cruzeiro 1 - Gremio 1 #

CRZ = cbind(CRZ,c(1,1))
GRE = cbind(GRE,c(1,1))

## Gameweek 36 ##

# Palmeiras 1 - Botafogo 3 #

PAL = cbind(PAL,c(1,3))
BOT = cbind(BOT,c(3,1))

# Atletico Mineiro 2 - Juventude 3 #

AMN = cbind(AMN,c(2,3))
ECJ = cbind(ECJ,c(3,2))

# Criciuma 2 - Corinthians 4 #

CEC = cbind(CEC,c(2,4))
CTH = cbind(CTH,c(4,2))

# Cuiaba 1 - Bahia 2 #

CUI = cbind(CUI,c(1,2))
BAH = cbind(BAH,c(2,1))

# Vasco da Gama 2 - Atletico Goianiense 2 #

VAG = cbind(VAG,c(2,2))
AGO = cbind(AGO,c(2,2))

# Gremio 2 - Sao Paulo 1 #

GRE = cbind(GRE,c(2,1))
SAO = cbind(SAO,c(1,2))

# Flamengo 3 - Internacional 2 #

FLA = cbind(FLA,c(3,2))
INL = cbind(INL,c(2,3))

# Bragantino 1 - Cruzeiro 1 #

RBB = cbind(RBB,c(1,1))
CRZ = cbind(CRZ,c(1,1))

# Athletico-PR 1 - Fluminense 1 #

APR = cbind(APR,c(1,1))
FLU = cbind(FLU,c(1,1))

# Vitoria 2 - Fortaleza 0 #

VTO = cbind(VTO,c(2,0))
FOR = cbind(FOR,c(0,2))

## Gameweek 37 ##

# Corinthians 3 - Bahia 0 #

CTH = cbind(CTH,c(3,0))
BAH = cbind(BAH,c(0,3))

# Vasco da Gama 2 - Atletico Mineiro 0 #

VAG = cbind(VAG,c(2,0))
AMN = cbind(AMN,c(0,2))

# Vitoria 1 - Gremio 1 #

VTO = cbind(VTO,c(1,1))
GRE = cbind(GRE,c(1,1))

# Criciuma 0 - Flamengo 3 #

CEC = cbind(CEC,c(0,3))
FLA = cbind(FLA,c(3,0))

# Sao Paulo 1 - Juventude 2 #

SAO = cbind(SAO,c(1,2))
ECJ = cbind(ECJ,c(2,1))

# Atletico Goianiense 3 - Fortaleza 1 #

AGO = cbind(AGO,c(3,1))
FOR = cbind(FOR,c(1,3))

# Internacional 0 - Botafogo 1 #

INL = cbind(INL,c(0,1))
BOT = cbind(BOT,c(1,0))

# Cruzeiro 1 - Palmeiras 2 #

CRZ = cbind(CRZ,c(1,2))
PAL = cbind(PAL,c(2,1))

# Fluminense 1 - Cuiaba 0 #

FLU = cbind(FLU,c(1,0))
CUI = cbind(CUI,c(0,1))

# Athletico-PR 1 - Bragantino 2 #

APR = cbind(APR,c(1,2))
RBB = cbind(RBB,c(2,1))

## Gameweek 38 ##

# Fortaleza 3 - Internacional 0 #

FOR = cbind(FOR,c(3,0))
INL = cbind(INL,c(0,3))

# Juventude 0 - Cruzeiro 1 #

ECJ = cbind(ECJ,c(0,1))
CRZ = cbind(CRZ,c(1,0))

# Bahia 2 - Atletico Goianiense 0 #

BAH = cbind(BAH,c(2,0))
AGO = cbind(AGO,c(0,2))

# Flamengo 2 - Vitoria 2 #

FLA = cbind(FLA,c(2,2))
VTO = cbind(VTO,c(2,2))

# Bragantino 5 - Criciuma 1 #

RBB = cbind(RBB,c(5,1))
CEC = cbind(CEC,c(1,5))

# Atletico Mineiro 1 - Athletico-PR 0 #

AMN = cbind(AMN,c(1,0))
APR = cbind(APR,c(0,1))

# Botafogo 2 - Sao Paulo 1 #

BOT = cbind(BOT,c(2,1))
SAO = cbind(SAO,c(1,2))

# Cuiaba 1 - Vasco da Gama 2 #

CUI = cbind(CUI,c(1,2))
VAG = cbind(VAG,c(2,1))

# Palmeiras 0 - Fluminense 1 #

PAL = cbind(PAL,c(0,1))
FLU = cbind(FLU,c(1,0))

# Gremio 0 - Corinthians 3 #

GRE = cbind(GRE,c(0,3))
CTH = cbind(CTH,c(3,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