### 1. Create table ###

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

teams = c("NII","AFU","CER","CON","GAM","JUB","KAS","KAR","KAW","KYO",
          "MZE","NAG","SAG","HIR","SHO","TOK","TVE","URA","VIS","YOK")   # 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 ##

# Sanfrecce 2 - Urawa Reds 0 #

HIR = matrix(c(2,0),nrow=2)
URA = matrix(c(0,2),nrow=2)

# Nagoya 0 - Kashima Antlers 3 #

NAG = matrix(c(0,3),nrow=2)
KAS = matrix(c(3,0),nrow=2)

# Jubilo Iwata 0 - Vissel Kobe 2 #

JUB = matrix(c(0,2),nrow=2)
VIS = matrix(c(2,0),nrow=2)

# Avispa Fukuoka 0 - Consadole Sapporo 0 #

AFU = matrix(c(0,0),nrow=2)
CON = matrix(c(0,0),nrow=2)

# Sagan Tosu 1 - Niigata 2 #

SAG = matrix(c(1,2),nrow=2)
NII = matrix(c(2,1),nrow=2)

# Shonan Bellmare 1 - Kawasaki 2 #

SHO = matrix(c(1,2),nrow=2)
KAW = matrix(c(2,1),nrow=2)

# Cerezo Osaka 2 - FC Tokyo 2 #

CER = matrix(c(2,2),nrow=2)
TOK = matrix(c(2,2),nrow=2)

# Machida Zelvia 1 - Gamba Osaka 1 #

MZE = matrix(c(1,1),nrow=2)
GAM = matrix(c(1,1),nrow=2)

# Tokyo Verdy 1 - Yokohama FM 2 #

TVE = matrix(c(1,2),nrow=2)
YOK = matrix(c(2,1),nrow=2)

# Kashiwa Reysol 1 - Kyoto Sanga 1 #

KAR = matrix(c(1,1),nrow=2)
KYO = matrix(c(1,1),nrow=2)

## Gameweek 2 ##

# Yokohama FM 0 - Avispa Fukuoka 1 #

YOK = cbind(YOK,c(0,1))
AFU = cbind(AFU,c(1,0))

# Kawasaki 4 - Jubilo Iwata 5 #

KAW = cbind(KAW,c(4,5))
JUB = cbind(JUB,c(5,4))

# Vissel Kobe 0 - Kashiwa Reysol 1 #

VIS = cbind(VIS,c(0,1))
KAR = cbind(KAR,c(1,0))

# Sagan Tosu 4 - Consadole Sapporo 0 #

SAG = cbind(SAG,c(4,0))
CON = cbind(CON,c(0,4))

# Nagoya 0 - Machida Zelvia 1 #

NAG = cbind(NAG,c(0,1))
MZE = cbind(MZE,c(1,0))

# Kyoto Sanga 1 - Shonan Bellmare 2 #

KYO = cbind(KYO,c(1,2))
SHO = cbind(SHO,c(2,1))

# Gamba Osaka 1 - Niigata 0 #

GAM = cbind(GAM,c(1,0))
NII = cbind(NII,c(0,1))

# Kashima Antlers 1 - Cerezo Osaka 1 #

KAS = cbind(KAS,c(1,1))
CER = cbind(CER,c(1,1))

# FC Tokyo 1 - Sanfrecce 1 #

TOK = cbind(TOK,c(1,1))
HIR = cbind(HIR,c(1,1))

# Urawa Reds 1 - Tokyo Verdy 1 #

URA = cbind(URA,c(1,1))
TVE = cbind(TVE,c(1,1))

## Gameweek 3 ##

# Niigata 1 - Nagoya 0 #

NII = cbind(NII,c(1,0))
NAG = cbind(NAG,c(0,1))

# Machida Zelvia 1 - Kashima Antlers 0 #

MZE = cbind(MZE,c(1,0))
KAS = cbind(KAS,c(0,1))

# Jubilo Iwata 0 - Kashiwa Reysol 1 #

JUB = cbind(JUB,c(0,1))
KAR = cbind(KAR,c(1,0))

# Sanfrecce 4 - Sagan Tosu 0 #

HIR = cbind(HIR,c(4,0))
SAG = cbind(SAG,c(0,4))

# Avispa Fukuoka 1 - Shonan Bellemare 1 #

AFU = cbind(AFU,c(1,1))
SHO = cbind(SHO,c(1,1))

# Cerezo Osaka 2 - Tokyo Verdy 1 #

CER = cbind(CER,c(2,1))
TVE = cbind(TVE,c(1,2))

# Kawasaki 0 - Kyoto Sanga 1 #

KAW = cbind(KAW,c(0,1))
KYO = cbind(KYO,c(1,0))

# FC Tokyo 1 - Vissel Kobe 2 #

TOK = cbind(TOK,c(1,2))
VIS = cbind(VIS,c(2,1))

# Consadole Sapporo 0 - Urawa Reds 1 #

CON = cbind(CON,c(0,1))
URA = cbind(URA,c(1,0))

## Gameweek 4 ##

# Avispa Fukuoka 1 - FC Tokyo 3 #

AFU = cbind(AFU,c(1,3))
TOK = cbind(TOK,c(3,1))

# Vissel Kobe 0 - Sanfrecce 0 #

VIS = cbind(VIS,c(0,0))
HIR = cbind(HIR,c(0,0))

# Consadole Sapporo 1 - Machida Zelvia 2 #

CON = cbind(CON,c(1,2))
MZE = cbind(MZE,c(2,1))

# Sagan Tosu 0 - Cerezo Osaka 2 #

SAG = cbind(SAG,c(0,2))
CER = cbind(CER,c(2,0))

# Gamba Osaka 2 - Jubilo Iwata 1 #

GAM = cbind(GAM,c(2,1))
JUB = cbind(JUB,c(1,2))

# Kashiwa Reysol 0 - Nagoya 2 #

KAR = cbind(KAR,c(0,2))
NAG = cbind(NAG,c(2,0))

# Tokyo Verdy 2 - Niigata 2 #

TVE = cbind(TVE,c(2,2))
NII = cbind(NII,c(2,2))

# Kyoto Sanga 2 - Yokohama FM 3 #

KYO = cbind(KYO,c(2,3))
YOK = cbind(YOK,c(3,2))

# Kashima Antlers 2 - Kawasaki 1 #

KAS = cbind(KAS,c(2,1))
KAW = cbind(KAW,c(1,2))

# Shonan Bellmare 4 - Urawa Reds 4 #

SHO = cbind(SHO,c(4,4))
URA = cbind(URA,c(4,4))

## Gameweek 5 ##

# Tokyo Verdy 2 - Kyoto Sanga 2 #

TVE = cbind(TVE,c(2,2))
KYO = cbind(KYO,c(2,2))

# Sanfrecce 1 - Gamba Osaka 1 #

HIR = cbind(HIR,c(1,1))
GAM = cbind(GAM,c(1,1))

# Niigata 1 - Kashiwa Reysol 1 #

NII = cbind(NII,c(1,1))
KAR = cbind(KAR,c(1,1))

# Vissel Kobe 6 - Consadole Sapporo 1 #

VIS = cbind(VIS,c(6,1))
CON = cbind(CON,c(1,6))

# Urawa Reds 2 - Avispa Fukuoka 1 #

URA = cbind(URA,c(2,1))
AFU = cbind(AFU,c(1,2))

# Kawasaki 3 - FC Tokyo 0 #

KAW = cbind(KAW,c(3,0))
TOK = cbind(TOK,c(0,3))

# Kashima Antlers 1 - Jubilo Iwata 0 #

