Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1418 210907 81 30 94 145 869 120982 55 28 103 101 1530 176508 50 38 93 98 2172 179321 125 30 103 132 901 123185 40 22 51 60 463 52746 37 26 70 38 3201 385534 63 25 91 144 371 33170 44 18 22 5 1192 101645 88 11 38 28 1583 149061 66 26 93 84 1439 165446 57 25 60 79 1764 237213 74 38 123 127 1495 173326 49 44 148 78 1373 133131 52 30 90 60 2187 258873 88 40 124 131 1491 180083 36 34 70 84 4041 324799 108 47 168 133 1706 230964 43 30 115 150 2152 236785 75 31 71 91 1036 135473 32 23 66 132 1882 202925 44 36 134 136 1929 215147 85 36 117 124 2242 344297 86 30 108 118 1220 153935 56 25 84 70 1289 132943 50 39 156 107 2515 174724 135 34 120 119 2147 174415 63 31 114 89 2352 225548 81 31 94 112 1638 223632 52 33 120 108 1222 124817 44 25 81 52 1812 221698 113 33 110 112 1677 210767 39 35 133 116 1579 170266 73 42 122 123 1731 260561 48 43 158 125 807 84853 33 30 109 27 2452 294424 59 33 124 162 829 101011 41 13 39 32 1940 215641 69 32 92 64 2662 325107 64 36 126 92 186 7176 1 0 0 0 1499 167542 59 28 70 83 865 106408 32 14 37 41 1793 96560 129 17 38 47 2527 265769 37 32 120 120 2747 269651 31 30 93 105 1324 149112 65 35 95 79 2702 175824 107 20 77 65 1383 152871 74 28 90 70 1179 111665 54 28 80 55 2099 116408 76 39 31 39 4308 362301 715 34 110 67 918 78800 57 26 66 21 1831 183167 66 39 138 127 3373 277965 106 39 133 152 1713 150629 54 33 113 113 1438 168809 32 28 100 99 496 24188 20 4 7 7 2253 329267 71 39 140 141 744 65029 21 18 61 21 1161 101097 70 14 41 35 2352 218946 112 29 96 109 2144 244052 66 44 164 133 4691 341570 190 21 78 123 1112 103597 66 16 49 26 2694 233328 165 28 102 230 1973 256462 56 35 124 166 1769 206161 61 28 99 68 3148 311473 53 38 129 147 2474 235800 127 23 62 179 2084 177939 63 36 73 61 1954 207176 38 32 114 101 1226 196553 50 29 99 108 1389 174184 52 25 70 90 1496 143246 42 27 104 114 2269 187559 76 36 116 103 1833 187681 67 28 91 142 1268 119016 50 23 74 79 1943 182192 53 40 138 88 893 73566 39 23 67 25 1762 194979 50 40 151 83 1403 167488 77 28 72 113 1425 143756 57 34 120 118 1857 275541 73 33 115 110 1840 243199 34 28 105 129 1502 182999 39 34 104 51 1441 135649 46 30 108 93 1420 152299 63 33 98 76 1416 120221 35 22 69 49 2970 346485 106 38 111 118 1317 145790 43 26 99 38 1644 193339 47 35 71 141 870 80953 31 8 27 58 1654 122774 162 24 69 27 1054 130585 57 29 107 91 937 112611 36 20 73 48 3004 286468 263 29 107 63 2008 241066 78 45 93 56 2547 148446 63 37 129 144 1885 204713 54 33 69 73 1626 182079 63 33 118 168 1468 140344 77 25 73 64 2445 220516 79 32 119 97 1964 243060 110 29 104 117 1381 162765 56 28 107 100 1369 182613 56 28 99 149 1659 232138 43 31 90 187 2888 265318 111 52 197 127 1290 85574 71 21 36 37 2845 310839 62 24 85 245 1982 225060 56 41 139 87 1904 232317 74 33 106 177 1391 144966 60 32 50 49 602 43287 43 19 64 49 1743 155754 68 20 31 73 1559 164709 53 31 63 177 2014 201940 87 31 92 94 2143 235454 46 32 106 117 2146 220801 105 18 63 60 874 99466 32 23 69 55 1590 92661 133 17 41 39 1590 133328 79 20 56 64 1210 61361 51 12 25 26 2072 125930 207 17 65 64 1281 100750 67 30 93 58 1401 224549 47 31 114 95 834 82316 34 10 38 25 1105 102010 66 13 44 26 1272 101523 76 22 87 76 1944 243511 65 42 110 129 391 22938 9 1 0 11 761 41566 42 9 27 2 1605 152474 45 32 83 101 530 61857 25 11 30 28 1988 99923 115 25 80 36 1386 132487 97 36 98 89 2395 317394 53 31 82 193 387 21054 2 0 0 4 1742 209641 52 24 60 84 620 22648 44 13 28 23 449 31414 22 8 9 39 800 46698 35 13 33 14 1684 131698 74 19 59 78 1050 91735 103 18 49 14 2699 244749 144 33 115 101 1606 184510 60 40 140 82 1502 79863 134 22 49 24 1204 128423 89 38 120 36 1138 97839 42 24 66 75 568 38214 52 8 21 16 1459 151101 98 35 124 55 2158 272458 99 43 152 131 1111 172494 52 43 139 131 1421 108043 29 14 38 39 2833 328107 125 41 144 144 1955 250579 106 38 120 139 2922 351067 95 45 160 211 1002 158015 40 31 114 78 1060 98866 140 13 39 50 956 85439 43 28 78 39 2186 229242 128 31 119 90 3604 351619 142 40 141 166 1035 84207 73 30 101 12 1417 120445 72 16 56 57 3261 324598 128 37 133 133 1587 131069 61 30 83 69 1424 204271 73 35 116 119 1701 165543 148 32 90 119 1249 141722 64 27 36 65 946 116048 45 20 50 61 1926 250047 58 18 61 49 3352 299775 97 31 97 101 1641 195838 50 31 98 196 2035 173260 37 21 78 15 2312 254488 50 39 117 136 1369 104389 105 41 148 89 1577 136084 69 13 41 40 2201 199476 46 32 105 123 961 92499 57 18 55 21 1900 224330 52 39 132 163 1254 135781 98 14 44 29 1335 74408 61 7 21 35 1597 81240 89 17 50 13 207 14688 0 0 0 5 1645 181633 48 30 73 96 2429 271856 91 37 86 151 151 7199 0 0 0 6 474 46660 7 5 13 13 141 17547 3 1 4 3 1639 133368 54 16 57 56 872 95227 70 32 48 23 1318 152601 36 24 46 57 1018 98146 37 17 48 14 1383 79619 123 11 32 43 1314 59194 247 24 68 20 1335 139942 46 22 87 72 1403 118612 72 12 43 87 910 72880 41 19 67 21 616 65475 24 13 46 56 1407 99643 45 17 46 59 771 71965 33 15 56 82 766 77272 27 16 48 43 473 49289 36 24 44 25 1376 135131 87 15 60 38 1232 108446 90 17 65 25 1521 89746 114 18 55 38 572 44296 31 20 38 12 1059 77648 45 16 52 29 1544 181528 69 16 60 47 1230 134019 51 18 54 45 1206 124064 34 22 86 40 1205 92630 60 8 24 30 1255 121848 45 17 52 41 613 52915 54 18 49 25 721 81872 25 16 61 23 1109 58981 38 23 61 14 740 53515 52 22 81 16 1126 60812 67 13 43 26 728 56375 74 13 40 21 689 65490 38 16 40 27 592 80949 30 16 56 9 995 76302 26 20 68 33 1613 104011 67 22 79 42 2048 98104 132 17 47 68 705 67989 42 18 57 32 301 30989 35 17 41 6 1803 135458 118 12 29 67 799 73504 68 7 3 33 861 63123 43 17 60 77 1186 61254 76 14 30 46 1451 74914 64 23 79 30 628 31774 48 17 47 0 1161 81437 64 14 40 36 1463 87186 56 15 48 46 742 50090 71 17 36 18 979 65745 75 21 42 48 675 56653 39 18 49 29 1241 158399 42 18 57 28 676 46455 39 17 12 34 1049 73624 93 17 40 33 620 38395 38 16 43 34 1081 91899 60 15 33 33 1688 139526 71 21 77 80 736 52164 52 16 43 32 617 51567 27 14 45 30 812 70551 59 15 47 41 1051 84856 40 17 43 41 1656 102538 79 15 45 51 705 86678 44 15 50 18 945 85709 65 10 35 34 554 34662 10 6 7 31 1597 150580 124 22 71 39 982 99611 81 21 67 54 222 19349 15 1 0 14 1212 99373 92 18 62 24 1143 86230 42 17 54 24 435 30837 10 4 4 8 532 31706 24 10 25 26 882 89806 64 16 40 19 608 62088 45 16 38 11 459 40151 22 9 19 14 578 27634 56 16 17 1 826 76990 94 17 67 39 509 37460 19 7 14 5 717 54157 35 15 30 37 637 49862 32 14 54 32 857 84337 35 14 35 38 830 64175 48 18 59 47 652 59382 49 12 24 47 707 119308 48 16 58 37 954 76702 62 21 42 51 1461 103425 96 19 46 45 672 70344 45 16 61 21 778 43410 63 1 3 1 1141 104838 71 16 52 42 680 62215 26 10 25 26 1090 69304 48 19 40 21 616 53117 29 12 32 4 285 19764 19 2 4 10 1145 86680 45 14 49 43 733 84105 45 17 63 34 888 77945 67 19 67 31 849 89113 30 14 32 19 1182 91005 36 11 23 34 528 40248 34 4 7 6 642 64187 36 16 54 11 947 50857 34 20 37 24 819 56613 37 12 35 16 757 62792 46 15 51 72 894 72535 44 16 39 21
Names of X columns:
pageviews time_in_rfc compendium_views_pr compendiums_reviewed feedback_messages_p120 totblogs
Type of Correlation
kendall
pearson
spearman
kendall
Chart options
Title:
R Code
panel.tau <- function(x, y, digits=2, prefix='', cex.cor) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(0, 1, 0, 1)) rr <- cor.test(x, y, method=par1) r <- round(rr$p.value,2) txt <- format(c(r, 0.123456789), digits=digits)[1] txt <- paste(prefix, txt, sep='') if(missing(cex.cor)) cex <- 0.5/strwidth(txt) text(0.5, 0.5, txt, cex = cex) } panel.hist <- function(x, ...) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(usr[1:2], 0, 1.5) ) h <- hist(x, plot = FALSE) breaks <- h$breaks; nB <- length(breaks) y <- h$counts; y <- y/max(y) rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...) } bitmap(file='test1.png') pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main) dev.off() load(file='createtable') n <- length(y[,1]) n a<-table.start() a<-table.row.start(a) a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,' ',header=TRUE) for (i in 1:n) { a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) } a<-table.row.end(a) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) for (j in 1:n) { r <- cor.test(y[i,],y[j,],method=par1) a<-table.element(a,round(r$estimate,3)) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'pair',1,TRUE) a<-table.element(a,'Pearson r',1,TRUE) a<-table.element(a,'Spearman rho',1,TRUE) a<-table.element(a,'Kendall tau',1,TRUE) a<-table.row.end(a) cor.test(y[1,],y[2,],method=par1) for (i in 1:(n-1)) { for (j in (i+1):n) { a<-table.row.start(a) dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='') a<-table.element(a,dum,header=TRUE) rp <- cor.test(y[i,],y[j,],method='pearson') a<-table.element(a,round(rp$estimate,4)) rs <- cor.test(y[i,],y[j,],method='spearman') a<-table.element(a,round(rs$estimate,4)) rk <- cor.test(y[i,],y[j,],method='kendall') a<-table.element(a,round(rk$estimate,4)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value',header=T) a<-table.element(a,paste('(',round(rp$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rs$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rk$p.value,4),')',sep='')) a<-table.row.end(a) } } a<-table.end(a) table.save(a,file='mytable1.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation