##install and load package 'ConsRank'
local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
if(nchar(pkg)) library(pkg, character.only=TRUE)})
utils:::menuInstallPkgs()
local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
if(nchar(pkg)) library(pkg, character.only=TRUE)})
library(ConsRank)

#andmefaili sisselugemine
library(foreign)
as.matrix(read.csv('13eksperdi_paremusjarjestused.csv', header = FALSE, sep = ";"))

#Kemeny-Snelli kaugusmaatriksi arvutamine
jarjestused <- as.matrix(read.csv('13eksperdi_paremusjarjestused.csv', header = FALSE, sep = ";"))
kemenyd(jarjestused)

?spantree
??spantree

#install and load package 'ape'
utils:::menuInstallPkgs()
local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
if(nchar(pkg)) library(pkg, character.only=TRUE)})
?mst
KSTmaatriks <- kemenyd(jarjestused)
M <- mst(KSTmaatriks)
M
plot(M)