KAS = cbind(KAS,c(1,0))
JUB = cbind(JUB,c(0,1))

# Machida Zelvia 3 - Sagan Tosu 1 #

MZE = cbind(MZE,c(3,1))
SAG = cbind(SAG,c(1,3))

# Cerezo Osaka 2 - Shonan Bellmare 0 #

CER = cbind(CER,c(2,0))
SHO = cbind(SHO,c(0,2))

# Nagoya 2 - Yokohama FM 1 #

NAG = cbind(NAG,c(2,1))
YOK = cbind(YOK,c(1,2))

## Gameweek 6 ##

# Machida Zelvia 1 - Sanfrecce 2 #

MZE = cbind(MZE,c(1,2))
HIR = cbind(HIR,c(2,1))

# Shonan Bellmare 1 - Tokyo Verdy 2 #

SHO = cbind(SHO,c(1,2))
TVE = cbind(TVE,c(2,1))

# Avispa Fukuoka 1 - Kashima Antlers 0 #

AFU = cbind(AFU,c(1,0))
KAS = cbind(KAS,c(0,1))

# Jubilo Iwata 2 - Niigata 0 #

JUB = cbind(JUB,c(2,0))
NII = cbind(NII,c(0,2))

# Sagan Tosu 0 - Vissel Kobe 0 #

SAG = cbind(SAG,c(0,0))
VIS = cbind(VIS,c(0,0))

# Yokohama FM 0 - Kawasaki 0 #

YOK = cbind(YOK,c(0,0))
KAW = cbind(KAW,c(0,0))

# Gamba Osaka 0 - Kyoto Sanga 0 #

GAM = cbind(GAM,c(0,0))
KYO = cbind(KYO,c(0,0))

# Kashiwa Reysol 1 - Cerezo Osaka 1 #

KAR = cbind(KAR,c(1,1))
CER = cbind(CER,c(1,1))

# Consadole Sapporo 1 - Nagoya 2 #

CON = cbind(CON,c(1,2))
NAG = cbind(NAG,c(2,1))

# FC Tokyo 2 - Urawa Reds 1 #

TOK = cbind(TOK,c(2,1))
URA = cbind(URA,c(1,2))

## Gameweek 7 ##

# Consadole Sapporo 1 - Gamba Osaka 0 #

CON = cbind(CON,c(1,0))
GAM = cbind(GAM,c(0,1))

# Tokyo Verdy 1 - Kashiwa Reysol 1 #

TVE = cbind(TVE,c(1,1))
KAR = cbind(KAR,c(1,1))

# Kyoto Sanga 0 - Jubilo Iwata 3 #

KYO = cbind(KYO,c(0,3))
JUB = cbind(JUB,c(3,0))

# Sanfrecce 2 - Shonan Bellmare 0 #

HIR = cbind(HIR,c(2,0))
SHO = cbind(SHO,c(0,2))

# Niigata 0 - Cerezo Osaka 1 #

NII = cbind(NII,c(0,1))
CER = cbind(CER,c(1,0))

# Vissel Kobe 1 - Yokohama FM 2 #

VIS = cbind(VIS,c(1,2))
YOK = cbind(YOK,c(2,1))

# Nagoya 0 - Avispa Fukuoka 0 #

NAG = cbind(NAG,c(0,0))
AFU = cbind(AFU,c(0,0))

# Kawasaki 0 - Machida Zelvia 1 #

KAW = cbind(KAW,c(0,1))
MZE = cbind(MZE,c(1,0))

# Urawa Reds 3 - Sagan Tosu 0 #

URA = cbind(URA,c(3,0))
SAG = cbind(SAG,c(0,3))

# FC Tokyo 2 - Kashima Antlers 0 #

TOK = cbind(TOK,c(2,0))
KAS = cbind(KAS,c(0,2))

# Yokohama FM 2 - Gamba Osaka 0 #

YOK = cbind(YOK,c(2,0))
GAM = cbind(GAM,c(0,2))

## Gameweek 8 ##

# Kashiwa Reysol 1 - Urawa Reds 0 #

KAR = cbind(KAR,c(1,0))
URA = cbind(URA,c(0,1))

# Niigata 1 - Consadole Sapporo 1 #

NII = cbind(NII,c(1,1))
CON = cbind(CON,c(1,1))

# Jubilo Iwata 0 - Nagoya 1 #

JUB = cbind(JUB,c(0,1))
NAG = cbind(NAG,c(1,0))

# Avispa Fukuoka 1 - Sanfrecce 1 #

AFU = cbind(AFU,c(1,1))
HIR = cbind(HIR,c(1,1))

# Yokohama FM 2 - Shonan Bellmare 2 #

YOK = cbind(YOK,c(2,2))
SHO = cbind(SHO,c(2,2))

# Kashima Antlers 1 - Kyoto Sanga 0 #

KAS = cbind(KAS,c(1,0))
KYO = cbind(KYO,c(0,1))

# Machida Zelvia 1 - Vissel Kobe 2 #

MZE = cbind(MZE,c(1,2))
VIS = cbind(VIS,c(2,1))

# Cerezo Osaka 1 - Kawasaki 0 #

CER = cbind(CER,c(1,0))
KAW = cbind(KAW,c(0,1))

# Tokyo Verdy 2 - FC Tokyo 2 #

TVE = cbind(TVE,c(2,2))
TOK = cbind(TOK,c(2,2))

# Gamba Osaka 2 - Sagan Tosu 1 #

GAM = cbind(GAM,c(2,1))
SAG = cbind(SAG,c(1,2))

## Gameweek 9 ##

# Sagan Tosu 4 - Kashima Antlers 2 #

SAG = cbind(SAG,c(4,2))
KAS = cbind(KAS,c(2,4))

# Consadole Sapporo 1 - Sanfrecce 1 #

CON = cbind(CON,c(1,1))
HIR = cbind(HIR,c(1,1))

# Kyoto Sanga 0 - Niigata 1 #

KYO = cbind(KYO,c(0,1))
NII = cbind(NII,c(1,0))

# Avispa Fukuoka 2 - Jubilo Iwata 2 #

AFU = cbind(AFU,c(2,2))
JUB = cbind(JUB,c(2,2))

# Shonan Bellmare 0 - Vissel Kobe 1 #

SHO = cbind(SHO,c(0,1))
VIS = cbind(VIS,c(1,0))

# Urawa Reds 0 - Gamba Osaka 1 #

URA = cbind(URA,c(0,1))
GAM = cbind(GAM,c(1,0))

# Kawasaki 0 - Tokyo Verdy 0 #

KAW = cbind(KAW,c(0,0))
TVE = cbind(TVE,c(0,0))

# Nagoya 2 - Cerezo Osaka 1 #

NAG = cbind(NAG,c(2,1))
CER = cbind(CER,c(1,2))

# FC Tokyo 1 - Machida Zelvia 2 #

TOK = cbind(TOK,c(1,2))
MZE = cbind(MZE,c(2,1))

## Gameweek 10 ##

# Consadole Sapporo 3 - Shonan Bellmare 3 #

CON = cbind(CON,c(3,3))
SHO = cbind(SHO,c(3,3))

# Jubilo Iwata 2 - Machida Zelvia 0 #

JUB = cbind(JUB,c(2,0))
MZE = cbind(MZE,c(0,2))

# Vissel Kobe 0 - Kyoto Sanga 1 #

VIS = cbind(VIS,c(0,1))
KYO = cbind(KYO,c(1,0))

# Niigata 1 - FC Tokyo 3 #

NII = cbind(NII,c(1,3))
TOK = cbind(TOK,c(3,1))

# Cerezo Osaka 2 - Yokohama FM 2 #

