Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1418 210907 56 3 869 120982 56 4 1530 176508 54 12 2172 179321 89 2 901 123185 40 1 463 52746 25 3 3201 385534 92 0 371 33170 18 0 1192 101645 63 0 1583 149061 44 5 1439 165446 33 0 1764 237213 84 0 1495 173326 88 7 1373 133131 55 7 2187 258873 60 3 1491 180083 66 9 4041 324799 154 0 1706 230964 53 4 2152 236785 119 3 1036 135473 41 0 1882 202925 61 7 1929 215147 58 0 2242 344297 75 1 1220 153935 33 5 1289 132943 40 7 2515 174724 92 0 2147 174415 100 0 2352 225548 112 5 1638 223632 73 0 1222 124817 40 0 1812 221698 45 0 1677 210767 60 3 1579 170266 62 4 1731 260561 75 1 807 84853 31 4 2452 294424 77 2 829 101011 34 0 1940 215641 46 0 2662 325107 99 0 186 7176 17 0 1499 167542 66 2 865 106408 30 1 1793 96560 76 0 2527 265769 146 2 2747 269651 67 10 1324 149112 56 6 2702 175824 107 0 1383 152871 58 5 1179 111665 34 4 2099 116408 61 1 4308 362301 119 2 918 78800 42 2 1831 183167 66 0 3373 277965 89 8 1713 150629 44 3 1438 168809 66 0 496 24188 24 0 2253 329267 259 8 744 65029 17 5 1161 101097 64 3 2352 218946 41 1 2144 244052 68 5 4691 341570 168 1 1112 103597 43 1 2694 233328 132 5 1973 256462 105 0 1769 206161 71 12 3148 311473 112 8 2474 235800 94 8 2084 177939 82 8 1954 207176 70 8 1226 196553 57 2 1389 174184 53 0 1496 143246 103 5 2269 187559 121 8 1833 187681 62 2 1268 119016 52 5 1943 182192 52 12 893 73566 32 6 1762 194979 62 7 1403 167488 45 2 1425 143756 46 0 1857 275541 63 4 1840 243199 75 3 1502 182999 88 6 1441 135649 46 2 1420 152299 53 0 1416 120221 37 1 2970 346485 90 0 1317 145790 63 5 1644 193339 78 2 870 80953 25 0 1654 122774 45 0 1054 130585 46 5 937 112611 41 0 3004 286468 144 1 2008 241066 82 0 2547 148446 91 1 1885 204713 71 1 1626 182079 63 2 1468 140344 53 6 2445 220516 62 1 1964 243060 63 4 1381 162765 32 2 1369 182613 39 3 1659 232138 62 0 2888 265318 117 10 1290 85574 34 0 2845 310839 92 9 1982 225060 93 7 1904 232317 54 0 1391 144966 144 0 602 43287 14 4 1743 155754 61 4 1559 164709 109 0 2014 201940 38 0 2143 235454 73 0 2146 220801 75 1 874 99466 50 0 1590 92661 61 1 1590 133328 55 0 1210 61361 77 0 2072 125930 75 4 1281 100750 72 0 1401 224549 50 4 834 82316 32 4 1105 102010 53 3 1272 101523 42 0 1944 243511 71 0 391 22938 10 0 761 41566 35 5 1605 152474 65 0 530 61857 25 4 1988 99923 66 0 1386 132487 41 0 2395 317394 86 1 387 21054 16 0 1742 209641 42 5 620 22648 19 0 449 31414 19 0 800 46698 45 0 1684 131698 65 0 1050 91735 35 0 2699 244749 95 2 1606 184510 49 7 1502 79863 37 1 1204 128423 64 8 1138 97839 38 2 568 38214 34 0 1459 151101 32 2 2158 272458 65 0 1111 172494 52 0 1421 108043 62 1 2833 328107 65 3 1955 250579 83 0 2922 351067 95 3 1002 158015 29 0 1060 98866 18 0 956 85439 33 0 2186 229242 247 4 3604 351619 139 4 1035 84207 29 11 1417 120445 118 0 3261 324598 110 0 1587 131069 67 4 1424 204271 42 0 1701 165543 65 1 1249 141722 94 0 946 116048 64 0 1926 250047 81 0 3352 299775 95 9 1641 195838 67 1 2035 173260 63 3 2312 254488 83 10 1369 104389 45 5 1577 136084 30 0 2201 199476 70 2 961 92499 32 0 1900 224330 83 1 1254 135781 31 2 1335 74408 67 4 1597 81240 66 0 207 14688 10 0 1645 181633 70 2 2429 271856 103 1 151 7199 5 0 474 46660 20 0 141 17547 5 0 1639 133368 36 1 872 95227 34 0 1318 152601 48 2 1018 98146 40 0 1383 79619 43 3 1314 59194 31 6 1335 139942 42 0 1403 118612 46 2 910 72880 33 0 616 65475 18 2 1407 99643 55 1 771 71965 35 1 766 77272 59 2 473 49289 19 1 1376 135131 66 0 1232 108446 60 1 1521 89746 36 3 572 44296 25 0 1059 77648 47 0 1544 181528 54 0 1230 134019 53 0 1206 124064 40 1 1205 92630 40 4 1255 121848 39 0 613 52915 14 0 721 81872 45 0 1109 58981 36 7 740 53515 28 2 1126 60812 44 0 728 56375 30 7 689 65490 22 3 592 80949 17 0 995 76302 31 0 1613 104011 55 6 2048 98104 54 2 705 67989 21 0 301 30989 14 0 1803 135458 81 3 799 73504 35 0 861 63123 43 1 1186 61254 46 1 1451 74914 30 0 628 31774 23 1 1161 81437 38 0 1463 87186 54 0 742 50090 20 0 979 65745 53 0 675 56653 45 0 1241 158399 39 0 676 46455 20 0 1049 73624 24 0 620 38395 31 0 1081 91899 35 0 1688 139526 151 0 736 52164 52 0 617 51567 30 2 812 70551 31 0 1051 84856 29 1 1656 102538 57 1 705 86678 40 0 945 85709 44 0 554 34662 25 0 1597 150580 77 0 982 99611 35 0 222 19349 11 0 1212 99373 63 1 1143 86230 44 0 435 30837 19 0 532 31706 13 0 882 89806 42 0 608 62088 38 1 459 40151 29 0 578 27634 20 0 826 76990 27 0 509 37460 20 0 717 54157 19 0 637 49862 37 0 857 84337 26 0 830 64175 42 0 652 59382 49 0 707 119308 30 0 954 76702 49 0 1461 103425 67 1 672 70344 28 0 778 43410 19 0 1141 104838 49 1 680 62215 27 0 1090 69304 30 6 616 53117 22 3 285 19764 12 1 1145 86680 31 2 733 84105 20 0 888 77945 20 0 849 89113 39 0 1182 91005 29 3 528 40248 16 1 642 64187 27 0 947 50857 21 0 819 56613 19 1 757 62792 35 0 894 72535 14 0
Names of X columns:
views time logins shared
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation