### 1. Create table ###

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

teams = c("AKI","EHI","OKA","FUJ","IWA","JEF","KAG","MIT","MYA","OIT",
          "RYA","KUM","SHI","GUN","TOC","TVO","VNA","SEN","KOF","YFC")   # 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 ##

# Yokohama FC 1 - Renofa Yamaguchi 1 #

YFC = matrix(c(1,1),nrow=2)
RYA = matrix(c(1,1),nrow=2)

# Mito HollyHock 1 - Iwaki FC 0 #

MIT = matrix(c(1,0),nrow=2)
IWA = matrix(c(0,1),nrow=2)

# Fujieda MYFC 0 - V-Varen Nagasaki 0 #

FUJ = matrix(c(0,0),nrow=2)
VNA = matrix(c(0,0),nrow=2)

# Ehime FC 1 - Blaublitz Akita 0 #

EHI = matrix(c(1,0),nrow=2)
AKI = matrix(c(0,1),nrow=2)

# Roasso Kumamoto 1 - Shimizu S-Pulse 2 #

KUM = matrix(c(1,2),nrow=2)
SHI = matrix(c(2,1),nrow=2)

# Okayama 3 - Tochigi SC 0 #

OKA = matrix(c(3,0),nrow=2)
TOC = matrix(c(0,3),nrow=2)

# JEF United 2 - Montedio Yamagata 3 #

JEF = matrix(c(2,3),nrow=2)
MYA = matrix(c(3,2),nrow=2)

# Gunma 1 - Kagoshima United 1 #

GUN = matrix(c(1,1),nrow=2)
KAG = matrix(c(1,1),nrow=2)

# Tokushima Vortia 1 - Ventforet Kofu 5 #

TVO = matrix(c(1,5),nrow=2)
KOF = matrix(c(5,1),nrow=2)

# Oita Trinita 1 - Vegalta Sendai 1 #

OIT = matrix(c(1,1),nrow=2)
SEN = matrix(c(1,1),nrow=2)

## Gameweek 2 ##

# V-Varen Nagasaki 1 - Vegalta Sendai 2 #

VNA = cbind(VNA,c(1,2))
SEN = cbind(SEN,c(2,1))

# Mito HollyHock 1 - Ventforet Kofu 2 #

MIT = cbind(MIT,c(1,2))
KOF = cbind(KOF,c(2,1))

# Oita Trinita 0 - Yokohama FC 0 #

OIT = cbind(OIT,c(0,0))
YFC = cbind(YFC,c(0,0))

# Shimizu S-Pulse 2 - Ehime FC 0 #

SHI = cbind(SHI,c(2,0))
EHI = cbind(EHI,c(0,2))

# JEF United 4 - Fujieda MYFC 0 #

JEF = cbind(JEF,c(4,0))
FUJ = cbind(FUJ,c(0,4))

# Kagoshima United 2 - Tokushima Vortis 1 #

KAG = cbind(KAG,c(2,1))
TVO = cbind(TVO,c(1,2))

# Roasso Kumamoto 1 - Gunma 1 #

KUM = cbind(KUM,c(1,1))
GUN = cbind(GUN,c(1,1))

# Iwaki FC 1 - Okayama 1 #

IWA = cbind(IWA,c(1,1))
OKA = cbind(OKA,c(1,1))

# Renofa Yamaguchi 2 - Blaublitz Akita 0 #

RYA = cbind(RYA,c(2,0))
AKI = cbind(AKI,c(0,2))

# Tochigi SC 1 - Montedio Yamagata 3 #

TOC = cbind(TOC,c(1,3))
MYA = cbind(MYA,c(3,1))

## Gameweek 3 ##

# Tokushima Vortis 1 - Blaublitz Akita 2 #

TVO = cbind(TVO,c(1,2))
AKI = cbind(AKI,c(2,1))

# Ventforet Kofu 1 - Tochigi SC 2 #

KOF = cbind(KOF,c(1,2))
TOC = cbind(TOC,c(2,1))

# Iwaki FC 3 - Kagoshima United 1 #

IWA = cbind(IWA,c(3,1))
KAG = cbind(KAG,c(1,3))

# Yokohama FC 2 - Montedio Yamagata 0 #

YFC = cbind(YFC,c(2,0))
MYA = cbind(MYA,c(0,2))

# Vegalta Sendai 1 - Mito HollyHock 0 #

SEN = cbind(SEN,c(1,0))
MIT = cbind(MIT,c(0,1))

# Okayama 1 - Renofa Yamaguchi 0 #

OKA = cbind(OKA,c(1,0))
RYA = cbind(RYA,c(0,1))

# V-Varen Nagasaki 4 - Shimizu S-Pulse 1 #

VNA = cbind(VNA,c(4,1))
SHI = cbind(SHI,c(1,4))

# Fujieda MYFC 0 - Oita Trinita 1 #

FUJ = cbind(FUJ,c(0,1))
OIT = cbind(OIT,c(1,0))

# Ehime FC 2 - Roasso Kumamoto 3 #

EHI = cbind(EHI,c(2,3))
KUM = cbind(KUM,c(3,2))

# Gunma 1 - JEF United 3 #

GUN = cbind(GUN,c(1,3))
JEF = cbind(JEF,c(3,1))

## Gameweek 4 ##

# Montedio Yamagata 0 - Ventforet Kofu 1 #

MYA = cbind(MYA,c(0,1))
KOF = cbind(KOF,c(1,0))

# Blaublitz Akita 0 - Vegalta Sendai 0 #

AKI = cbind(AKI,c(0,0))
SEN = cbind(SEN,c(0,0))

# Gunma 0 - Ehime FC 1 #

GUN = cbind(GUN,c(0,1))
EHI = cbind(EHI,c(1,0))

# Tochigi SC 1 - Yokohama FC 0 #

TOC = cbind(TOC,c(1,0))
YFC = cbind(YFC,c(0,1))

# Fujieda MYFC 0 - Okayama 1 #

FUJ = cbind(FUJ,c(0,1))
OKA = cbind(OKA,c(1,0))

# Shimizu S-Pulse 2 - Oita Trinita 0 #

SHI = cbind(SHI,c(2,0))
OIT = cbind(OIT,c(0,2))

# Mito HollyHock 1 - Tokushima Vortia 2 #

MIT = cbind(MIT,c(1,2))
TVO = cbind(TVO,c(2,1))

# Kagoshima United 4 - JEF United 2 #

KAG = cbind(KAG,c(4,2))
JEF = cbind(JEF,c(2,4))

# Roasso Kumamoto 0 - Iwaki FC 6 #

KUM = cbind(KUM,c(0,6))
IWA = cbind(IWA,c(6,0))

# Renofa Yamaguchi 0 - V-Varen Nagasaki 1 #

RYA = cbind(RYA,c(0,1))
VNA = cbind(VNA,c(1,0))

## Gameweek 5 ##

# Oita Trinita 3 - Kagoshima United 0 #

OIT = cbind(OIT,c(3,0))
KAG = cbind(KAG,c(0,3))

# JEF United 1 - Shimizu S-Pulse 3 #

JEF = cbind(JEF,c(1,3))
SHI = cbind(SHI,c(3,1))

# Blaublitz Akita 3 - Tochigi SC 0 #

AKI = cbind(AKI,c(3,0))
TOC = cbind(TOC,c(0,3))

# Ventforet Kofu 1 - Iwaki FC 1 #

KOF = cbind(KOF,c(1,1))
IWA = cbind(IWA,c(1,1))

# Montedio Yamagata 0 - Fujieda MYFC 1 #

MYA = cbind(MYA,c(0,1))
FUJ = cbind(FUJ,c(1,0))

# Yokohama FC 1 - Gunma 0 #