CER = cbind(CER,c(2,2))
YOK = cbind(YOK,c(2,2))

# Tokyo Verdy 0 - Avispa Fukuoka 0 #

TVE = cbind(TVE,c(0,0))
AFU = cbind(AFU,c(0,0))

# Sanfrecce 2 - Kawasaki 2 #

HIR = cbind(HIR,c(2,2))
KAW = cbind(KAW,c(2,2))

# Gamba Osaka 1 - Kashima Antlers 2 #

GAM = cbind(GAM,c(1,2))
KAS = cbind(KAS,c(2,1))

# Kashiwa Reysol 1 - Sagan Tosu 1 #

KAR = cbind(KAR,c(1,1))
SAG = cbind(SAG,c(1,1))

# Urawa Reds 2 - Nagoya 1 #

URA = cbind(URA,c(2,1))
NAG = cbind(NAG,c(1,2))

## Gameweek 11 ##

# Yokohama FM 1 - Jubilo Iwata 1 #

YOK = cbind(YOK,c(1,1))
JUB = cbind(JUB,c(1,1))

# Niigata 1 - Sanfrecce 1 #

NII = cbind(NII,c(1,1))
HIR = cbind(HIR,c(1,1))

# Sagan Tosu 0 - Tokyo Verdy 2 #

SAG = cbind(SAG,c(0,2))
TVE = cbind(TVE,c(2,0))

# FC Tokyo 2 - Kyoto Sanga 1 #

TOK = cbind(TOK,c(2,1))
KYO = cbind(KYO,c(1,2))

# Cerezo Osaka 1 - Consadole Sapporo 1 #

CER = cbind(CER,c(1,1))
CON = cbind(CON,c(1,1))

# Machida Zelvia 2 - Kashiwa Reysol 0 #

MZE = cbind(MZE,c(2,0))
KAR = cbind(KAR,c(0,2))

# Kashima Antlers 3 - Shonan Bellmare 1 #

KAS = cbind(KAS,c(3,1))
SHO = cbind(SHO,c(1,3))

# Avispa Fukuoka 1 - Gamba Osaka 0 #

AFU = cbind(AFU,c(1,0))
GAM = cbind(GAM,c(0,1))

# Kawasaki 3 - Urawa Reds 1 #

KAW = cbind(KAW,c(3,1))
URA = cbind(URA,c(1,3))

# Nagoya 0 - Vissel Kobe 2 #

NAG = cbind(NAG,c(0,2))
VIS = cbind(VIS,c(2,0))

## Gameweek 12 ##

# Vissel Kobe 3 - Niigata 2 #

VIS = cbind(VIS,c(3,2))
NII = cbind(NII,c(2,3))

# Tokyo Verdy 3 - Jubilo Iwata 2 #

TVE = cbind(TVE,c(3,2))
JUB = cbind(JUB,c(2,3))

# Gamba Osaka 1 - Cerezo Osaka 0 #

GAM = cbind(GAM,c(1,0))
CER = cbind(CER,c(0,1))

# Kyoto Sanga 0 - Machida Zelvia 3 #

KYO = cbind(KYO,c(0,3))
MZE = cbind(MZE,c(3,0))

# Avispa Fukuoka 1 - Kawasaki 1 #

AFU = cbind(AFU,c(1,1))
KAW = cbind(KAW,c(1,1))

# Consadole Sapporo 1 - FC Tokyo 2 #

CON = cbind(CON,c(1,2))
TOK = cbind(TOK,c(2,1))

# Sanfrecce 2 - Nagoya 3 #

HIR = cbind(HIR,c(2,3))
NAG = cbind(NAG,c(3,2))

# Kashiwa Reysol 1 - Kashima Antlers 2 #

KAR = cbind(KAR,c(1,2))
KAS = cbind(KAS,c(2,1))

# Shonan Bellmare 2 - Sagan Tosu 1 #

SHO = cbind(SHO,c(2,1))
SAG = cbind(SAG,c(1,2))

# Urawa Reds 2 - Yokohama FM 1 #

URA = cbind(URA,c(2,1))
YOK = cbind(YOK,c(1,2))

## Gameweek 13 ##

# Niigata 2 - Urawa Reds 4 #

NII = cbind(NII,c(2,4))
URA = cbind(URA,c(4,2))

# Kyoto Sanga 2 - Avispa Fukuoka 3 #

KYO = cbind(KYO,c(2,3))
AFU = cbind(AFU,c(3,2))

# Jubilo Iwata 0 - Sagan Tosu 3 #

JUB = cbind(JUB,c(0,3))
SAG = cbind(SAG,c(3,0))

# Shonan Bellmare 0 - Machida Zelvia 0 #

SHO = cbind(SHO,c(0,0))
MZE = cbind(MZE,c(0,0))

# Kawasaki 3 - Consadole Sapporo 0 #

KAW = cbind(KAW,c(3,0))
CON = cbind(CON,c(0,3))

# Cerezo Osaka 1 - Vissel Kobe 4 #

CER = cbind(CER,c(1,4))
VIS = cbind(VIS,c(4,1))

# Nagoya 0 - Gamba Osaka 1 #

NAG = cbind(NAG,c(0,1))
GAM = cbind(GAM,c(1,0))

# FC Tokyo 3 - Kashiwa Reysol 3 #

TOK = cbind(TOK,c(3,3))
KAR = cbind(KAR,c(3,3))

# Kashima Antlers 3 - Tokyo Verdy 3 #

KAS = cbind(KAS,c(3,3))
TVE = cbind(TVE,c(3,3))

## Gameweek 14 ##

# Kashiwa Reysol 2 - Shonan Bellmare 1 #

KAR = cbind(KAR,c(2,1))
SHO = cbind(SHO,c(1,2))

# Tokyo Verdy 0 - Gamba Osaka 0 #

TVE = cbind(TVE,c(0,0))
GAM = cbind(GAM,c(0,0))

# Sanfrecce 1 - Kashima Antlers 3 #

HIR = cbind(HIR,c(1,3))
KAS = cbind(KAS,c(3,1))

# Machida Zelvia 2 - Cerezo Osaka 1 #

MZE = cbind(MZE,c(2,1))
CER = cbind(CER,c(1,2))

# Nagoya 3 - FC Tokyo 1 #

NAG = cbind(NAG,c(3,1))
TOK = cbind(TOK,c(1,3))

# Vissel Kobe 1 - Avispa Fukuoka 0 #

VIS = cbind(VIS,c(1,0))
AFU = cbind(AFU,c(0,1))

# Niigata 3 - Yokohama FM 1 #

NII = cbind(NII,c(3,1))
YOK = cbind(YOK,c(1,3))

# Sagan Tosu 5 - Kawasaki 2 #

SAG = cbind(SAG,c(5,2))
KAW = cbind(KAW,c(2,5))

# Consadole Sapporo 1 - Jubilo Iwata 0 #

CON = cbind(CON,c(1,0))
JUB = cbind(JUB,c(0,1))

# Urawa Reds 3 - Kyoto Sanga 0 #

URA = cbind(URA,c(3,0))
KYO = cbind(KYO,c(0,3))

## Gameweek 15 ##

# Avispa Fukuoka 0 - Cerezo Osaka 3 #

AFU = cbind(AFU,c(0,3))
CER = cbind(CER,c(3,0))

# Sagan Tosu 0 - Nagoya 2 #

SAG = cbind(SAG,c(0,2))
NAG = cbind(NAG,c(2,0))

# Kyoto Sanga 0 - Sanfrecce 5 #

KYO = cbind(KYO,c(0,5))
HIR = cbind(HIR,c(5,0))

