getwd()
library(foreign)
turniir_737734 <- as.matrix(read.csv('turniir_737734_8sept2010.csv', header = FALSE, sep = ","))
turniir_737734
turniir <- turniir_737734
turniir
turniir = turniir_737734
turniir
utils:::menuInstallPkgs()

#enne matlab paketi laadimist library() abil tuleb veenduda, et matlab pakett on installitud.
#vajadusel installida menüüst Packages - Install - choose mirror - vali 'matlib'.
library(matlib)
?powerMethod()

powerMethod(turniir)$vector
sum(powerMethod(turniir)$vector)
powerMethod(turniir)$vector % 2.414404
rank(powerMethod(turniir)$vector)
7-rank(powerMethod(turniir)$vector)

# Juryo sumoturniir
yur <- as.matrix(read.csv('2015_Kyushu_Juryo.csv', header = FALSE, sep = ","))
yur
29-rank(powerMethod(yur)$vector)

# Resende 50-900 andmefail
res50_900 <- as.matrix(read.csv('2015_50_900.csv', header = FALSE, sep = ","))
51-rank(powerMethod(res50_900)$vector)