YFC = cbind(YFC,c(1,0))
GUN = cbind(GUN,c(0,1))

# Vegalta Sendai 0 - Roasso Kumamoto 0 #

SEN = cbind(SEN,c(0,0))
KUM = cbind(KUM,c(0,0))

# Okayama 1 - Mito HollyHock 0 #

OKA = cbind(OKA,c(1,0))
MIT = cbind(MIT,c(0,1))

# Ehime FC 1 - V-Varen Nagasaki 2 #

EHI = cbind(EHI,c(1,2))
VNA = cbind(VNA,c(2,1))

# Tokushima Vortis 1 - Renofa Yamaguchi 2 #

TVO = cbind(TVO,c(1,2))
RYA = cbind(RYA,c(2,1))

## Gameweek 6 ##

# V-Varen Nagasaki 1 - Ventforet Kofu 1 #

VNA = cbind(VNA,c(1,1))
KOF = cbind(KOF,c(1,1))

# Tochigi SC 2 - Oita Trinita 1 #

TOC = cbind(TOC,c(2,1))
OIT = cbind(OIT,c(1,2))

# Iwaki FC 0 - Montedio Yamagata 0 #

IWA = cbind(IWA,c(0,0))
MYA = cbind(MYA,c(0,0))

# Mito HollyHock 0 - JEF United 0 #

MIT = cbind(MIT,c(0,0))
JEF = cbind(JEF,c(0,0))

# Renofa Yamaguchi 1 - Ehime FC 1 #

RYA = cbind(RYA,c(1,1))
EHI = cbind(EHI,c(1,1))

# Kagoshima United 0 - Yokohama FC 4 #

KAG = cbind(KAG,c(0,4))
YFC = cbind(YFC,c(4,0))

# Shimizu S-Pulse 1 - Blaublitz Akita 0 #

SHI = cbind(SHI,c(1,0))
AKI = cbind(AKI,c(0,1))

# Fujieda MYFC 2 - Roasso Kumamoto 1 #

FUJ = cbind(FUJ,c(2,1))
KUM = cbind(KUM,c(1,2))

# Vegalta Sendai 0 - Tokushima Vortis 0 #

SEN = cbind(SEN,c(0,0))
TVO = cbind(TVO,c(0,0))

# Gunma 1 - Okayama 2 #

GUN = cbind(GUN,c(1,2))
OKA = cbind(OKA,c(2,1))

## Gameweek 7 ##

# Ventforet Kofu 0 - Renofa Yamaguchi 2 #

KOF = cbind(KOF,c(0,2))
RYA = cbind(RYA,c(2,0))

# Blaublitz Akita 1 - Iwaki FC 0 #

AKI = cbind(AKI,c(1,0))
IWA = cbind(IWA,c(0,1))

# Yokohama FC 1 - Vegalta Sendai 2 #

YFC = cbind(YFC,c(1,2))
SEN = cbind(SEN,c(2,1))

# Mito HollyHock 0 - Kagoshima United 0 #

MIT = cbind(MIT,c(0,0))
KAG = cbind(KAG,c(0,0))

# Montedio Yamagata 2 - Shimizu S-Pulse 0 #

MYA = cbind(MYA,c(2,0))
SHI = cbind(SHI,c(0,2))

# Oita Trinita 0 - Okayama 0 #

OIT = cbind(OIT,c(0,0))
OKA = cbind(OKA,c(0,0))

# Tokushima Vortis 0 - Gunma 1 #

TVO = cbind(TVO,c(0,1))
GUN = cbind(GUN,c(1,0))

# Roasso Kumamoto 1 - JEF United 0 #

KUM = cbind(KUM,c(1,0))
JEF = cbind(JEF,c(0,1))

# Ehime FC 3 - Fujieda MYFC 0 #

EHI = cbind(EHI,c(3,0))
FUJ = cbind(FUJ,c(0,3))

# Tochigi SC 1 - V-Varen Nagasaki 1 #

TOC = cbind(TOC,c(1,1))
VNA = cbind(VNA,c(1,1))

## Gameweek 8 ##

# Okayama 1 - Yokohama FC 3 #

OKA = cbind(OKA,c(1,3))
YFC = cbind(YFC,c(3,1))

# Blaublitz Akita 1 - Mito HollyHock 1 #

AKI = cbind(AKI,c(1,1))
MIT = cbind(MIT,c(1,1))

# Iwaki FC 3 - Fujieda MYFC 0 #

IWA = cbind(IWA,c(3,0))
FUJ = cbind(FUJ,c(0,3))

# Vegalta Sendai 1 - Ehime FC 2 #

SEN = cbind(SEN,c(1,2))
EHI = cbind(EHI,c(2,1))

# Gunma 0 - Oita Trinita 2 #

GUN = cbind(GUN,c(0,2))
OIT = cbind(OIT,c(2,0))

# Shimizu S-Pulse 1 - Tokushima Vortis 1 #

SHI = cbind(SHI,c(1,1))
TVO = cbind(TVO,c(1,1))

# V-Varen Nagasaki 2 - Montedio Yamagata 0 #

VNA = cbind(VNA,c(2,0))
MYA = cbind(MYA,c(0,2))

# Kagoshima United 0 - Ventforet Kofu 1 #

KAG = cbind(KAG,c(0,1))
KOF = cbind(KOF,c(1,0))

# JEF United 8 - Tochigi SC 0 #

JEF = cbind(JEF,c(8,0))
TOC = cbind(TOC,c(0,8))

# Renofa Yamaguchi 1 - Roasso Kumamoto 2 #

RYA = cbind(RYA,c(1,2))
KUM = cbind(KUM,c(2,1))

## Gameweek 9 ##

# Roasso Kumamoto 3 - V-Varen Nagasaki 4 #

KUM = cbind(KUM,c(3,4))
VNA = cbind(VNA,c(4,3))

# Ventforet Kofu 0 - Shimizu S-Pulse 1 #

KOF = cbind(KOF,c(0,1))
SHI = cbind(SHI,c(1,0))

# Yokohama FC 2 - Iwaki FC 2 #

YFC = cbind(YFC,c(2,2))
IWA = cbind(IWA,c(2,2))

# Gunma 0 - Mito HollyHock 0 #

GUN = cbind(GUN,c(0,0))
MIT = cbind(MIT,c(0,0))

# Montedio Yamagata 2 - Kagoshima United 0 #

MYA = cbind(MYA,c(2,0))
KAG = cbind(KAG,c(0,2))

# Tochigi SC 0 - Renofa Yamaguchi 0 #

TOC = cbind(TOC,c(0,0))
RYA = cbind(RYA,c(0,0))

# Oita Trinita 1 - Blaublitz Akita 3 #

OIT = cbind(OIT,c(1,3))
AKI = cbind(AKI,c(3,1))

# Tokushima Vortis 0 - JEF United 1 #

TVO = cbind(TVO,c(0,1))
JEF = cbind(JEF,c(1,0))

# Fujieda MYFC 1 - Vegalta Sendai 1 #

FUJ = cbind(FUJ,c(1,1))
SEN = cbind(SEN,c(1,1))

# Ehime FC 2 - Okayama 2 #

EHI = cbind(EHI,c(2,2))
OKA = cbind(OKA,c(2,2))

## Gameweek 10 ##

# Vegalta Sendai 2 - Montedio Yamagata 0 #

SEN = cbind(SEN,c(2,0))
MYA = cbind(MYA,c(0,2))

# Mito HollyHock 2 - Tochigi SC 2 #

MIT = cbind(MIT,c(2,2))
TOC = cbind(TOC,c(2,2))

# JEF United 1 - Oita Trinita 1 #

JEF = cbind(JEF,c(1,1))
OIT = cbind(OIT,c(1,1))

# V-Varen Nagasaki 6 - Tokushima Vortis 1 #

VNA = cbind(VNA,c(6,1))
TVO = cbind(TVO,c(1,6))

# Ehime FC 2 - Kagoshima United 2 #

EHI = cbind(EHI,c(2,2))
KAG = cbind(KAG,c(2,2))

# Iwaki FC 2 - Shimizu S-Pulse 3 #

IWA = cbind(IWA,c(2,3))
SHI = cbind(SHI,c(3,2))

# Yokohama FC 2 - Fujieda MYFC 0 #

YFC = cbind(YFC,c(2,0))
FUJ = cbind(FUJ,c(0,2))

# Blaublitz Akita 0 - Okayama 0 #

AKI = cbind(AKI,c(0,0))
OKA = cbind(OKA,c(0,0))

# Roasso Kumamoto 3 - Ventforet Kofu 3 #

KUM = cbind(KUM,c(3,3))
KOF = cbind(KOF,c(3,3))

# Renofa Yamaguchi 4 - Gunma 0 #

RYA = cbind(RYA,c(4,0))
GUN = cbind(GUN,c(0,4))

## Gameweek 11 ##

# Fujieda MYFC 0 - Tokushima Vortis 1 #

FUJ = cbind(FUJ,c(0,1))
TVO = cbind(TVO,c(1,0))

# Montedio Yamagata 2 - Ehime FC 1 #

MYA = cbind(MYA,c(2,1))
EHI = cbind(EHI,c(1,2))

# Ventforet Kofu 4 - Gunma 1 #

KOF = cbind(KOF,c(4,1))
GUN = cbind(GUN,c(1,4))

# Okayama 2 - Roasso Kumamoto 0 #

OKA = cbind(OKA,c(2,0))
KUM = cbind(KUM,c(0,2))

# Shimizu S-Pulse 3 - Vegalta Sendai 2 #

SHI = cbind(SHI,c(3,2))
SEN = cbind(SEN,c(2,3))

# V-Varen Nagasaki 1 - Yokohama FC 0 #

VNA = cbind(VNA,c(1,0))
YFC = cbind(YFC,c(0,1))

# Oita Trinita 0 - Iwaki FC 2 #

OIT = cbind(OIT,c(0,2))
IWA = cbind(IWA,c(2,0))

# Renofa Yamaguchi 1 - Mito HollyHock 2 #

RYA = cbind(RYA,c(1,2))
MIT = cbind(MIT,c(2,1))

# Kagoshima United 2 - Tochigi SC 1 #

KAG = cbind(KAG,c(2,1))
TOC = cbind(TOC,c(1,2))

# JEF United 1 - Blaublitz Akita 2 #

JEF = cbind(JEF,c(1,2))
AKI = cbind(AKI,c(2,1))

## Gameweek 12 ##

# Vegalta Sendai 0 - JEF United 2 #

SEN = cbind(SEN,c(0,2))
JEF = cbind(JEF,c(2,0))

# Gunma 1 - V-Varen Nagasaki 2 #

GUN = cbind(GUN,c(1,2))
VNA = cbind(VNA,c(2,1))

# Mito HollyHock 2 - Fujieda MYFC 3 #

MIT = cbind(MIT,c(2,3))
FUJ = cbind(FUJ,c(3,2))

# Ehime FC 2 - Ventforet Kofu 1 #

EHI = cbind(EHI,c(2,1))
KOF = cbind(KOF,c(1,2))

# Roasso Kumamoto 1 - Oita Trinita 2 #

KUM = cbind(KUM,c(1,2))
OIT = cbind(OIT,c(2,1))

# Okayama 0 - Shimizu S-Pulse 1 #

OKA = cbind(OKA,c(0,1))
SHI = cbind(SHI,c(1,0))

# Tokushima Vortis 2 - Montedio Yamagata 1 #

TVO = cbind(TVO,c(2,1))
MYA = cbind(MYA,c(1,2))

# Kagoshima United 0 - Renofa Yamaguchi 1 #

KAG = cbind(KAG,c(0,1))
RYA = cbind(RYA,c(1,0))

# Blaublitz Akita 0 - Yokohama FC 2 #

AKI = cbind(AKI,c(0,2))
YFC = cbind(YFC,c(2,0))

# Tochigi SC 0 - Iwaka FC 1 #

TOC = cbind(TOC,c(0,1))
IWA = cbind(IWA,c(1,0))

## Gameweek 13 ##

# Tokushima Vortis 0 - Ehime FC 0 #

TVO = cbind(TVO,c(0,0))
EHI = cbind(EHI,c(0,0))

# Shimizu S-Pulse 4 - Tochigi SC 1 #

SHI = cbind(SHI,c(4,1))
TOC = cbind(TOC,c(1,4))

# V-Varen Nagasaki 2 - Blaublitz Akita 2 #

VNA = cbind(VNA,c(2,2))
AKI = cbind(AKI,c(2,2))

# Montedio Yamagata 2 - Okayama 2 #

MYA = cbind(MYA,c(2,2))
OKA = cbind(OKA,c(2,2))

# Roasso Kumamoto 2 - Kagoshima United 2 #

KUM = cbind(KUM,c(2,2))
KAG = cbind(KAG,c(2,2))

# Ventforet Kofu 1 - Oita Trinita 2 #

KOF = cbind(KOF,c(1,2))
OIT = cbind(OIT,c(2,1))

# Yokohama FC 2 - Mito HollyHock 0 #

YFC = cbind(YFC,c(2,0))
MIT = cbind(MIT,c(0,2))

# Fujieda MYFC 2 - Gunma 1 #

FUJ = cbind(FUJ,c(2,1))
GUN = cbind(GUN,c(1,2))

# Vegalta Sendai 2 - Renofa Yamaguchi 1 #

SEN = cbind(SEN,c(2,1))
RYA = cbind(RYA,c(1,2))

# Iwaki FC 1 - JEF United 0 #

IWA = cbind(IWA,c(1,0))
JEF = cbind(JEF,c(0,1))

## Gameweek 14 ##

# Kagoshima United 0 - Vegalta Sendai 1 #

KAG = cbind(KAG,c(0,1))
SEN = cbind(SEN,c(1,0))

# Renofa Yamaguchi 2 - Montedio Yamagata 0 #

RYA = cbind(RYA,c(2,0))
MYA = cbind(MYA,c(0,2))

# Gunma 0 - Shimizu S-Pulse 3 #

GUN = cbind(GUN,c(0,3))
SHI = cbind(SHI,c(3,0))

# Tochigi SC 0 - Fujieda MYFC 1 #

TOC = cbind(TOC,c(0,1))
FUJ = cbind(FUJ,c(1,0))

# Oita Trinita 0 - V-Varen Nagasaki 0 #

OIT = cbind(OIT,c(0,0))
VNA = cbind(VNA,c(0,0))

# Okayama 1 - Tokushima Vortis 2 #

OKA = cbind(OKA,c(1,2))
TVO = cbind(TVO,c(2,1))

# Mito HollyHock 2 - Roasso Kumamoto 0 #

MIT = cbind(MIT,c(2,0))
KUM = cbind(KUM,c(0,2))

# Blaublitz Akita 2 - Ventforet Kofu 3 #

AKI = cbind(AKI,c(2,3))
KOF = cbind(KOF,c(3,2))

# Ehime FC 0 - Iwaki FC 0 #

EHI = cbind(EHI,c(0,0))
IWA = cbind(IWA,c(0,0))

# JEF United 1 - Yokohama FC 0 #

JEF = cbind(JEF,c(1,0))
YFC = cbind(YFC,c(0,1))

## Gameweek 15 ##

# Vegalta Sendai 2 - Gunma 1 #

SEN = cbind(SEN,c(2,1))
GUN = cbind(GUN,c(1,2))

# Shimizu S-Pulse 4 - Kagoshima United 0 #

SHI = cbind(SHI,c(4,0))
KAG = cbind(KAG,c(0,4))

# Roasso Kumamoto 0 - Yokohama FC 0 #

KUM = cbind(KUM,c(0,0))
YFC = cbind(YFC,c(0,0))

# Iwaki FC 1 - Renofa Yamaguchi 2 #

IWA = cbind(IWA,c(1,2))
RYA = cbind(RYA,c(2,1))

# V-Varen Nagasaki 0 - Okayama 0 #

VNA = cbind(VNA,c(0,0))
OKA = cbind(OKA,c(0,0))

# Montedio Yamagata 0 - Mito HollyHock 1 #

MYA = cbind(MYA,c(0,1))
MIT = cbind(MIT,c(1,0))

# Oita Trinita 2 - Ehime FC 2 #

OIT = cbind(OIT,c(2,2))
EHI = cbind(EHI,c(2,2))

# Tokushima Vortis 1 - Tochigi SC 0 #

TVO = cbind(TVO,c(1,0))
TOC = cbind(TOC,c(0,1))

# Fujieda MYFC 1 - Blaublitz Akita 0 #

FUJ = cbind(FUJ,c(1,0))
AKI = cbind(AKI,c(0,1))

# Ventforet Kofu 2 - JEF United 2 #

KOF = cbind(KOF,c(2,2))
JEF = cbind(JEF,c(2,2))

## Gameweek 16 ##

# Montedio Yamagata 0 - Blaublitz Akita 2 #

MYA = cbind(MYA,c(0,2))
AKI = cbind(AKI,c(2,0))

# JEF United 7 - Ehime FC 1 #

JEF = cbind(JEF,c(7,1))
EHI = cbind(EHI,c(1,7))

# Gunma 0 - Iwaki FC 1 #

GUN = cbind(GUN,c(0,1))
IWA = cbind(IWA,c(1,0))

# Tokushima Vortis 1 - Roasso Kumamoto 2 #

TVO = cbind(TVO,c(1,2))
KUM = cbind(KUM,c(2,1))

# Mito HollyHock 1 - Oita Trinita 1 #

MIT = cbind(MIT,c(1,1))
OIT = cbind(OIT,c(1,1))

# Yokohama FC 2 - Shimizu S-Pulse 0 #

YFC = cbind(YFC,c(2,0))
SHI = cbind(SHI,c(0,2))

# Kagoshima United 0 - V-Varen Nagasaki 3 #

KAG = cbind(KAG,c(0,3))
VNA = cbind(VNA,c(3,0))

# Renofa Yamaguchi 2 - Fujieda MYFC 1 #

RYA = cbind(RYA,c(2,1))
FUJ = cbind(FUJ,c(1,2))

# Okayama 2 - Ventforet Kofu 0 #

OKA = cbind(OKA,c(2,0))
KOF = cbind(KOF,c(0,2))

# Tochigi SC 1 - Vegalta Sendai 2 #

TOC = cbind(TOC,c(1,2))
SEN = cbind(SEN,c(2,1))

## Gameweek 17 ##

# Ehime FC 0 - Tochigi SC 0 #

EHI = cbind(EHI,c(0,0))
TOC = cbind(TOC,c(0,0))

# Fujieda MYFC 1 - Kagoshima United 1 #

FUJ = cbind(FUJ,c(1,1))
KAG = cbind(KAG,c(1,1))

# V-Varen Nagasaki 1 - JEF United 0 #

VNA = cbind(VNA,c(1,0))
JEF = cbind(JEF,c(0,1))

# Ventforet Kofu 1 - Yokohama FC 2 #

KOF = cbind(KOF,c(1,2))
YFC = cbind(YFC,c(2,1))

# Shimizu S-Pulse 2 - Mito HollyHock 1 #

SHI = cbind(SHI,c(2,1))
MIT = cbind(MIT,c(1,2))

# Roasso Kumamoto 0 - Montedio Yamagata 1 #

KUM = cbind(KUM,c(0,1))
MYA = cbind(MYA,c(1,0))

# Oita Trinita 0 - Renofa Yamaguchi 0 #

OIT = cbind(OIT,c(0,0))
RYA = cbind(RYA,c(0,0))

# Iwaki FC 1 - Tokushima Vortis 1 #

IWA = cbind(IWA,c(1,1))
TVO = cbind(TVO,c(1,1))

# Vegalta Sendai 1 - Okayama 4 #

SEN = cbind(SEN,c(1,4))
OKA = cbind(OKA,c(4,1))

# Blaublitz Akita 1 - Gunma 1 #

AKI = cbind(AKI,c(1,1))
GUN = cbind(GUN,c(1,1))

## Gameweek 18 ##

# Fujieda MYFC 2 - Ventforet Kofu 1 #

FUJ = cbind(FUJ,c(2,1))
KOF = cbind(KOF,c(1,2))

# Oita Trinita 1 - Tokushima Vortis 2 #

OIT = cbind(OIT,c(1,2))
TVO = cbind(TVO,c(2,1))

# JEF United 2 - Okayama 1 #

JEF = cbind(JEF,c(2,1))
OKA = cbind(OKA,c(1,2))

# Yokohama FC 2 - Ehime FC 1 #

YFC = cbind(YFC,c(2,1))
EHI = cbind(EHI,c(1,2))

# Iwaki FC 1 - Vegalta Sendai 2 #

IWA = cbind(IWA,c(1,2))
SEN = cbind(SEN,c(2,1))

# Gunma 0 - Montedio Yamagata 0 #

GUN = cbind(GUN,c(0,0))
MYA = cbind(MYA,c(0,0))

# Mito HollyHock 2 - V-Varen Nagasaki 3 #

MIT = cbind(MIT,c(2,3))
VNA = cbind(VNA,c(3,2))

# Renofa Yamaguchi 2 - Shimizu S-Pulse 0 #

RYA = cbind(RYA,c(2,0))
SHI = cbind(SHI,c(0,2))

# Kagoshima United 0 - Blaublitz Akita 0 #

KAG = cbind(KAG,c(0,0))
AKI = cbind(AKI,c(0,0))

# Tochigi SC 1 - Roasso Kumamoto 3 #

TOC = cbind(TOC,c(1,3))
KUM = cbind(KUM,c(3,1))

## Gameweek 19 ##

# Blaublitz Akita 1 - Roasso Kumamoto 1 #

AKI = cbind(AKI,c(1,1))
KUM = cbind(KUM,c(1,1))

# Ventfort Kofu 1 - Vegalta Sendai 1 #

KOF = cbind(KOF,c(1,1))
SEN = cbind(SEN,c(1,1))

# Shimizu S-Pulse 1 - Fujieda MYFC 0 #

SHI = cbind(SHI,c(1,0))
FUJ = cbind(FUJ,c(0,1))

# Ehime FC 1 - Mito HollyHock 0 #

EHI = cbind(EHI,c(1,0))
MIT = cbind(MIT,c(0,1))

# Tokushima Vortis 0 - Yokohama FC 1 #

TVO = cbind(TVO,c(0,1))
YFC = cbind(YFC,c(1,0))

# Tochigi SC 1 - Gunma 1 #

TOC = cbind(TOC,c(1,1))
GUN = cbind(GUN,c(1,1))

# Renofa Yamaguchi 1 - JEF United 2 #

RYA = cbind(RYA,c(1,2))
JEF = cbind(JEF,c(2,1))

# Montedio Yamagata 0 - Oita Trinita 0 #

MYA = cbind(MYA,c(0,0))
OIT = cbind(OIT,c(0,0))

# Okayama 1 - Kagoshima United 1 #

OKA = cbind(OKA,c(1,1))
KAG = cbind(KAG,c(1,1))