# Machida Zelvia 5 - Tokyo Verdy 0 #

MZE = cbind(MZE,c(5,0))
TVE = cbind(TVE,c(0,5))

# Jubilo Iwata 1 - Urawa Reds 1 #

JUB = cbind(JUB,c(1,1))
URA = cbind(URA,c(1,1))

# Kashima Antlers 1 - Vissel Kobe 0 #

KAS = cbind(KAS,c(1,0))
VIS = cbind(VIS,c(0,1))

# FC Tokyo 1 - Yokohama FM 1 #

TOK = cbind(TOK,c(1,1))
YOK = cbind(YOK,c(1,1))

# Gamba Osaka 3 - Kawasaki 1 #

GAM = cbind(GAM,c(3,1))
KAW = cbind(KAW,c(1,3))

# Shonan Bellmare 2 - Niigata 1 #

SHO = cbind(SHO,c(2,1))
NII = cbind(NII,c(1,2))

# Kashiwa Reysol 2 - Consadole Sapporo 1 #

KAR = cbind(KAR,c(2,1))
CON = cbind(CON,c(1,2))

## Gameweek 16 ##

# Jubilo Iwata 3 - Shonan Bellmare 2 #

JUB = cbind(JUB,c(3,2))
SHO = cbind(SHO,c(2,3))

# Consadole Sapporo 0 - Kashima Antlers 3 #

CON = cbind(CON,c(0,3))
KAS = cbind(KAS,c(3,0))

# Niigata 1 - Avispa Fukuoka 2 #

NII = cbind(NII,c(1,2))
AFU = cbind(AFU,c(2,1))

# Kawasaki 1 - Kashiwa Reysol 1 #

KAW = cbind(KAW,c(1,1))
KAR = cbind(KAR,c(1,1))

# Vissel Kobe 0 - Tokyo Verdy 1 #

VIS = cbind(VIS,c(0,1))
TVE = cbind(TVE,c(1,0))

# Cerezo Osaka 1 - Sanfrecce 1 #

CER = cbind(CER,c(1,1))
HIR = cbind(HIR,c(1,1))

# Nagoya 1 - Kyoto Sanga 1 #

NAG = cbind(NAG,c(1,1))
KYO = cbind(KYO,c(1,1))

# FC Tokyo 0 - Gamba Osaka 1 #

TOK = cbind(TOK,c(0,1))
GAM = cbind(GAM,c(1,0))

# Urawa Reds 1 - Machida Zelvia 2 #

URA = cbind(URA,c(1,2))
MZE = cbind(MZE,c(2,1))

# Yokohama FM 4 - Kashiwa Reysol 0 #

YOK = cbind(YOK,c(4,0))
KAR = cbind(KAR,c(0,4))

## Gameweek 17 ##

# Sagan Tosu 0 - FC Tokyo 1 #

SAG = cbind(SAG,c(0,1))
TOK = cbind(TOK,c(1,0))

# Sanfrecce 2 - Jubilo Iwata 0 #

HIR = cbind(HIR,c(2,0))
JUB = cbind(JUB,c(0,2))

# Machida Zelvia 1 - Niigata 3 #

MZE = cbind(MZE,c(1,3))
NII = cbind(NII,c(3,1))

# Shonan Bellmare 1 - Gamba Osaka 2 #

SHO = cbind(SHO,c(1,2))
GAM = cbind(GAM,c(2,1))

# Kashima Antlers 3 - Yokohama FM 2 #

KAS = cbind(KAS,c(3,2))
YOK = cbind(YOK,c(2,3))

# Urawa Reds 1 - Vissel Kobe 1 #

URA = cbind(URA,c(1,1))
VIS = cbind(VIS,c(1,1))

# Kyoto Sanga 1 - Cerezo Osaka 1 #

KYO = cbind(KYO,c(1,1))
CER = cbind(CER,c(1,1))

# Tokyo Verdy 5 - Consadole Sapporo 3 #

TVE = cbind(TVE,c(5,3))
CON = cbind(CON,c(3,5))

# Kawasaki 2 - Nagoya 1 #

KAW = cbind(KAW,c(2,1))
NAG = cbind(NAG,c(1,2))

# Kashiwa Reysol 0 - Avispa Fukuoka 2 #

KAR = cbind(KAR,c(0,2))
AFU = cbind(AFU,c(2,0))

## Gameweek 18 ##

# Yokohama FM 1 - Machida Zelvia 3 #

YOK = cbind(YOK,c(1,3))
MZE = cbind(MZE,c(3,1))

# Sanfrecce 4 - Tokyo Verdy 1 #

HIR = cbind(HIR,c(4,1))
TVE = cbind(TVE,c(1,4))

# Cerezo Osaka 2 - Urawa Reds 1 #

CER = cbind(CER,c(2,1))
URA = cbind(URA,c(1,2))

# Kyoto Sanga 2 - Consadole Sapporo 0 #

KYO = cbind(KYO,c(2,0))
CON = cbind(CON,c(0,2))

# Vissel Kobe 1 - Kawasaki 0 #

VIS = cbind(VIS,c(1,0))
KAW = cbind(KAW,c(0,1))

# Avispa Fukuoka 2 - Sagan Tosu 0 #

AFU = cbind(AFU,c(2,0))
SAG = cbind(SAG,c(0,2))

# Kashima Antlers 1 - Niigata 1 #

KAS = cbind(KAS,c(1,1))
NII = cbind(NII,c(1,1))

# FC Tokyo 1 - Jubilo Iwata 1 #

TOK = cbind(TOK,c(1,1))
JUB = cbind(JUB,c(1,1))

# Gamba Osaka 2 - Kashiwa Reysol 1 #

GAM = cbind(GAM,c(2,1))
KAR = cbind(KAR,c(1,2))

# Nagoya 1 - Shonan Bellmare 1 #

NAG = cbind(NAG,c(1,1))
SHO = cbind(SHO,c(1,1))

# Yokohama FM 3 - Sanfrecce 2 #

YOK = cbind(YOK,c(3,2))
HIR = cbind(HIR,c(2,3))

## Gameweek 19 ##

# Machida Zelvia 0 - Avispa Fukuoka 0 #

MZE = cbind(MZE,c(0,0))
AFU = cbind(AFU,c(0,0))

# Tokyo Verdy 1 - Nagoya 0 #

TVE = cbind(TVE,c(1,0))
NAG = cbind(NAG,c(0,1))

# Niigata 2 - Kawasaki 2 #

NII = cbind(NII,c(2,2))
KAW = cbind(KAW,c(2,2))

# Gamba Osaka 2 - Vissel Kobe 1 #

GAM = cbind(GAM,c(2,1))
VIS = cbind(VIS,c(1,2))

# Jubilo Iwata 1 - Cerezo Osaka 1 #

JUB = cbind(JUB,c(1,1))
CER = cbind(CER,c(1,1))

# Shonan Bellmare 0 - FC Tokyo 1 #

SHO = cbind(SHO,c(0,1))
TOK = cbind(TOK,c(1,0))

# Kashiwa Reysol 0 - Sanfrecce 1 #

KAR = cbind(KAR,c(0,1))
HIR = cbind(HIR,c(1,0))

# Sagan Tosun 3 - Kyoto Sanga 0 #

SAG = cbind(SAG,c(3,0))
KYO = cbind(KYO,c(0,3))

# Urawa Reds 2 - Kashima Antlers 2 #

URA = cbind(URA,c(2,2))
KAS = cbind(KAS,c(2,2))

# Consadole Sapporo 0 - Yokohama FM 1 #

CON = cbind(CON,c(0,1))
YOK = cbind(YOK,c(1,0))

