library(nnet)
data = read.csv(file = 'World-Cup-Stats-v1.1.csv', header = T)
difference.in.goals.scored = data$Goals.scored.so.far.A - data$Goals.scored.so.far.B
data = cbind(data, difference.in.goals.scored)
build.data = data[-64, ]
pred.data = data[64,]
model = multinom(Result ~ difference.in.goals.scored + Difference.in.fifa.rank + Difference.in.minutes.played + Difference.in.points + Difference.in.goals.conceded, data = build.data)
predict(model, data[64,])