## Gameweek 20 ##

# Fujieda MYFC 1 - Yokohama FC 3 #

FUJ = cbind(FUJ,c(1,3))
YFC = cbind(YFC,c(3,1))

# Kagoshima United 2 - Montedio Yamagata 1 #

KAG = cbind(KAG,c(2,1))
MYA = cbind(MYA,c(1,2))

# Iwaki FC 1 - Ventforet Kofu 1 #

IWA = cbind(IWA,c(1,1))
KOF = cbind(KOF,c(1,1))

# Mito HollyHock 1 - Blaublitz Akita 0 #

MIT = cbind(MIT,c(1,0))
AKI = cbind(AKI,c(0,1))

# Vegalta Sendai 2 - V-Varen Nagasaki 2 #

SEN = cbind(SEN,c(2,2))
VNA = cbind(VNA,c(2,2))

# Roasso Kumamoto 0 - Okayama 1 #

KUM = cbind(KUM,c(0,1))
OKA = cbind(OKA,c(1,0))

# Oita Trinita 0 - Tochigi SC 2 #

OIT = cbind(OIT,c(0,2))
TOC = cbind(TOC,c(2,0))

# Ehime FC 3 - Shimizu S-Pulse 0 #

EHI = cbind(EHI,c(3,0))
SHI = cbind(SHI,c(0,3))

# Gunma 0 - Renofa Yamaguchi 1 #

GUN = cbind(GUN,c(0,1))
RYA = cbind(RYA,c(1,0))

# JEF United 1 - Tokushima Vortis 0 #

JEF = cbind(JEF,c(1,0))
TVO = cbind(TVO,c(0,1))

## Gameweek 21 ##

# Montedio Yamagata 1 - Vegalta Sendai 1 #

MYA = cbind(MYA,c(1,1))
SEN = cbind(SEN,c(1,1))

# Yokohama FC 5 - Roasso Kumamoto 0 #

YFC = cbind(YFC,c(5,0))
KUM = cbind(KUM,c(0,5))

# Ventforet Kofu 1 - Ehime FC 2 #

KOF = cbind(KOF,c(1,2))
EHI = cbind(EHI,c(2,1))

# Kagoshima United 3 - Oita Trinita 0 #

KAG = cbind(KAG,c(3,0))
OIT = cbind(OIT,c(0,3))

# Renofa Yamaguchi 0 - Iwaki FC 3 #

RYA = cbind(RYA,c(0,3))
IWA = cbind(IWA,c(3,0))

# Okayama 1 - Gunma 0 #

OKA = cbind(OKA,c(1,0))
GUN = cbind(GUN,c(0,1))

# V-Varen Nagasaki 2 - Fujieda MYFC 0 $

VNA = cbind(VNA,c(2,0))
FUJ = cbind(FUJ,c(0,2))

# Tochigi SC 2 - JEF United 1 #

TOC = cbind(TOC,c(2,1))
JEF = cbind(JEF,c(1,2))

# Blaublitz Akita 3 - Shimizu S-Pulse 1 #

AKI = cbind(AKI,c(3,1))
SHI = cbind(SHI,c(1,3))

# Tokushima Vortis 1 - Mito HollyHock 0 #

TVO = cbind(TVO,c(1,0))
MIT = cbind(MIT,c(0,1))

# V-Varen Nagasaki 3 - Iwaki FC 1 #

VNA = cbind(VNA,c(3,1))
IWA = cbind(IWA,c(1,3))

## Gameweek 22 ##

# Mito HollyHock 1 - Renofa Yamaguchi 1 #

MIT = cbind(MIT,c(1,1))
RYA = cbind(RYA,c(1,1))

# Iwaki FC 0 - Yokohama FC 4 #

IWA = cbind(IWA,c(0,4))
YFC = cbind(YFC,c(4,0))

# Roasso Kumamoto 4 - Ehime FC 0 #

KUM = cbind(KUM,c(4,0))
EHI = cbind(EHI,c(0,4))

# Oita Trinita 0 - Ventforet Kofu 0 #

OIT = cbind(OIT,c(0,0))
KOF = cbind(KOF,c(0,0))

# Tokushima Vortis 2 - V-Varen Nagasaki 2 #

TVO = cbind(TVO,c(2,2))
VNA = cbind(VNA,c(2,2))

# Gunma 1 - Fujieda MYFC 2 #

GUN = cbind(GUN,c(1,2))
FUJ = cbind(FUJ,c(2,1))

# Vegalta Sendai 3 - Tochigi SC 2 #

SEN = cbind(SEN,c(3,2))
TOC = cbind(TOC,c(2,3))

# Blaublitz Akita 0 - Montedio Yamagata 3 #

AKI = cbind(AKI,c(0,3))
MYA = cbind(MYA,c(3,0))

# Shimizu S-Pulse 3 - Okayama 1 #

SHI = cbind(SHI,c(3,1))
OKA = cbind(OKA,c(1,3))

# JEF United 2 - Kagoshima United 1 #

JEF = cbind(JEF,c(2,1))
KAG = cbind(KAG,c(1,2))

## Gameweek 23 ##

# Iwaki FC 0 - Oita Trinita 1 #

IWA = cbind(IWA,c(0,1))
OIT = cbind(OIT,c(1,0))

# Fujieda MYFC 3 - Mito HollyHock 1 #

FUJ = cbind(FUJ,c(3,1))
MIT = cbind(MIT,c(1,3))

# Yokohama FC 1 - Blaublitz Akita 0 #

YFC = cbind(YFC,c(1,0))
AKI = cbind(AKI,c(0,1))

# Ventforet Kofu 1 - Tokushima Vortis 3 #

KOF = cbind(KOF,c(1,3))
TVO = cbind(TVO,c(3,1))

# Shimizu S-Pulse 2 - JEF United 0 #

SHI = cbind(SHI,c(2,0))
JEF = cbind(JEF,c(0,2))

# V-Varen Nagasaki 2 - Roasso Kumamoto 0 #

VNA = cbind(VNA,c(2,0))
KUM = cbind(KUM,c(0,2))

# Montedio Yamagata 1 - Tochigi SC 0 #

MYA = cbind(MYA,c(1,0))
TOC = cbind(TOC,c(0,1))

# Renofa Yamaguchi 1 - Kagoshima United 0 #

RYA = cbind(RYA,c(1,0))
KAG = cbind(KAG,c(0,1))

# Okayama 2 - Vegalta Sendai 0 #

OKA = cbind(OKA,c(2,0))
SEN = cbind(SEN,c(0,2))

# Ehime FC 0 - Gunma 4 #

EHI = cbind(EHI,c(0,4))
GUN = cbind(GUN,c(4,0))

## Gameweek 24 ##

# Fujieda MYFC 0 - Ehime FC 1 #

FUJ = cbind(FUJ,c(0,1))
EHI = cbind(EHI,c(1,0))

# Kagoshima United 1 - Gunma 1 #

KAG = cbind(KAG,c(1,1))
GUN = cbind(GUN,c(1,1))

# Mito HollyHock 2 - Yokohama FC 2 #

MIT = cbind(MIT,c(2,2))
YFC = cbind(YFC,c(2,2))

# Blaublitz Akita 1 - Renofa Yamaguchi 0 #

AKI = cbind(AKI,c(1,0))
RYA = cbind(RYA,c(0,1))

# Ventforet Kofu 2 - V-Varen Nagasaki 2 #

KOF = cbind(KOF,c(2,2))
VNA = cbind(VNA,c(2,2))

# Tochigi SC 1 - Okayama 1 #

TOC = cbind(TOC,c(1,1))
OKA = cbind(OKA,c(1,1))

# Tokushima Vortis 2 - Vegalta Sendai 0 #

TVO = cbind(TVO,c(2,0))
SEN = cbind(SEN,c(0,2))

# Oita Trinita 0 - Shimizu S-Pulse 2 #

OIT = cbind(OIT,c(0,2))
SHI = cbind(SHI,c(2,0))

# JEF United 0 - Roasso Kumamoto 2 #

JEF = cbind(JEF,c(0,2))
KUM = cbind(KUM,c(2,0))

# Montedio Yamagata 1 - Iwaki FC 2 #

MYA = cbind(MYA,c(1,2))
IWA = cbind(IWA,c(2,1))

## Gameweek 25 ##

# Yokohama FC 2 - JEF United 1 #

YFC = cbind(YFC,c(2,1))
JEF = cbind(JEF,c(1,2))

# Renofa Yamaguchi 2 - Oita Trinita 0 #

RYA = cbind(RYA,c(2,0))
OIT = cbind(OIT,c(0,2))

# V-Varen Nagasaki 1 - Mito HollyHock 2 #

VNA = cbind(VNA,c(1,2))
MIT = cbind(MIT,c(2,1))

# Vegalta Sendai 2 - Shimizu S-Pulse 1 #

SEN = cbind(SEN,c(2,1))
SHI = cbind(SHI,c(1,2))

# Roasso Kumamoto 0 - Tochigi SC 2 #

KUM = cbind(KUM,c(0,2))
TOC = cbind(TOC,c(2,0))

# Gunma 0 - Ventforet Kofu 1 #

GUN = cbind(GUN,c(0,1))
KOF = cbind(KOF,c(1,0))

# Ehime FC 0 - Tokushima Vortis 1 #

EHI = cbind(EHI,c(0,1))
TVO = cbind(TVO,c(1,0))

# Kagoshima United 2 - Fujieda MYFC 3 #

KAG = cbind(KAG,c(2,3))
FUJ = cbind(FUJ,c(3,2))

# Okayama 1 - Montedio Yamagata 1 #

OKA = cbind(OKA,c(1,1))
MYA = cbind(MYA,c(1,1))

# Iwaki FC 2 - Blaublitz Akita 0 #

IWA = cbind(IWA,c(2,0))
AKI = cbind(AKI,c(0,2))

## Gameweek 26 ##

# Ventforet Kofu 3 - Fujieda MYFC 0 #

KOF = cbind(KOF,c(3,0))
FUJ = cbind(FUJ,c(0,3))

# Yokohama FC 0 - V-Varen Nagasaki 0 #

YFC = cbind(YFC,c(0,0))
VNA = cbind(VNA,c(0,0))

# Mito HollyHock 0 - Vegalta Sendai 1 #

MIT = cbind(MIT,c(0,1))
SEN = cbind(SEN,c(1,0))

# Iwaki FC 2 - Ehime FC 1 #

IWA = cbind(IWA,c(2,1))
EHI = cbind(EHI,c(1,2))

# Shimizu S-Pulse 4 - Gunma 0 #

SHI = cbind(SHI,c(4,0))
GUN = cbind(GUN,c(0,4))

# Renofa Yamaguchi 4 - Tochigi SC 3 #

RYA = cbind(RYA,c(4,3))
TOC = cbind(TOC,c(3,4))

# Okayama 0 - JEF United 0 #

OKA = cbind(OKA,c(0,0))
JEF = cbind(JEF,c(0,0))

# Blaublitz Akita 2 - Kagoshima United 0 #

AKI = cbind(AKI,c(2,0))
KAG = cbind(KAG,c(0,2))

# Montedio Yamagata 1 - Tokushima Vortis 0 #

MYA = cbind(MYA,c(1,0))
TVO = cbind(TVO,c(0,1))

# Oita Trinita 2 - Roasso Kumamoto 1 #

OIT = cbind(OIT,c(2,1))
KUM = cbind(KUM,c(1,2))

## Gameweek 27 ##

# Shimizu S-Pulse 3 - Ventforet Kofu 0 #

SHI = cbind(SHI,c(3,0))
KOF = cbind(KOF,c(0,3))

# Tochigi SC 0 - Blaublitz Akita 0 #

TOC = cbind(TOC,c(0,0))
AKI = cbind(AKI,c(0,0))

# Vegalta Sendai 1 - Kagoshima United 0 #

SEN = cbind(SEN,c(1,0))
KAG = cbind(KAG,c(0,1))

# Montedio Yamagata 4 - V-Varen Nagasaki 2 #

MYA = cbind(MYA,c(4,2))
VNA = cbind(VNA,c(2,4))

# Roasso Kumamoto 0 - Mito HollyHock 1 #

KUM = cbind(KUM,c(0,1))
MIT = cbind(MIT,c(1,0))

# JEF United 0 - Iwaki FC 3 #

JEF = cbind(JEF,c(0,3))
IWA = cbind(IWA,c(3,0))

# Fujieda MYFC 3 - Renofa Yamaguchi 0 #

FUJ = cbind(FUJ,c(3,0))
RYA = cbind(RYA,c(0,3))

# Tokushima Vortis 1 - Okayama 1 #

TVO = cbind(TVO,c(1,1))
OKA = cbind(OKA,c(1,1))

# Gunma 1 - Yokohama FC 2 #

GUN = cbind(GUN,c(1,2))
YFC = cbind(YFC,c(2,1))

# Ehime FC 3 - Oita Trinita 2 #

EHI = cbind(EHI,c(3,2))
OIT = cbind(OIT,c(2,3))

## Gameweek 28 ##

# Yokohama FC 2 - Tokushima Vortis 0 #

YFC = cbind(YFC,c(2,0))
TVO = cbind(TVO,c(0,2))

# V-Varen Nagasaki 1 - Renofa Yamaguchi 2 #

VNA = cbind(VNA,c(1,2))
RYA = cbind(RYA,c(2,1))

# Okayama 0 - Oita Trinita 0 #

OKA = cbind(OKA,c(0,0))
OIT = cbind(OIT,c(0,0))

# Fujieda MYFC 0 - Montedio Yamagata 1 #

FUJ = cbind(FUJ,c(0,1))
MYA = cbind(MYA,c(1,0))

# Kagoshima United 0 - Shimizu S-Pulse 1 #

KAG = cbind(KAG,c(0,1))
SHI = cbind(SHI,c(1,0))

# Mito HollyHock 2 - Gunma 1 #

MIT = cbind(MIT,c(2,1))
GUN = cbind(GUN,c(1,2))

# Blaublitz Akita 0 - Ehime 0 #

AKI = cbind(AKI,c(0,0))
EHI = cbind(EHI,c(0,0))

# Iwaki FC 3 - Roasso Kumamoto 4 #

IWA = cbind(IWA,c(3,4))
KUM = cbind(KUM,c(4,3))

# JEF United 4 - Vegalta Sendai 2 #

JEF = cbind(JEF,c(4,2))
SEN = cbind(SEN,c(2,4))

# Tochigi SC 1 - Ventforet Kofu 2 #

TOC = cbind(TOC,c(1,2))
KOF = cbind(KOF,c(2,1))

## Gameweek 29 ##

# Mito HollyHock 3 - Ehime FC 1 #

MIT = cbind(MIT,c(3,1))
EHI = cbind(EHI,c(1,3))

# Ventforet Kofu 1 - Kagoshima United 0 #

KOF = cbind(KOF,c(1,0))
KAG = cbind(KAG,c(0,1))

# V-Varen Nagasaki 1 - Tochigi SC 1 #

VNA = cbind(VNA,c(1,1))
TOC = cbind(TOC,c(1,1))

# Renofa Yamaguchi 0 - Okayama 2 #

RYA = cbind(RYA,c(0,2))
OKA = cbind(OKA,c(2,0))

# Vegalta Sendai 2 - Iwaki FC 0 #