## Gameweek 20 ##

# Avispa Fukuoka 2 - Yokohama FM 1 #

AFU = cbind(AFU,c(2,1))
YOK = cbind(YOK,c(1,2))

# Kawasaki 1 - Shonan Bellmare 1 #

KAW = cbind(KAW,c(1,1))
SHO = cbind(SHO,c(1,1))

# Cerezo Osaka 1 - Sagan Tosu 0 #

CER = cbind(CER,c(1,0))
SAG = cbind(SAG,c(0,1))

# Kyoto Sanga 2 - Kashiwa Reysol 2 #

KYO = cbind(KYO,c(2,2))
KAR = cbind(KAR,c(2,2))

# FC Tokyo 1 - Consadole Sapporo 0 #

TOK = cbind(TOK,c(1,0))
CON = cbind(CON,c(0,1))

# Nagoya 0 - Urawa Reds 1 #

NAG = cbind(NAG,c(0,1))
URA = cbind(URA,c(1,0))

# Kashima Antlers 0 - Gamba Osaka 0 #

KAS = cbind(KAS,c(0,0))
GAM = cbind(GAM,c(0,0))

# Sanfrecce 1 - Niigata 1 #

HIR = cbind(HIR,c(1,1))
NII = cbind(NII,c(1,1))

# Jubilo Iwata 3 - Tokyo Verdy 0 #

JUB = cbind(JUB,c(3,0))
TVE = cbind(TVE,c(0,3))

# Vissel Kobe 0 - Machida Zelvia 0 #

VIS = cbind(VIS,c(0,0))
MZE = cbind(MZE,c(0,0))

## Gameweek 21 ##

# Consadole Sapporo 0 - Niigata 1 #

CON = cbind(CON,c(0,1))
NII = cbind(NII,c(1,0))

# Kawasaki 1 - Sanfrecce 1 #

KAW = cbind(KAW,c(1,1))
HIR = cbind(HIR,c(1,1))

# Yokohama FM 1 - Tokyo Verdy 2 #

YOK = cbind(YOK,c(1,2))
TVE = cbind(TVE,c(2,1))

# Cerezo Osaka 2 - Nagoya 1 #

CER = cbind(CER,c(2,1))
NAG = cbind(NAG,c(1,2))

# Gamba Osaka 1 - Machida Zelvia 3 #

GAM = cbind(GAM,c(1,3))
MZE = cbind(MZE,c(3,1))

# FC Tokyo 0 - Avispa Fukuoka 1 #

TOK = cbind(TOK,c(0,1))
AFU = cbind(AFU,c(1,0))

# Urawa Reds 3 - Jubilo Iwata 0 #

URA = cbind(URA,c(3,0))
JUB = cbind(JUB,c(0,3))

# Shonan Bellmare 0 - Kyoto Sanga 1 #

SHO = cbind(SHO,c(0,1))
KYO = cbind(KYO,c(1,0))

# Vissel Kobe 3 - Kashima Antlers 1 #

VIS = cbind(VIS,c(3,1))
KAS = cbind(KAS,c(1,3))

# Sagan Tosu 1 - Kashiwa Reysol 4 #

SAG = cbind(SAG,c(1,4))
KAR = cbind(KAR,c(4,1))

# Yokohama FM 0 - Sagan Tosu 1 #

YOK = cbind(YOK,c(0,1))
SAG = cbind(SAG,c(1,0))

## Gameweek 22 ##

# Sanfrecce 1 - Vissel Kobe 3 #

HIR = cbind(HIR,c(1,3))
VIS = cbind(VIS,c(3,1))

# Kashima Antlers 2 - Consadole Sapporo 0 #

KAS = cbind(KAS,c(2,0))
CON = cbind(CON,c(0,2))

# Machida Zelvia 1 - Nagoya 0 #

MZE = cbind(MZE,c(1,0))
NAG = cbind(NAG,c(0,1))

# Niigata 3 - Sagan Tosu 4 #

NII = cbind(NII,c(3,4))
SAG = cbind(SAG,c(4,3))

# Jubilo Iwata 2 - Kawasaki 2 #

JUB = cbind(JUB,c(2,2))
KAW = cbind(KAW,c(2,2))

# Tokyo Verdy 1 - Cerezo Osaka 1 #

TVE = cbind(TVE,c(1,1))
CER = cbind(CER,c(1,1))

# Urawa Reds 2 - Shonan Bellmare 3 #

URA = cbind(URA,c(2,3))
SHO = cbind(SHO,c(3,2))

# Gamba Osaka 4 - Yokohama FM 0 #

GAM = cbind(GAM,c(4,0))
YOK = cbind(YOK,c(0,4))

# Kashiwa Reysol 3 - FC Tokyo 2 #

KAR = cbind(KAR,c(3,2))
TOK = cbind(TOK,c(2,3))

# Avispa Fukuoka 1 - Kyoto Sanga 2 #

AFU = cbind(AFU,c(1,2))
KYO = cbind(KYO,c(2,1))

## Gameweek 23 ##

# Consadole Sapporo 1 - Vissel Kobe 1 #

CON = cbind(CON,c(1,1))
VIS = cbind(VIS,c(1,1))

# FC Tokyo 2 - Niigata 0 #

TOK = cbind(TOK,c(2,0))
NII = cbind(NII,c(0,2))

# Nagoya 2 - Kashiwa Reysol 1 #

NAG = cbind(NAG,c(2,1))
KAR = cbind(KAR,c(1,2))

# Tokyo Verdy 0 - Machida Zelvia 1 #

TVE = cbind(TVE,c(0,1))
MZE = cbind(MZE,c(1,0))

# Kyoto Sanga 0 - Urawa Reds 0 #

KYO = cbind(KYO,c(0,0))
URA = cbind(URA,c(0,0))

# Sanfrecce 1 - Avispa Fukuoka 0 #

HIR = cbind(HIR,c(1,0))
AFU = cbind(AFU,c(0,1))

# Kawasaki 1 - Cerezo Osaka 1 #

KAW = cbind(KAW,c(1,1))
CER = cbind(CER,c(1,1))

# Shonan Bellmare 5 - Jubilo Iwata 0 #

SHO = cbind(SHO,c(5,0))
JUB = cbind(JUB,c(0,5))

# Sagan Tosu 0 - Gamba Osaka 2 #

SAG = cbind(SAG,c(0,2))
GAM = cbind(GAM,c(2,0))

# Yokohama FM 4 - Kashima Antlers 1 #

YOK = cbind(YOK,c(4,1))
KAS = cbind(KAS,c(1,4))

## Gameweek 24 ##

# Machida Zelvia 1 - Yokohama FM 2 #

MZE = cbind(MZE,c(1,2))
YOK = cbind(YOK,c(2,1))

# Kashima Antlers 2 - FC Tokyo 1 #

KAS = cbind(KAS,c(2,1))
TOK = cbind(TOK,c(1,2))

# Gamba Osaka 0 - Shonan Bellmare 1 #

GAM = cbind(GAM,c(0,1))
SHO = cbind(SHO,c(1,0))

# Jubilo Iwata 1 - Kyoto Sanga 2 #

JUB = cbind(JUB,c(1,2))
KYO = cbind(KYO,c(2,1))

# Urawa Reds 3 - Consadole Sapporo 4 #

URA = cbind(URA,c(3,4))
CON = cbind(CON,c(4,3))

# Cerezo Osaka 1 - Niigata 2 #

CER = cbind(CER,c(1,2))
NII = cbind(NII,c(2,1))

# Avispa Fukuoka 0 - Tokyo Verdy 1 #

