R version 3.4.2 (2017-09-28) -- "Short Summer" Copyright (C) 2017 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 (64-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > library(foreign) > as.matrix(read.csv('13eksperdi_paremusjarjestused.csv', header = FALSE, sep = ";")) V1 V2 V3 V4 V5 V6 [1,] 1 4 3 2 6 5 [2,] 1 4 3 2 6 5 [3,] 2 1 3 4 5 6 [4,] 2 4 5 1 6 3 [5,] 4 3 5 2 6 1 [6,] 4 2 3 1 6 5 [7,] 5 4 6 1 3 2 [8,] 6 5 3 1 4 2 [9,] 6 5 4 2 3 1 [10,] 1 3 4 2 6 5 [11,] 1 4 3 2 5 6 [12,] 4 1 3 2 6 5 [13,] 4 3 5 1 6 2 > jarjestused <- as.matrix(read.csv('13eksperdi_paremusjarjestused.csv', header = FALSE, sep = ";")) > jarjestused V1 V2 V3 V4 V5 V6 [1,] 1 4 3 2 6 5 [2,] 1 4 3 2 6 5 [3,] 2 1 3 4 5 6 [4,] 2 4 5 1 6 3 [5,] 4 3 5 2 6 1 [6,] 4 2 3 1 6 5 [7,] 5 4 6 1 3 2 [8,] 6 5 3 1 4 2 [9,] 6 5 4 2 3 1 [10,] 1 3 4 2 6 5 [11,] 1 4 3 2 5 6 [12,] 4 1 3 2 6 5 [13,] 4 3 5 1 6 2 > utils:::menuInstallPkgs() --- Please select a CRAN mirror for use in this session --- also installing the dependencies ‘proxy’, ‘gtools’ trying URL 'https://cloud.r-project.org/bin/windows/contrib/3.4/proxy_0.4-22.zip' Content type 'application/zip' length 201554 bytes (196 KB) downloaded 196 KB trying URL 'https://cloud.r-project.org/bin/windows/contrib/3.4/gtools_3.8.1.zip' Content type 'application/zip' length 273740 bytes (267 KB) downloaded 267 KB trying URL 'https://cloud.r-project.org/bin/windows/contrib/3.4/ConsRank_2.0.1.zip' Content type 'application/zip' length 119310 bytes (116 KB) downloaded 116 KB package ‘proxy’ successfully unpacked and MD5 sums checked package ‘gtools’ successfully unpacked and MD5 sums checked package ‘ConsRank’ successfully unpacked and MD5 sums checked The downloaded binary packages are in C:\Users\tarmo.veskioja\AppData\Local\Temp\RtmpAB848S\downloaded_packages > library(ConsRank) Loading required package: proxy Attaching package: ‘proxy’ The following objects are masked from ‘package:stats’: as.dist, dist The following object is masked from ‘package:base’: as.matrix Loading required package: rgl Loading required package: gtools Attaching package: ‘ConsRank’ The following object is masked from ‘package:base’: labels Warning messages: 1: package ‘ConsRank’ was built under R version 3.4.4 2: package ‘proxy’ was built under R version 3.4.4 3: package ‘rgl’ was built under R version 3.4.4 4: package ‘gtools’ was built under R version 3.4.4 > KSTmaatriks <- kemenyd(jarjestused) > KSTmaatriks 1 2 3 4 5 6 7 8 9 10 11 12 2 0 3 10 10 4 8 8 14 5 14 14 16 6 6 8 8 10 8 10 7 18 18 20 10 8 14 8 16 16 22 12 10 12 6 9 20 20 26 16 10 16 6 4 10 2 2 8 6 12 6 16 18 22 11 2 2 8 10 16 10 20 18 22 4 12 10 10 8 10 12 2 16 14 18 8 12 13 12 12 14 4 2 8 6 8 12 10 14 10 > ?apply starting httpd help server ... done > apply(KSTmaatriks, 2, sum) 1 2 3 4 5 6 7 8 9 10 11 12 13 120 120 166 112 130 112 158 156 192 114 138 130 112 > apply(KSTmaatriks, 1, sum) 1 2 3 4 5 6 7 8 9 10 11 12 13 120 120 166 112 130 112 158 156 192 114 138 130 112 > min(apply(KSTmaatriks, 1, sum)) [1] 112 > utils:::menuInstallPkgs() trying URL 'https://cloud.r-project.org/bin/windows/contrib/3.4/ape_5.2.zip' Content type 'application/zip' length 2090642 bytes (2.0 MB) downloaded 2.0 MB package ‘ape’ successfully unpacked and MD5 sums checked The downloaded binary packages are in C:\Users\tarmo.veskioja\AppData\Local\Temp\RtmpAB848S\downloaded_packages > library(ape) Warning message: package ‘ape’ was built under R version 3.4.4 > M <- mst(KSTmaatriks) > M 1 2 3 4 5 6 7 8 9 10 11 12 13 1 0 1 0 0 0 0 0 0 0 1 1 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 1 0 0 0 4 0 0 0 0 0 0 0 0 0 1 0 0 1 5 0 0 0 0 0 0 0 0 0 0 0 0 1 6 0 0 0 0 0 0 0 0 0 1 0 1 0 7 0 0 0 0 0 0 0 1 0 0 0 0 1 8 0 0 0 0 0 0 1 0 1 0 0 0 0 9 0 0 0 0 0 0 0 1 0 0 0 0 0 10 1 0 1 1 0 1 0 0 0 0 0 0 0 11 1 0 0 0 0 0 0 0 0 0 0 0 0 12 0 0 0 0 0 1 0 0 0 0 0 0 0 13 0 0 0 1 1 0 1 0 0 0 0 0 0 attr(,"class") [1] "mst" > plot(M) > ?mst > plot(M, graph = "nsca") > ?mst > plot(M, x1 = PC$x[, 1], x2 = PC$x[, 2]) Error in plot.mst(M, x1 = PC$x[, 1], x2 = PC$x[, 2]) : object 'PC' not found > X<- jarjestused > x<- jarjestused > plot(M, x1 = PC$x[, 1], x2 = PC$x[, 2]) Error in plot.mst(M, x1 = PC$x[, 1], x2 = PC$x[, 2]) : object 'PC' not found > ?prcomp > PC <- prcomp(X) > plot(M, x1 = PC$x[, 1], x2 = PC$x[, 2]) > ?transpose No documentation for ‘transpose’ in specified packages and libraries: you could try ‘??transpose’ > ??transpose > jarjestused V1 V2 V3 V4 V5 V6 [1,] 1 4 3 2 6 5 [2,] 1 4 3 2 6 5 [3,] 2 1 3 4 5 6 [4,] 2 4 5 1 6 3 [5,] 4 3 5 2 6 1 [6,] 4 2 3 1 6 5 [7,] 5 4 6 1 3 2 [8,] 6 5 3 1 4 2 [9,] 6 5 4 2 3 1 [10,] 1 3 4 2 6 5 [11,] 1 4 3 2 5 6 [12,] 4 1 3 2 6 5 [13,] 4 3 5 1 6 2 > t(jarjestused) [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] V1 1 1 2 2 4 4 5 6 6 1 1 4 4 V2 4 4 1 4 3 2 4 5 5 3 4 1 3 V3 3 3 3 5 5 3 6 3 4 4 3 3 5 V4 2 2 4 1 2 1 1 1 2 2 2 2 1 V5 6 6 5 6 6 6 3 4 3 6 5 6 6 V6 5 5 6 3 1 5 2 2 1 5 6 5 2 > kemenyd(t(jarjestused)) 1 2 3 4 5 2 63 3 57 66 4 91 86 88 5 92 95 71 65 6 113 100 104 46 59 > eurojarjestused <- as.matrix(read.csv('eurovisioon.csv', header = TRUE, sep = ";")) > eurojarjestused X Andorra Albania Austria Belarus Belgium Bosniaherzegovina Croatia Cyprus [1,] "Albania" "11" "11" " 6" "11" "10" " 7" " 5" "11" [2,] "Austria" "11" "11" "11" "11" "11" "11" "11" "11" [3,] "Belgium" "10" "11" "11" "11" "11" "11" "11" "10" [4,] "Bosniaherzegovina" "11" " 2" " 4" "11" "11" "11" " 2" "11" [5,] "Croatia" "11" "11" " 8" " 6" "11" " 2" "11" "11" [6,] "Cyprus" " 7" "11" " 5" " 3" " 7" "11" " 7" "11" [7,] "France" " 4" "10" "11" "11" " 2" "11" "11" "11" [8,] "FyrMacedonia" "11" " 5" "11" "11" "11" " 3" " 6" "11" [9,] "Germany" "11" " 9" " 2" "11" "11" " 8" "10" "11" [10,] "Greece" " 3" " 1" " 9" " 5" " 3" " 6" " 4" " 1" [11,] "Iceland" "11" "11" "11" "11" "11" "11" "11" "11" [12,] "Ireland" "11" "11" "11" "11" "11" "11" "11" "11" [13,] "Malta" " 5" " 8" "11" "11" "11" "10" " 9" "11" [14,] "Norway" "11" "11" "11" "11" "11" "11" "11" "11" [15,] "Poland" "11" "11" "11" "11" "11" "11" "11" " 9" [16,] "Romania" "11" "11" "11" "11" "11" "11" "11" " 8" [17,] "Russia" "11" "11" "11" " 1" "11" "11" "11" " 5" [18,] "Serbiamontenegro" " 9" " 4" " 1" " 4" " 8" " 1" " 1" " 2" [19,] "Spain" " 1" "11" "11" " 9" " 4" "11" "11" " 4" [20,] "Sweden" " 6" " 7" "10" " 7" " 9" " 9" "11" " 6" [21,] "Thenetherlands" "11" "11" "11" "11" " 5" "11" "11" "11" [22,] "Turkey" " 8" " 3" " 3" " 8" " 1" " 4" " 8" " 7" [23,] "Ukraine " " 2" " 6" " 7" " 2" " 6" " 5" " 3" " 3" [24,] "Unitedkingdom" "11" "11" "11" "10" "11" "11" "11" "11" Denmark Estonia Finland France FyrMacedonia Germany Greece Iceland Ireland Israel Latvia [1,] " 7" "11" " 8" "10" " 1" " 6" " 2" " 7" " 9" "11" "10" [2,] "11" "11" "11" " 7" "11" "11" " 6" "11" "11" "11" "11" [3,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [4,] " 3" "11" "11" "11" " 7" "11" "11" "11" "11" "11" "11" [5,] "11" "11" "10" "11" " 6" "10" "11" "11" "11" "11" "11" [6,] " 5" " 4" " 4" " 6" "11" " 3" " 1" " 2" " 2" " 8" " 7" [7,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [8,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [9,] "11" " 9" "11" " 4" "11" "11" "11" "11" " 7" "11" "11" [10,] " 8" " 6" " 5" " 5" " 4" " 4" "11" " 5" " 6" " 2" " 4" [11,] " 9" "11" " 9" "11" "11" "11" "11" "11" "11" "11" "11" [12,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [13,] "10" " 5" "11" "11" " 8" "11" "10" "11" " 5" " 7" " 5" [14,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [15,] "11" "11" "11" "11" "11" " 7" " 7" " 8" "11" "11" "11" [16,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "10" "11" [17,] "11" " 3" " 7" "11" "11" "11" " 9" "11" "11" " 5" " 2" [18,] " 4" "10" " 2" " 2" " 2" " 2" " 3" " 4" " 8" " 4" " 6" [19,] "11" "11" "11" " 3" "10" " 9" " 8" "10" "11" " 3" "11" [20,] " 1" " 2" " 1" " 8" " 9" " 8" "11" " 3" " 1" " 6" " 3" [21,] "11" " 8" "11" "11" "11" "11" "11" "11" "11" "11" "11" [22,] " 2" "11" " 6" " 1" " 5" " 1" " 5" " 6" "10" " 9" " 9" [23,] " 6" " 1" " 3" " 9" " 3" " 5" " 4" " 1" " 4" " 1" " 1" [24,] "11" " 7" "11" "11" "11" "11" "11" " 9" " 3" "11" " 8" Lithuania Malta Monaco Norway Poland Portugal Romania Russia Serbiamontenegro Slovenia Spain [1,] "11" " 2" "11" " 8" "11" "11" "10" "11" " 3" " 7" "11" [2,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [3,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [4,] "11" "11" " 7" " 2" "11" "11" "11" "11" " 5" " 2" "11" [5,] "11" "11" "11" "11" "11" "11" "11" " 6" " 6" " 6" "11" [6,] " 6" " 4" " 9" " 7" " 7" " 8" " 8" " 5" " 8" "10" " 8" [7,] "11" "11" " 1" "11" "11" " 9" "11" " 7" "11" "11" " 7" [8,] "11" "10" "11" "11" "11" "11" "11" "11" " 1" " 4" "11" [9,] "10" "11" " 4" "10" " 5" " 3" " 7" "11" "11" " 8" " 1" [10,] " 2" " 1" " 2" " 9" " 4" " 5" " 1" " 4" " 4" " 5" " 4" [11,] "11" "11" " 6" " 6" "11" "11" "11" " 9" "11" "11" "11" [12,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [13,] " 7" "11" "11" "11" " 8" "10" "11" "11" "11" "11" "11" [14,] "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" "11" [15,] " 4" "11" "11" "11" "11" "11" "11" "11" "11" "11" "10" [16,] "11" "11" "11" "11" "11" " 7" "11" "11" "11" "11" " 2" [17,] " 3" "11" "11" "11" "11" "11" "11" "11" "10" "11" "11" [18,] " 9" " 5" "10" " 5" " 6" " 4" " 3" " 2" "11" " 1" " 5" [19,] "11" " 8" " 8" "11" "10" " 1" " 6" "11" "11" "11" "11" [20,] " 5" " 6" "11" " 1" " 2" " 6" " 4" " 8" " 7" " 9" " 6" [21,] "11" " 9" "11" "11" "11" "11" "11" "11" "11" "11" "11" [22,] " 8" "11" " 3" " 3" " 3" "11" " 2" " 3" " 9" "11" " 9" [23,] " 1" " 3" " 5" " 4" " 1" " 2" " 5" " 1" " 2" " 3" " 3" [24,] "11" " 7" "11" "11" " 9" "11" " 9" "10" "11" "11" "11" Sweden Switzerland Thenetherlands Turkey Ukraine Unitedkingdom [1,] " 4" " 4" "10" " 5" "11" "10" [2,] "11" "11" "11" "11" "11" "11" [3,] "11" "11" " 6" "11" "11" "11" [4,] " 3" " 6" " 9" " 4" "11" "11" [5,] "11" " 8" "11" "11" " 4" "11" [6,] " 5" " 9" " 3" "10" " 7" " 2" [7,] "11" "11" "11" "11" "11" "11" [8,] "11" "10" "11" " 7" " 8" "11" [9,] "11" " 2" " 8" " 6" "11" " 7" [10,] " 7" " 7" " 5" " 2" " 3" " 1" [11,] "11" "11" "11" "11" "11" "11" [12,] "11" "11" "11" "11" "11" " 4" [13,] "11" "11" "11" "11" "10" " 9" [14,] " 8" "11" "11" "11" "11" "11" [15,] "10" "11" "11" "11" " 6" "11" [16,] "11" "11" "11" "11" "11" "11" [17,] "11" "11" "11" "11" " 2" "11" [18,] " 1" " 1" " 2" " 3" " 1" " 8" [19,] "11" " 5" " 7" " 9" "11" "11" [20,] "11" "11" "11" " 8" " 9" " 3" [21,] "11" "11" "11" "11" "11" "11" [22,] " 6" " 3" " 1" "11" " 5" " 5" [23,] " 2" "11" " 4" " 1" "11" " 6" [24,] " 9" "11" "11" "11" "11" "11" > ?read.csv > as.numeric(as.matrix(read.csv('eurovisioon.csv', header = TRUE, sep = ";"))) [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 11 11 10 11 11 7 4 [32] 11 11 3 11 11 5 11 11 11 11 9 1 6 11 8 2 11 11 11 11 2 11 11 10 5 9 1 11 11 8 11 [63] 11 11 11 4 11 7 11 3 6 11 6 11 11 4 8 5 11 11 2 9 11 11 11 11 11 11 11 1 11 10 11 [94] 3 7 11 11 11 11 11 6 3 11 11 11 5 11 11 11 11 11 11 1 4 9 7 11 8 2 10 10 11 11 11 [125] 11 7 2 11 11 3 11 11 11 11 11 11 11 8 4 9 5 1 6 11 7 11 11 11 2 11 11 3 8 6 11 [156] 11 10 11 11 11 11 1 11 9 11 4 5 11 5 11 11 2 11 7 11 6 10 4 11 11 9 11 11 11 11 1 [187] 11 11 11 8 3 11 11 11 10 11 11 11 11 11 11 1 11 11 11 11 9 8 5 2 4 6 11 7 3 11 7 [218] 11 11 3 11 5 11 11 11 8 9 11 10 11 11 11 11 4 11 1 11 2 6 11 11 11 11 11 11 4 11 11 [249] 9 6 11 11 5 11 11 11 3 10 11 2 8 11 1 7 8 11 11 11 10 4 11 11 11 5 9 11 11 11 11 [280] 11 7 2 11 1 11 6 3 11 10 7 11 11 11 6 11 11 4 5 11 11 11 11 11 11 11 2 3 8 11 1 [311] 9 11 1 11 11 7 6 11 11 11 11 4 11 11 8 11 11 11 11 2 10 9 11 5 3 11 6 11 11 11 10 [342] 3 11 11 11 4 11 11 11 11 7 11 11 2 9 8 11 1 5 11 2 6 11 11 11 1 11 11 11 11 11 11 [373] 10 11 7 11 9 3 8 11 11 5 4 11 7 11 11 11 11 2 11 11 11 5 11 11 11 11 8 11 11 4 10 [404] 3 11 6 1 9 9 11 11 11 11 2 11 11 7 6 11 11 5 11 11 11 11 8 11 1 11 10 4 3 11 11 [435] 11 11 11 8 11 11 11 2 11 11 7 11 11 10 5 4 3 6 11 9 1 11 10 11 11 11 11 7 11 11 11 [466] 4 11 11 5 11 11 11 2 6 11 3 11 9 1 8 11 11 11 11 11 6 11 11 10 2 11 11 7 11 4 11 [497] 3 9 11 5 11 8 1 11 2 11 11 11 11 4 11 10 11 1 11 11 11 11 11 11 11 5 8 6 9 11 3 [528] 7 11 11 11 7 11 9 1 11 4 2 6 11 11 11 11 11 11 10 8 11 11 3 5 11 8 11 11 2 11 7 [559] 11 11 10 9 6 11 11 11 11 11 11 5 11 1 11 3 4 11 11 11 11 11 11 7 11 11 5 4 11 11 8 [590] 11 11 11 11 6 10 2 11 3 1 9 11 11 11 11 11 8 9 11 3 5 11 11 10 11 11 7 11 4 1 6 [621] 11 11 2 11 10 11 11 11 11 8 11 11 7 1 11 11 11 11 11 11 11 3 6 4 11 2 5 9 11 11 11 [652] 11 6 5 7 11 11 4 9 11 11 11 11 11 11 2 11 8 11 3 1 10 3 11 11 5 6 8 11 1 11 4 [683] 11 11 11 11 11 11 10 11 11 7 11 9 2 11 7 11 11 2 6 10 11 4 8 5 11 11 11 11 11 11 11 [714] 1 11 9 11 11 3 11 11 11 11 11 11 8 7 11 1 4 11 11 11 11 10 2 11 5 11 6 11 9 3 11 [745] 4 11 11 3 11 5 11 11 11 7 11 11 11 8 10 11 11 1 11 11 11 6 2 9 4 11 11 6 8 9 11 [776] 10 2 7 11 11 11 11 11 11 11 1 5 11 11 3 11 11 10 11 6 9 11 3 11 11 8 5 11 11 11 11 [807] 11 11 11 2 7 11 11 1 4 11 5 11 11 4 11 10 11 7 6 2 11 11 11 11 11 11 11 3 9 8 11 [838] 11 1 11 11 11 11 11 4 7 11 8 11 3 11 11 10 11 6 11 2 1 11 9 11 5 11 11 10 11 11 11 [869] 11 2 11 11 7 1 11 4 9 11 11 11 11 8 11 3 11 5 6 11 Warning message: NAs introduced by coercion > as.matrix(as.numeric(read.csv('eurovisioon.csv', header = TRUE, sep = ";")))) Error: unexpected ')' in "as.matrix(as.numeric(read.csv('eurovisioon.csv', header = TRUE, sep = ";"))))" > as.matrix(as.numeric(read.csv('eurovisioon.csv', header = TRUE, sep = ";"))) Error in base::as.matrix(x, ...) : (list) object cannot be coerced to type 'double' > eurojarjestused <- as.matrix(read.csv('eurovisioon_nimedeta.csv', header = FALSE, sep = ";")) > eurojarjestused V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20 V21 V22 V23 V24 V25 [1,] 11 11 6 11 10 7 5 11 7 11 8 10 1 6 2 7 9 11 10 11 2 11 8 11 11 [2,] 11 11 11 11 11 11 11 11 11 11 11 7 11 11 6 11 11 11 11 11 11 11 11 11 11 [3,] 10 11 11 11 11 11 11 10 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 [4,] 11 2 4 11 11 11 2 11 3 11 11 11 7 11 11 11 11 11 11 11 11 7 2 11 11 [5,] 11 11 8 6 11 2 11 11 11 11 10 11 6 10 11 11 11 11 11 11 11 11 11 11 11 [6,] 7 11 5 3 7 11 7 11 5 4 4 6 11 3 1 2 2 8 7 6 4 9 7 7 8 [7,] 4 10 11 11 2 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1 11 11 9 [8,] 11 5 11 11 11 3 6 11 11 11 11 11 11 11 11 11 11 11 11 11 10 11 11 11 11 [9,] 11 9 2 11 11 8 10 11 11 9 11 4 11 11 11 11 7 11 11 10 11 4 10 5 3 [10,] 3 1 9 5 3 6 4 1 8 6 5 5 4 4 11 5 6 2 4 2 1 2 9 4 5 [11,] 11 11 11 11 11 11 11 11 9 11 9 11 11 11 11 11 11 11 11 11 11 6 6 11 11 [12,] 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 [13,] 5 8 11 11 11 10 9 11 10 5 11 11 8 11 10 11 5 7 5 7 11 11 11 8 10 [14,] 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 [15,] 11 11 11 11 11 11 11 9 11 11 11 11 11 7 7 8 11 11 11 4 11 11 11 11 11 [16,] 11 11 11 11 11 11 11 8 11 11 11 11 11 11 11 11 11 10 11 11 11 11 11 11 7 [17,] 11 11 11 1 11 11 11 5 11 3 7 11 11 11 9 11 11 5 2 3 11 11 11 11 11 [18,] 9 4 1 4 8 1 1 2 4 10 2 2 2 2 3 4 8 4 6 9 5 10 5 6 4 [19,] 1 11 11 9 4 11 11 4 11 11 11 3 10 9 8 10 11 3 11 11 8 8 11 10 1 [20,] 6 7 10 7 9 9 11 6 1 2 1 8 9 8 11 3 1 6 3 5 6 11 1 2 6 [21,] 11 11 11 11 5 11 11 11 11 8 11 11 11 11 11 11 11 11 11 11 9 11 11 11 11 [22,] 8 3 3 8 1 4 8 7 2 11 6 1 5 1 5 6 10 9 9 8 11 3 3 3 11 [23,] 2 6 7 2 6 5 3 3 6 1 3 9 3 5 4 1 4 1 1 1 3 5 4 1 2 [24,] 11 11 11 10 11 11 11 11 11 7 11 11 11 11 11 9 3 11 8 11 7 11 11 9 11 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35 V36 [1,] 10 11 3 7 11 4 4 10 5 11 10 [2,] 11 11 11 11 11 11 11 11 11 11 11 [3,] 11 11 11 11 11 11 11 6 11 11 11 [4,] 11 11 5 2 11 3 6 9 4 11 11 [5,] 11 6 6 6 11 11 8 11 11 4 11 [6,] 8 5 8 10 8 5 9 3 10 7 2 [7,] 11 7 11 11 7 11 11 11 11 11 11 [8,] 11 11 1 4 11 11 10 11 7 8 11 [9,] 7 11 11 8 1 11 2 8 6 11 7 [10,] 1 4 4 5 4 7 7 5 2 3 1 [11,] 11 9 11 11 11 11 11 11 11 11 11 [12,] 11 11 11 11 11 11 11 11 11 11 4 [13,] 11 11 11 11 11 11 11 11 11 10 9 [14,] 11 11 11 11 11 8 11 11 11 11 11 [15,] 11 11 11 11 10 10 11 11 11 6 11 [16,] 11 11 11 11 2 11 11 11 11 11 11 [17,] 11 11 10 11 11 11 11 11 11 2 11 [18,] 3 2 11 1 5 1 1 2 3 1 8 [19,] 6 11 11 11 11 11 5 7 9 11 11 [20,] 4 8 7 9 6 11 11 11 8 9 3 [21,] 11 11 11 11 11 11 11 11 11 11 11 [22,] 2 3 9 11 9 6 3 1 11 5 5 [23,] 5 1 2 3 3 2 11 4 1 11 6 [24,] 9 10 11 11 11 9 11 11 11 11 11 > kemenyd(eurojarjestused) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2 503 3 601 170 4 422 437 423 5 486 387 419 466 6 571 534 594 727 661 7 725 292 262 491 491 674 8 454 347 379 314 308 753 449 9 668 493 539 490 618 701 493 510 10 773 610 536 683 667 770 498 549 651 11 577 230 262 365 385 576 260 439 551 620 12 535 104 136 403 353 546 258 313 467 530 196 13 703 448 460 625 615 612 506 533 605 568 548 404 14 501 104 136 343 353 566 258 313 517 584 196 70 454 15 580 255 295 572 456 533 425 472 642 575 411 285 531 229 16 660 203 173 502 452 663 235 412 482 533 295 169 461 169 272 17 682 317 349 634 414 561 525 474 724 573 415 337 421 337 322 328 18 455 550 570 507 429 690 684 495 601 744 604 586 742 538 547 587 645 19 653 424 390 685 659 654 458 635 585 518 580 500 650 500 553 415 587 626 20 729 618 600 735 707 526 638 709 649 582 528 552 486 606 629 553 533 870 690 21 540 171 203 470 420 551 257 330 546 541 263 137 459 137 352 236 344 635 461 565 22 609 542 562 579 583 570 572 679 595 662 514 570 728 576 585 659 715 522 556 718 609 23 684 593 557 666 644 607 585 632 728 565 593 579 521 541 574 528 482 751 631 487 562 889 24 595 366 398 619 531 466 476 525 607 616 414 332 482 276 455 431 429 676 592 460 271 684 453 > apply(kemenyd(eurojarjestused),2,sum) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 13706 8698 9014 12158 11504 14106 10512 11024 13462 13948 9822 8362 12562 8304 10550 9418 17 18 19 20 21 22 23 24 11148 14054 13002 14170 9060 14278 13852 11154 > mst(kemenyd(eurojarjestused)) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 4 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 7 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 8 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 9 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 10 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 12 0 1 1 0 0 0 0 1 1 0 1 0 1 1 0 1 0 0 0 0 1 0 0 0 13 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 14 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 15 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 16 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 17 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 18 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 19 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 21 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 22 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 24 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 attr(,"class") [1] "mst" > M<-mst(kemenyd(eurojarjestused)) > plot(M, graph = "nsca") > utils:::menuInstallPkgs() Error in install.packages(NULL, .libPaths()[1L], dependencies = NA, type = type) : no packages were specified > jarjestused <- as.matrix(read.csv('13pluss1eksperdi_paremusjarjestused.csv', header = FALSE, sep = ";")) Error in file(file, "rt") : cannot open the connection In addition: Warning message: In file(file, "rt") : cannot open file '13pluss1eksperdi_paremusjarjestused.csv': No such file or directory > jarjestused <- as.matrix(read.csv('13pluss1eksperdi_paremusjarjestused.csv', header = FALSE, sep = ";")) Error in file(file, "rt") : cannot open the connection In addition: Warning message: In file(file, "rt") : cannot open file '13pluss1eksperdi_paremusjarjestused.csv': No such file or directory > jarjestused <- as.matrix(read.csv('13pluss1eksperdi_paremusjarjestused.txt', header = FALSE, sep = ";")) > kemenyd(jarjestused) 1 2 3 4 5 6 7 8 9 10 11 12 13 2 0 3 10 10 4 8 8 14 5 14 14 16 6 6 8 8 10 8 10 7 18 18 20 10 8 14 8 16 16 22 12 10 12 6 9 20 20 26 16 10 16 6 4 10 2 2 8 6 12 6 16 18 22 11 2 2 8 10 16 10 20 18 22 4 12 10 10 8 10 12 2 16 14 18 8 12 13 12 12 14 4 2 8 6 8 12 10 14 10 14 6 6 8 6 8 2 12 14 18 4 8 4 6 > apply(kemenyd(jarjestused),2,sum) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 126 126 174 118 138 114 170 170 210 118 146 134 118 102 > ># kontrolli Kemeny-Snelli R kaugusmaatriksit Excelis toodud kaugusmaatriksiga. ># leia erinevused. Kontrolli kumb kaugus on õige.