SEN = cbind(SEN,c(2,0))
IWA = cbind(IWA,c(0,2))

# Montedio Yamagata 1 - Yokohama FC 2 #

MYA = cbind(MYA,c(1,2))
YFC = cbind(YFC,c(2,1))

# Roasso Kumamoto 1 - Fujieda MYFC 2 #

KUM = cbind(KUM,c(1,2))
FUJ = cbind(FUJ,c(2,1))

# Gunma 1 - Blaublitz Akita 0 #

GUN = cbind(GUN,c(1,0))
AKI = cbind(AKI,c(0,1))

# Oita Trinita 0 - JEF United 2 #

OIT = cbind(OIT,c(0,2))
JEF = cbind(JEF,c(2,0))

## Gameweek 30 ##

# Shimizu S-Pulse 1 - V-Varen Nagasaki 1 #

SHI = cbind(SHI,c(1,1))
VNA = cbind(VNA,c(1,1))

# Ehime FC 1 - Yokohama FC 4 #

EHI = cbind(EHI,c(1,4))
YFC = cbind(YFC,c(4,1))

# Renofa Yamaguchi 1 - Tokushima Vortis 2 #

RYA = cbind(RYA,c(1,2))
TVO = cbind(TVO,c(2,1))

# Fujieda MYFC 1 - Tochigi SC 0 #

FUJ = cbind(FUJ,c(1,0))
TOC = cbind(TOC,c(0,1))

# Kagoshima United 1 - Iwaki FC 3 #

KAG = cbind(KAG,c(1,3))
IWA = cbind(IWA,c(3,1))

# Gunma 0 - Vegalta Sendai 0 #

GUN = cbind(GUN,c(0,0))
SEN = cbind(SEN,c(0,0))

# Oita Trinita 0 - Montedio Yamagata 3 #

OIT = cbind(OIT,c(0,3))
MYA = cbind(MYA,c(3,0))

# JEF United 4 - Mito HollyHock 0 #

JEF = cbind(JEF,c(4,0))
MIT = cbind(MIT,c(0,4))

# Okayama 0 - Blaublitz Akita 1 #

OKA = cbind(OKA,c(0,1))
AKI = cbind(AKI,c(1,0))

## Gameweek 31 ##

# Vegalta Sendai 2 - Fujieda MYFC 3 #

SEN = cbind(SEN,c(2,3))
FUJ = cbind(FUJ,c(3,2))

# Shimizu S-Pulse 4 - Renofa Yamaguchi 1 #

SHI = cbind(SHI,c(4,1))
RYA = cbind(RYA,c(1,4))

# Montedio Yamagata 4 - Gunma 1 #

MYA = cbind(MYA,c(4,1))
GUN = cbind(GUN,c(1,4))

# Tokushima Vortis 3 - Oita Trinita 1 #

TVO = cbind(TVO,c(3,1))
OIT = cbind(OIT,c(1,3))

# Blaublitz Akita 1 - JEF United 0 #

AKI = cbind(AKI,c(1,0))
JEF = cbind(JEF,c(0,1))

# Okayama 3 - Ehime FC 0 #

OKA = cbind(OKA,c(3,0))
EHI = cbind(EHI,c(0,3))

# Iwaki FC 0 - V-Varen Nagasaki 2 #

IWA = cbind(IWA,c(0,2))
VNA = cbind(VNA,c(2,0))

# Yokohama FC 1 - Ventforet Kofu 0 #

YFC = cbind(YFC,c(1,0))
KOF = cbind(KOF,c(0,1))

# Kagoshima United 0 - Roasso Kumamoto 2 #

KAG = cbind(KAG,c(0,2))
KUM = cbind(KUM,c(2,0))

# Tochigi SC 2 - Mito HollyHock 3 #

TOC = cbind(TOC,c(2,3))
MIT = cbind(MIT,c(3,2))

# Tokushima Vortis 1 - Shimizu S-Pulse 2 #

TVO = cbind(TVO,c(1,2))
SHI = cbind(SHI,c(2,1))

## Gameweek 32 ##

# Yokohama FC 1 - Oita Trinita 1 #

YFC = cbind(YFC,c(1,1))
OIT = cbind(OIT,c(1,1))

# Roasso Kumamoto 3 - Blaublitz Akita 1 #

KUM = cbind(KUM,c(3,1))
AKI = cbind(AKI,c(1,3))

# Vegalta Sendai 2 - Ventforet Kofu 2 #

SEN = cbind(SEN,c(2,2))
KOF = cbind(KOF,c(2,2))

# Ehime FC 1 - Montedio Yamagata 3 #

EHI = cbind(EHI,c(1,3))
MYA = cbind(MYA,c(3,1))

# JEF United 4 - Renofa Yamaguchi 1 #

JEF = cbind(JEF,c(4,1))
RYA = cbind(RYA,c(1,4))

# Mito HollyHock 0 - Okayama 0 #

MIT = cbind(MIT,c(0,0))
OKA = cbind(OKA,c(0,0))

# V-Varen Nagasaki 2 - Gunma 0 #

VNA = cbind(VNA,c(2,0))
GUN = cbind(GUN,c(0,2))

# Fujieda MYFC 2 - Shimizu S-Pulse 3 #

FUJ = cbind(FUJ,c(2,3))
SHI = cbind(SHI,c(3,2))

# Tokushima Vortis 0 - Iwaki FC 1 #

TVO = cbind(TVO,c(0,1))
IWA = cbind(IWA,c(1,0))

# Tochigi SC 2 - Kagoshima United 1 #

TOC = cbind(TOC,c(2,1))
KAG = cbind(KAG,c(1,2))

# Ventforet Kofu 2 - Roasso Kumamoto 4 #

KOF = cbind(KOF,c(2,4))
KUM = cbind(KUM,c(4,2))

## Gameweek 33 ##

# Ventforet Kofu 1 - Montedio Yamagata 2 #

KOF = cbind(KOF,c(1,2))
MYA = cbind(MYA,c(2,1))

# Kagoshima United 3 - Mito HollyHock 0 #

KAG = cbind(KAG,c(3,0))
MIT = cbind(MIT,c(0,3))

# Shimizu S-Pulse 1 - Yokohama FC 1 #

SHI = cbind(SHI,c(1,1))
YFC = cbind(YFC,c(1,1))

# Oita Trinita 2 - Fujieda MYFC 0 #

OIT = cbind(OIT,c(2,0))
FUJ = cbind(FUJ,c(0,2))

# Okayama 1 - V-Varen Nagasaki 0 #

OKA = cbind(OKA,c(1,0))
VNA = cbind(VNA,c(0,1))

# Blaublitz Akita 2 - Tokushima Vortis 0 #

AKI = cbind(AKI,c(2,0))
TVO = cbind(TVO,c(0,2))

# Renofa Yamaguchi 0 - Vegalta Sendai 1 #

RYA = cbind(RYA,c(0,1))
SEN = cbind(SEN,c(1,0))

# Iwaki FC 0 - Tochigi SC 0 #

IWA = cbind(IWA,c(0,0))
TOC = cbind(TOC,c(0,0))

# Ehime FC 1 - JEF United 2 #

EHI = cbind(EHI,c(1,2))
JEF = cbind(JEF,c(2,1))

# Gunma 2 - Roasso Kumamoto 3 #

GUN = cbind(GUN,c(2,3))
KUM = cbind(KUM,c(3,2))

## Gameweek 34 ##

# JEF United 1 - Gunma 0 #

JEF = cbind(JEF,c(1,0))
GUN = cbind(GUN,c(0,1))

# Ventforet Kofu 3 - Okayama 1 #

KOF = cbind(KOF,c(3,1))
OKA = cbind(OKA,c(1,3))

# Fujieda MYFC 1 - Iwaki FC 1 #