AFU = cbind(AFU,c(0,1))
TVE = cbind(TVE,c(1,0))

# Kashiwa Reysol 2 - Kawasaki 3 #

KAR = cbind(KAR,c(2,3))
KAW = cbind(KAW,c(3,2))

# Vissel Kobe 3 - Nagoya 3 #

VIS = cbind(VIS,c(3,3))
NAG = cbind(NAG,c(3,3))

# Sagan Tosu 1 - Sanfrecce 4 #

SAG = cbind(SAG,c(1,4))
HIR = cbind(HIR,c(4,1))

## Gameweek 25 ##

# Cerezo Osaka 0 - Machida Zelvia 0 #

CER = cbind(CER,c(0,0))
MZE = cbind(MZE,c(0,0))

# Kashima Antlers 3 - Sagan Tosu 0 #

KAS = cbind(KAS,c(3,0))
SAG = cbind(SAG,c(0,3))

# Niigata 2 - Jubilo Iwata 2 #

NII = cbind(NII,c(2,2))
JUB = cbind(JUB,c(2,2))

# Kawasaki 3 - Vissel Kobe 0 #

KAW = cbind(KAW,c(3,0))
VIS = cbind(VIS,c(0,3))

# Kyoto Sanga 3 - Nagoya 2 #

KYO = cbind(KYO,c(3,2))
NAG = cbind(NAG,c(2,3))

# Shonan Bellmare 1 - Avispa Fukuoka 1 #

SHO = cbind(SHO,c(1,1))
AFU = cbind(AFU,c(1,1))

# Gamba Osaka 0 - FC Tokyo 0 #

GAM = cbind(GAM,c(0,0))
TOK = cbind(TOK,c(0,0))

# Tokyo Verdy 0 - Sanfrecce 1 #

TVE = cbind(TVE,c(0,1))
HIR = cbind(HIR,c(1,0))

# Yokohama FM 3 - Consadole Sapporo 2 #

YOK = cbind(YOK,c(3,2))
CON = cbind(CON,c(2,3))

## Gameweek 26 ##

# Consadole Sapporo 2 - Avispa Fukuoka 2 #

CON = cbind(CON,c(2,2))
AFU = cbind(AFU,c(2,2))

# Machida Zelvia 0 - Shonan Bellmare 1 #

MZE = cbind(MZE,c(0,1))
SHO = cbind(SHO,c(1,0))

# Sanfrecce 2 - Cerezo Osaka 0 #

HIR = cbind(HIR,c(2,0))
CER = cbind(CER,c(0,2))

# Jubilo Iwata 2 - Kashima Antlers 1 #

JUB = cbind(JUB,c(2,1))
KAS = cbind(KAS,c(1,2))

# Kashiwa Reysol 0 - Gamba Osaka 0 #

KAR = cbind(KAR,c(0,0))
GAM = cbind(GAM,c(0,0))

# Nagoya 1 - Tokyo Verdy 0 #

NAG = cbind(NAG,c(1,0))
TVE = cbind(TVE,c(0,1))

# Sagan Tosu 1 - Urawa Reds 1 #

SAG = cbind(SAG,c(1,1))
URA = cbind(URA,c(1,1))

# FC Tokyo 0 - Kawasaki 3 #

TOK = cbind(TOK,c(0,3))
KAW = cbind(KAW,c(3,0))

# Yokohama FM 1 - Vissel Kobe 2 #

YOK = cbind(YOK,c(1,2))
VIS = cbind(VIS,c(2,1))

# Niigata 2 - Kyoto Sanga 0 #

NII = cbind(NII,c(2,0))
KYO = cbind(KYO,c(0,2))

## Gameweek 27 ##

# Consadole Sapporo 5 - Sagan Tosu 3 #

CON = cbind(CON,c(5,3))
SAG = cbind(SAG,c(3,5))

# Kashima Antlers 0 - Urawa Reds 0 #

KAS = cbind(KAS,c(0,0))
URA = cbind(URA,c(0,0))

# Machida Zelvia 4 - Jubilo Iwata 0 #

MZE = cbind(MZE,c(4,0))
JUB = cbind(JUB,c(0,4))

# Vissel Kobe 2 - Gamba Osaka 2 #

VIS = cbind(VIS,c(2,2))
GAM = cbind(GAM,c(2,2))

# FC Tokyo 0 - Tokyo Verdy 0 #

TOK = cbind(TOK,c(0,0))
TVE = cbind(TVE,c(0,0))

# Kawasaki 1 - Yokohama FM 3 #

KAW = cbind(KAW,c(1,3))
YOK = cbind(YOK,c(3,1))

# Nagoya 1 - Sanfrecce 2 #

NAG = cbind(NAG,c(1,2))
HIR = cbind(HIR,c(2,1))

# Cerezo Osaka 3 - Kyoto Sanga 5 #

CER = cbind(CER,c(3,5))
KYO = cbind(KYO,c(5,3))

# Shonan Bellmare 1 - Kashiwa Reysol 2 #

SHO = cbind(SHO,c(1,2))
KAR = cbind(KAR,c(2,1))

# Avispa Fukuoka 0 - Niigata 1 #

AFU = cbind(AFU,c(0,1))
NII = cbind(NII,c(1,0))

## Gameweek 28 ##

# Gamba Osaka 2 - Avispa Fukuoka 2 #

GAM = cbind(GAM,c(2,2))
AFU = cbind(AFU,c(2,2))

# Yokohama FM 4 - Cerezo Osaka 0 #

YOK = cbind(YOK,c(4,0))
CER = cbind(CER,c(0,4))

# Kyoto Sanga 3 - FC Tokyo 0 #

KYO = cbind(KYO,c(3,0))
TOK = cbind(TOK,c(0,3))

# Shonan Bellmare 0 - Nagoya 1 #

SHO = cbind(SHO,c(0,1))
NAG = cbind(NAG,c(1,0))

# Tokyo Verdy 2 - Kashima Antlers 1 #

TVE = cbind(TVE,c(2,1))
KAS = cbind(KAS,c(1,2))

# Sanfrecce 2 - Kashiwa Reysol 0 #

HIR = cbind(HIR,c(2,0))
KAR = cbind(KAR,c(0,2))

# Vissel Kobe 2 - Sagan Tosu 0 #

VIS = cbind(VIS,c(2,0))
SAG = cbind(SAG,c(0,2))

# Jubilo Iwata 0 - Consadole Sapporo 2 #

JUB = cbind(JUB,c(0,2))
CON = cbind(CON,c(2,0))

# Niigata 0 - Machida Zelvia 0 #

NII = cbind(NII,c(0,0))
MZE = cbind(MZE,c(0,0))

## Gameweek 29 ##

# Machida Zelvia 2 - Urawa Reds 2 #

MZE = cbind(MZE,c(2,2))
URA = cbind(URA,c(2,2))

# Sanfrecce 3 - FC Tokyo 2 #

HIR = cbind(HIR,c(3,2))
TOK = cbind(TOK,c(2,3))

# Kashiwa Reysol 2 - Tokyo Verdy 3 #

KAR = cbind(KAR,c(2,3))
TVE = cbind(TVE,c(3,2))

# Sagan Tosu 1 - Shonan Bellmare 2 #

SAG = cbind(SAG,c(1,2))
SHO = cbind(SHO,c(2,1))

# Consadole Sapporo 2 - Kawasaki 0 #

CON = cbind(CON,c(2,0))
KAW = cbind(KAW,c(0,2))

# Avispa Fukuoka 0 - Vissel Kobe 2 #

AFU = cbind(AFU,c(0,2))
VIS = cbind(VIS,c(2,0))

## Gameweek 30 ##

