# kõigepealt muuda õige kataloog aktiivseks, menüüst File - Change Dir
library(foreign)
as.matrix(read.csv('13eksperdi_paremusjarjestused.csv', header = FALSE, sep = ";"))
jarjestused <- as.matrix(read.csv('13eksperdi_paremusjarjestused.csv', header = FALSE, sep = ";"))
jarjestused
library(ConsRank)
# Kui library() andis errori, siis tuleb pakett esmalt installida menüüst Packages - Install package
utils:::menuInstallPkgs()
library(ConsRank)
kemenyd(jarjestused)
kaugusmaatriks <- kemenyd(jarjestused)
kaugusmaatriks
apply(kaugusmaatriks, 1, sum)
kaugusmaatriks[12,5]
kaugusmaatriks[12][5]
kaugusmaatriks[12;5]
kaugusmaatriks[12;5]
km = kaugusmaatriks
km
km[1,2]
km[2,1]
km[2;1]
km[1;2,]
km[1:2,]
1:2
E = jarjestused
E[1,]
E[2,]
E[2,2]
E[2,3]
km
km[3,2]
km[3][2]
km[2][3]
library(ape)
utils:::menuInstallPkgs()
library(ape)
mst(km)
plot(M, graph = "nsca")
M = mst(km)
plot(M, graph = "nsca")
plot(M, graph = "nsca")
plot(M)
plot(M)
E[1:12]
E[1:12,]
E[1:11,13]
E[1:11;13]
1:11,13
1:11 ; 13
?comb
??comb
plot(M, graph = "nsca")
plot(M, graph = "nsca")