FUJ = cbind(FUJ,c(1,1))
IWA = cbind(IWA,c(1,1))

# Mito HollyHock 2 - Shimizu S-Pulse 2 #

MIT = cbind(MIT,c(2,2))
SHI = cbind(SHI,c(2,2))

# V-Varen Nagasaki 4 - Oita Trinita 1 #

VNA = cbind(VNA,c(4,1))
OIT = cbind(OIT,c(1,4))

# Montedio Yamagata 2 - Renofa Yamaguchi 0 #

MYA = cbind(MYA,c(2,0))
RYA = cbind(RYA,c(0,2))

# Yokohama FC 1 - Kagoshima United 0 #

YFC = cbind(YFC,c(1,0))
KAG = cbind(KAG,c(0,1))

# Roasso Kumamoto 1 - Tokushima Vortis 2 #

KUM = cbind(KUM,c(1,2))
TVO = cbind(TVO,c(2,1))

# Tochigi SC 1 - Ehime FC 1 #

TOC = cbind(TOC,c(1,1))
EHI = cbind(EHI,c(1,1))

# Vegalta Sendai 0 - Blaublitz Akita 1 #

SEN = cbind(SEN,c(0,1))
AKI = cbind(AKI,c(1,0))

## Gameweek 35 ##

# Kagoshima United 4 - Ehime FC 0 #

KAG = cbind(KAG,c(4,0))
EHI = cbind(EHI,c(0,4))

# JEF United 2 - Ventforet Kofu 1 #

JEF = cbind(JEF,c(2,1))
KOF = cbind(KOF,c(1,2))

# Vegalta Sendai 3 - Yokohama FC 0 #

SEN = cbind(SEN,c(3,0))
YFC = cbind(YFC,c(0,3))

# Blaublitz Akita 1 - V-Varen Nagasaki 2 #

AKI = cbind(AKI,c(1,2))
VNA = cbind(VNA,c(2,1))

# Shimizu S-Pulse 1 - Montedio Yamagata 2 #

SHI = cbind(SHI,c(1,2))
MYA = cbind(MYA,c(2,1))

# Okayama 2 - Iwaki FC 1 #

OKA = cbind(OKA,c(2,1))
IWA = cbind(IWA,c(1,2))

# Oita Trinita 0 - Mito HollyHock 0 #

OIT = cbind(OIT,c(0,0))
MIT = cbind(MIT,c(0,0))

# Gunma 0 - Tochigi SC 0 #

GUN = cbind(GUN,c(0,0))
TOC = cbind(TOC,c(0,0))

# Tokushima Vortia 3 - Fujieda MYFC 0 #

TVO = cbind(TVO,c(3,0))
FUJ = cbind(FUJ,c(0,3))

# Roasso Kumamoto 1 - Renofa Yamaguchi 1 #

KUM = cbind(KUM,c(1,1))
RYA = cbind(RYA,c(1,1))

## Gameweek 36 ##

# Iwaki FC 1 - Mito HollyHock 2 #

IWA = cbind(IWA,c(1,2))
MIT = cbind(MIT,c(2,1))

# Fujieda MYFC 2 - JEF United 3 #

FUJ = cbind(FUJ,c(2,3))
JEF = cbind(JEF,c(3,2))

# V-Varen Nagasaki 4 - Kagoshima United 1 #

VNA = cbind(VNA,c(4,1))
KAG = cbind(KAG,c(1,4))

# Gunma 0 - Tokushima Vortis 2 #

GUN = cbind(GUN,c(0,2))
TVO = cbind(TVO,c(2,0))

# Montedio Yamagata 1 - Roasso Kumamoto 0 #

MYA = cbind(MYA,c(1,0))
KUM = cbind(KUM,c(0,1))

# Tochigi SC 0 - Shimizu S-Pulse 1 #

TOC = cbind(TOC,c(0,1))
SHI = cbind(SHI,c(1,0))

# Yokohama FC 2 - Okayama 4 #

YFC = cbind(YFC,c(2,4))
OKA = cbind(OKA,c(4,2))

# Blaublitz Akita 0 - Oita Trinita 2 #

AKI = cbind(AKI,c(0,2))
OIT = cbind(OIT,c(2,0))

# Renofa Yamaguchi 2 - Ventforet Kofu 0 #

RYA = cbind(RYA,c(2,0))
KOF = cbind(KOF,c(0,2))

# Ehime FC 0 - Vegalta Sendai 2 #

EHI = cbind(EHI,c(0,2))
SEN = cbind(SEN,c(2,0))

## Gameweek 37 ##

# Okayama 2 - Fujieda MYFC 0 #

OKA = cbind(OKA,c(2,0))
FUJ = cbind(FUJ,c(0,2))

# Yokohama FC 0 - Tochigi SC 0 #

YFC = cbind(YFC,c(0,0))
TOC = cbind(TOC,c(0,0))

# Tokushima Vortis 1 - Kagoshima United 0 #

TVO = cbind(TVO,c(1,0))
KAG = cbind(KAG,c(0,1))

# Oita Trinita 2 - Gunma 1 #

OIT = cbind(OIT,c(2,1))
GUN = cbind(GUN,c(1,2))

# Shimizu S-Pulse 1 - Iwaki FC 0 #

SHI = cbind(SHI,c(1,0))
IWA = cbind(IWA,c(0,1))

# JEF United 1 - V-Varen Nagasaki 2 #

JEF = cbind(JEF,c(1,2))
VNA = cbind(VNA,c(2,1))

# Ventforet Kofu 1 - Blaublitz Akita 2 #

KOF = cbind(KOF,c(1,2))
AKI = cbind(AKI,c(2,1))

# Mito HollyHock 1 - Montedio Yamagata 3 #

MIT = cbind(MIT,c(1,3))
MYA = cbind(MYA,c(3,1))

# Ehime FC 1 - Renofa Yamaguchi 1 #

EHI = cbind(EHI,c(1,1))
RYA = cbind(RYA,c(1,1))

# Roasso Kumamoto 3 - Vegalta Sendai 1 #

KUM = cbind(KUM,c(3,1))
SEN = cbind(SEN,c(1,3))

## Gameweek 38 ##

# Montedio Yamagata 4 - JEF United 0 #

MYA = cbind(MYA,c(4,0))
JEF = cbind(JEF,c(0,4))

# Ventforet Kofu 3 - Mito HollyHock 1 #

KOF = cbind(KOF,c(3,1))
MIT = cbind(MIT,c(1,3))

# Tochigi SC 0 - Tokushima Vortis 0 #

TOC = cbind(TOC,c(0,0))
TVO = cbind(TVO,c(0,0))

# Vegalta Sendai 2 - Oita Trinita 1 #

SEN = cbind(SEN,c(2,1))
OIT = cbind(OIT,c(1,2))

# Shimizu S-Pulse 1 - Roasso Kumamoto 0 #

SHI = cbind(SHI,c(1,0))
KUM = cbind(KUM,c(0,1))

# Blaublitz Akita 1 - Fujieda MYFC 0 #

AKI = cbind(AKI,c(1,0))
FUJ = cbind(FUJ,c(0,1))

# Kagoshima United 0 - Okayama 0 #

KAG = cbind(KAG,c(0,0))
OKA = cbind(OKA,c(0,0))

# Iwaki FC 3 - Gunma 0 #

IWA = cbind(IWA,c(3,0))
GUN = cbind(GUN,c(0,3))

# V-Varen Nagasaki 5 - Ehime FC 2 #

VNA = cbind(VNA,c(5,2))
EHI = cbind(EHI,c(2,5))

# Renofa Yamaguchi 0 - Yokohama FC 0 #

RYA = cbind(RYA,c(0,0))
YFC = cbind(YFC,c(0,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