# Vissel Kobe 2 - Cerezo Osaka 1 #

VIS = cbind(VIS,c(2,1))
CER = cbind(CER,c(1,2))

# Yokohama FM 1 - Kyoto Sanga 2 #

YOK = cbind(YOK,c(1,2))
KYO = cbind(KYO,c(2,1))

# Kawasaki 3 - Sagan Tosu 2 #

KAW = cbind(KAW,c(3,2))
SAG = cbind(SAG,c(2,3))

# Consadole Sapporo 0 - Tokyo Verdy 2 #

CON = cbind(CON,c(0,2))
TVE = cbind(TVE,c(2,0))

# Avispa Fukuoka 0 - Machida Zelvia 3 #

AFU = cbind(AFU,c(0,3))
MZE = cbind(MZE,c(3,0))

# Kashima Antlers 2 - Sanfrecce 2 #

KAS = cbind(KAS,c(2,2))
HIR = cbind(HIR,c(2,2))

# Niigata 3 - Shonan Bellmare 1 #

NII = cbind(NII,c(3,1))
SHO = cbind(SHO,c(1,3))

# FC Tokyo 4 - Nagoya 1 #

TOK = cbind(TOK,c(4,1))
NAG = cbind(NAG,c(1,4))

# Kashiwa Reysol 0 - Jubilo Iwata 2 #

KAR = cbind(KAR,c(0,2))
JUB = cbind(JUB,c(2,0))

# Gamba Osaka 0 - Urawa Reds 1 #

GAM = cbind(GAM,c(0,1))
URA = cbind(URA,c(1,0))

# Nagoya 3 - Niigata 0 #

NAG = cbind(NAG,c(3,0))
NII = cbind(NII,c(0,3))

## Gameweek 31 ##

# Kashima Antlers 0 - Kashiwa Reysol 0 #

KAS = cbind(KAS,c(0,0))
KAR = cbind(KAR,c(0,0))

# Machida Zelvia 0 - Consadole Sapporo 0 #

MZE = cbind(MZE,c(0,0))
CON = cbind(CON,c(0,0))

# Jubilo Iwata 0 - Avispa Fukuoka 0 #

JUB = cbind(JUB,c(0,0))
AFU = cbind(AFU,c(0,0))

# Urawa Reds 0 - FC Tokyo 2 #

URA = cbind(URA,c(0,2))
TOK = cbind(TOK,c(2,0))

# Nagoya 2 - Kawasaki 0 #

NAG = cbind(NAG,c(2,0))
KAW = cbind(KAW,c(0,2))

# Niigata 2 - Vissel Kobe 3 #

NII = cbind(NII,c(2,3))
VIS = cbind(VIS,c(3,2))

# Tokyo Verdy 2 - Sagan Tosu 0 #

TVE = cbind(TVE,c(2,0))
SAG = cbind(SAG,c(0,2))

# Sanfrecce 6 - Yokohama FM 2 #

HIR = cbind(HIR,c(6,2))
YOK = cbind(YOK,c(2,6))

# Kyoto Sanga 2 - Gamba Osaka 2 #

KYO = cbind(KYO,c(2,2))
GAM = cbind(GAM,c(2,2))

# Shonan Bellmare 1 - Cerezo Osaka 2 #

SHO = cbind(SHO,c(1,2))
CER = cbind(CER,c(2,1))

## Gameweek 32 ##

# Kawasaki 5 - Niigata 1 #

KAW = cbind(KAW,c(5,1))
NII = cbind(NII,c(1,5))

# Consadole Sapporo 2 - Kyoto Sanga 0 #

CON = cbind(CON,c(2,0))
KYO = cbind(KYO,c(0,2))

# Nagoya 2 - Jubilo Iwata 0 #

NAG = cbind(NAG,c(2,0))
JUB = cbind(JUB,c(0,2))

# Gamba Osaka 1 - Tokyo Verdy 1 #

GAM = cbind(GAM,c(1,1))
TVE = cbind(TVE,c(1,1))

# Yokohama FM 1 - FC Tokyo 3 #

YOK = cbind(YOK,c(1,3))
TOK = cbind(TOK,c(3,1))

# Cerezo Osaka 0 - Kashiwa Reysol 0 #

CER = cbind(CER,c(0,0))
KAR = cbind(KAR,c(0,0))

# Vissel Kobe 1 - Urawa Reds 0 #

VIS = cbind(VIS,c(1,0))
URA = cbind(URA,c(0,1))

# Shonan Bellmare 3 - Kashima Antlers 2 #

SHO = cbind(SHO,c(3,2))
KAS = cbind(KAS,c(2,3))

# Sanfrecce 2 - Machida Zelvia 0 #

HIR = cbind(HIR,c(2,0))
MZE = cbind(MZE,c(0,2))

# Sagan Tosu 0 - Avispa Fukuoka 0 #

SAG = cbind(SAG,c(0,0))
AFU = cbind(AFU,c(0,0))

# Cerezo Osaka 1 - Gamba Osaka 0 #

CER = cbind(CER,c(1,0))
GAM = cbind(GAM,c(0,1))

## Gameweek 33 ##

# Avispa Fukuoka 1 - Nagoya 0 #

AFU = cbind(AFU,c(1,0))
NAG = cbind(NAG,c(0,1))

# Niigata 0 - Kashima Antlers 4 #

NII = cbind(NII,c(0,4))
KAS = cbind(KAS,c(4,0))

# Machida Zelvia 1 - Kawasaki 4 #

MZE = cbind(MZE,c(1,4))
KAW = cbind(KAW,c(4,1))

# FC Tokyo 1 - Sagan Tosu 1 #

TOK = cbind(TOK,c(1,1))
SAG = cbind(SAG,c(1,1))

# Kashiwa Reysol 1 - Yokohama FM 0 #

KAR = cbind(KAR,c(1,0))
YOK = cbind(YOK,c(0,1))

# Urawa Reds 0 - Cerezo Osaka 1 #

URA = cbind(URA,c(0,1))
CER = cbind(CER,c(1,0))

# Gamba Osaka 2 - Consadole Sapporo 1 #

GAM = cbind(GAM,c(2,1))
CON = cbind(CON,c(1,2))

# Kyoto Sanga 2 - Vissel Kobe 3 #

KYO = cbind(KYO,c(2,3))
VIS = cbind(VIS,c(3,2))

# Tokyo Verdy 0 - Shonan Bellmare 2 #

TVE = cbind(TVE,c(0,2))
SHO = cbind(SHO,c(2,0))

# Jubilo Iwata 1 - Sanfrecce 2 #

JUB = cbind(JUB,c(1,2))
HIR = cbind(HIR,c(2,1))

## Gameweek 34 ##

# Vissel Kobe 0 - FC Tokyo 2 #

VIS = cbind(VIS,c(0,2))
TOK = cbind(TOK,c(2,0))

# Kawasaki 1 - Gamba Osaka 1 #

KAW = cbind(KAW,c(1,1))
GAM = cbind(GAM,c(1,1))

# Yokohama FM 0 - Niigata 0 #

YOK = cbind(YOK,c(0,0))
NII = cbind(NII,c(0,0))

# Kashiwa Reysol 1 - Machida Zelvia 1 #

KAR = cbind(KAR,c(1,1))
MZE = cbind(MZE,c(1,1))

# Kashima Antlers 0 - Avispa Fukuoka 0 #

KAS = cbind(KAS,c(0,0))
AFU = cbind(AFU,c(0,0))

# Nagoya 0 - Consadole Sapporo 2 #

NAG = cbind(NAG,c(0,2))
CON = cbind(CON,c(2,0))

# Kyoto Sanga 2 - Sagan Tosu 0 #

KYO = cbind(KYO,c(2,0))
SAG = cbind(SAG,c(0,2))

# Cerezo Osaka 1 - Jubilo Iwata 2 #

CER = cbind(CER,c(1,2))
JUB = cbind(JUB,c(2,1))

# Shonan Bellmare 2 - Sanfrecce 1 #

SHO = cbind(SHO,c(2,1))
HIR = cbind(HIR,c(1,2))

# Tokyo Verdy 2 - Urawa Reds 1 #

TVE = cbind(TVE,c(2,1))
URA = cbind(URA,c(1,2))

# Urawa Reds 1 - Kashiwa Reysol 0 #

URA = cbind(URA,c(1,0))
KAR = cbind(KAR,c(0,1))

## Gameweek 35 ##

# Niigata 0 - Tokyo Verdy 2 #

NII = cbind(NII,c(0,2))
TVE = cbind(TVE,c(2,0))

# Gamba Osaka 3 - Nagoya 2 #

GAM = cbind(GAM,c(3,2))
NAG = cbind(NAG,c(2,3))

# Yokohama FM 0 - Urawa Reds 0 #

YOK = cbind(YOK,c(0,0))
URA = cbind(URA,c(0,0))

# Vissel Kobe 2 - Jubilo Iwata 0 #

VIS = cbind(VIS,c(2,0))
JUB = cbind(JUB,c(0,2))

# Kawasaki 1 - Kashima Antlers 3 #

KAW = cbind(KAW,c(1,3))
KAS = cbind(KAS,c(3,1))

# Sanfrecce 0 - Kyoto Sanga 1 #

HIR = cbind(HIR,c(0,1))
KYO = cbind(KYO,c(1,0))

# Consadole Sapporo 1 - Cerezo Osaka 1 #

CON = cbind(CON,c(1,1))
CER = cbind(CER,c(1,1))

# FC Tokyo 0 - Shonan Bellmare 2 #

TOK = cbind(TOK,c(0,2))
SHO = cbind(SHO,c(2,0))

# Sagan Tosu 2 - Machida Zelvia 1 #

SAG = cbind(SAG,c(2,1))
MZE = cbind(MZE,c(1,2))

# Avispa Fukuoka 2 - Kashiwa Reysol 1 #

AFU = cbind(AFU,c(2,1))
KAR = cbind(KAR,c(1,2))

## Gameweek 36 ##

# Shonan Bellmare 1 - Consadole Sapporo 1 #

SHO = cbind(SHO,c(1,1))
CON = cbind(CON,c(1,1))

# Kyoto Sanga 1 - Kawasaki 1 #

KYO = cbind(KYO,c(1,1))
KAW = cbind(KAW,c(1,1))

# Machida Zelvia 3 - FC Tokyo 0 #

MZE = cbind(MZE,c(3,0))
TOK = cbind(TOK,c(0,3))

# Kashima Antlers 0 - Nagoya 0 #

KAS = cbind(KAS,c(0,0))
NAG = cbind(NAG,c(0,0))

# Sagan Tosu 1 - Yokohama FM 2 #

SAG = cbind(SAG,c(1,2))
YOK = cbind(YOK,c(2,1))

# Kashiwa Reysol 1 - Niigata 1 #

KAR = cbind(KAR,c(1,1))
NII = cbind(NII,c(1,1))

# Cerezo Osaka 1 - Avispa Fukuoka 0 #

CER = cbind(CER,c(1,0))
AFU = cbind(AFU,c(0,1))

# Jubilo Iwata 3 - Gamba Osaka 4 #

JUB = cbind(JUB,c(3,4))
GAM = cbind(GAM,c(4,3))

# Tokyo Verdy 1 - Vissel Kobe 1 #

TVE = cbind(TVE,c(1,1))
VIS = cbind(VIS,c(1,1))

# Urawa Reds 3 - Sanfrecce 0 #

URA = cbind(URA,c(3,0))
HIR = cbind(HIR,c(0,3))

# Jubilo Iwata 3 - Yokohama FM 4 #

JUB = cbind(JUB,c(3,4))
YOK = cbind(YOK,c(4,3))

# Kyoto Sanga 0 - Kashima Antlers 0 #

KYO = cbind(KYO,c(0,0))
KAS = cbind(KAS,c(0,0))

# Urawa Reds 1 - Kawasaki 1 #

URA = cbind(URA,c(1,1))
KAW = cbind(KAW,c(1,1))

## Gameweek 37 ##

# Nagoya 0 - Sagan Tosu 3 #

NAG = cbind(NAG,c(0,3))
SAG = cbind(SAG,c(3,0))

# Avispa Fukuoka 1 - Urawa Reds 0 #

AFU = cbind(AFU,c(1,0))
URA = cbind(URA,c(0,1))

# Jubilo Iwata 2 - FC Tokyo 1 #

JUB = cbind(JUB,c(2,1))
TOK = cbind(TOK,c(1,2))

# Niigata 0 - Gamba Osaka 1 #

NII = cbind(NII,c(0,1))
GAM = cbind(GAM,c(1,0))

# Shonan Bellmare 2 - Yokohama FM 3 #

SHO = cbind(SHO,c(2,3))
YOK = cbind(YOK,c(3,2))

# Cerezo Osaka 0 - Kashima Antlers 2 #

CER = cbind(CER,c(0,2))
KAS = cbind(KAS,c(2,0))

# Kashiwa Reysol 1 - Vissel Kobe 1 #

KAR = cbind(KAR,c(1,1))
VIS = cbind(VIS,c(1,1))

# Machida Zelvia 1 - Kyoto Sanga 0 #

MZE = cbind(MZE,c(1,0))
KYO = cbind(KYO,c(0,1))

# Tokyo Verdy 4 - Kawasaki 5 #

TVE = cbind(TVE,c(4,5))
KAW = cbind(KAW,c(5,4))

# Sanfrecce 5 - Consadole Sapporo 1 #

HIR = cbind(HIR,c(5,1))
CON = cbind(CON,c(1,5))

## Gameweek 38 ##

# Gamba Osaka 3 - Sanfrecce 1 #

GAM = cbind(GAM,c(3,1))
HIR = cbind(HIR,c(1,3))

# Yokohama FM 0 - Nagoya 2 #

YOK = cbind(YOK,c(0,2))
NAG = cbind(NAG,c(2,0))

# Vissel Kobe 3 - Shonan Bellmare 0 #

VIS = cbind(VIS,c(3,0))
SHO = cbind(SHO,c(0,3))

# FC Tokyo 3 - Cerezo Osaka 0 #

TOK = cbind(TOK,c(3,0))
CER = cbind(CER,c(0,3))

# Sagan Tosu 3 - Jubilo Iwata 0 #

SAG = cbind(SAG,c(3,0))
JUB = cbind(JUB,c(0,3))

# Kyoto Sanga 0 - Tokyo Verdy 0 #

KYO = cbind(KYO,c(0,0))
TVE = cbind(TVE,c(0,0))

# Consadole Sapporo 1 - Kashiwa Reysol 0 #

CON = cbind(CON,c(1,0))
KAR = cbind(KAR,c(0,1))

# Urawa Reds 0 - Niigata 0 #

URA = cbind(URA,c(0,0))
NII = cbind(NII,c(0,0))

# Kawasaki 3 - Avispa Fukuoka 1 #

KAW = cbind(KAW,c(3,1))
AFU = cbind(AFU,c(1,3))

# Kashima Antlers 3 - Machida Zelvia 1 #

KAS = cbind(KAS,c(3,1))
MZE = cbind(MZE,c(1,3))

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