Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1587 252101 62 438 85 3 92 34 951 134577 59 330 58 4 58 30 1669 198520 62 609 51 14 62 38 2283 189326 94 1015 131 2 108 34 992 137449 43 294 44 1 55 25 577 65295 27 164 42 3 8 31 3916 439387 103 1912 94 0 134 29 381 33186 19 111 46 0 1 18 1790 178368 51 698 71 5 64 30 1606 186657 38 556 65 0 77 29 1886 261949 96 711 74 0 86 38 1645 191051 95 495 55 7 93 49 1433 138866 57 544 55 7 44 33 2370 296878 66 959 98 3 106 46 1645 192648 72 540 41 9 63 38 4206 333462 162 1486 115 0 160 52 1780 243571 58 635 45 4 104 32 2352 263451 130 940 80 3 86 35 1262 155679 48 452 37 3 93 25 2026 227053 70 617 50 7 119 42 2109 240028 63 695 93 0 107 40 2451 388549 90 1046 93 1 86 35 1253 156540 34 405 56 5 50 25 1431 148421 43 477 57 9 92 46 2631 177732 97 1012 138 0 123 36 2293 191441 105 842 67 0 81 35 2653 249893 122 994 88 5 93 38 1709 236812 76 530 54 0 113 35 1360 142329 45 515 47 0 52 28 2051 259667 53 766 121 0 113 37 1921 231625 65 734 44 3 112 40 1623 176062 67 551 73 4 44 42 1933 286683 79 718 49 1 123 44 849 87485 33 280 36 4 38 33 2641 322865 83 1055 61 2 111 35 2235 247082 51 950 77 0 77 37 2943 344092 104 1035 69 0 92 39 1666 191653 74 552 63 2 74 32 917 114673 31 275 36 1 33 17 2745 284224 161 986 39 2 105 34 2897 284195 72 1336 34 10 108 33 1413 155363 59 565 65 6 66 35 1535 177306 67 571 78 5 69 32 1452 144571 49 404 67 5 62 35 2369 140319 73 985 82 1 50 45 4908 405267 135 1851 780 2 91 38 918 78800 42 330 57 2 20 26 2085 201970 69 611 72 0 101 45 3655 302674 99 1249 112 9 129 44 1923 164733 50 812 61 3 93 40 1616 194221 68 501 39 0 89 33 496 24188 24 218 20 0 8 4 2328 342263 279 785 73 8 79 41 744 65029 17 255 21 5 21 18 1161 101097 64 454 70 3 30 14 2598 246088 46 944 118 1 86 33 2276 273108 75 600 72 5 116 49 3185 282220 160 977 196 5 106 32 2135 273495 119 863 58 0 127 37 1863 214872 74 690 67 12 75 32 3523 335121 123 1176 60 9 138 41 2760 267171 106 1013 138 11 114 25 2187 187938 88 890 69 9 55 40 2161 229512 78 777 45 8 67 35 1302 209798 61 521 54 2 45 33 1540 201345 60 409 55 0 88 28 1617 163833 113 493 46 6 67 31 2403 204250 129 757 84 8 75 40 1961 197813 67 736 71 2 114 32 1402 132955 60 511 56 5 123 25 2292 216092 59 789 55 13 86 42 893 73566 32 385 39 6 22 23 1935 213198 67 644 52 7 67 42 1586 181713 49 664 94 2 77 38 1494 148698 49 505 57 0 105 34 1995 300103 70 878 82 4 119 38 1904 251437 78 769 42 3 88 32 1711 197295 101 499 45 6 78 37 1746 158163 55 546 52 2 112 34 1473 155529 57 551 63 0 66 33 1538 132672 41 565 38 1 58 25 3324 377205 100 1086 108 0 132 40 1356 145905 66 649 45 5 30 26 1931 223701 86 540 53 2 100 40 870 80953 25 437 31 0 49 8 1716 130805 47 732 169 0 26 27 1091 135082 48 308 60 5 67 32 3182 300170 154 1236 271 1 57 33 2240 271806 95 783 84 0 95 50 2677 150949 96 933 63 1 139 37 2038 225805 79 710 54 1 73 33 1782 197389 67 563 65 2 134 34 1560 156583 56 508 80 6 37 28 2540 222599 66 936 84 1 98 32 2118 261601 70 838 115 4 58 32 1521 178489 35 523 60 3 78 32 1460 200657 43 500 62 3 88 31 1865 259084 67 691 57 0 142 35 3312 313075 130 1060 121 11 127 58 3135 346933 100 1232 69 12 139 27 2232 246440 104 735 60 8 108 45 2061 252444 58 757 81 0 128 37 1787 159965 159 574 100 0 62 32 602 43287 14 214 43 4 13 19 1973 172239 68 661 72 4 89 22 1735 181897 119 630 61 0 83 35 2282 227681 43 1015 101 0 116 36 2339 260464 81 893 50 0 157 36 923 106288 54 293 32 0 28 23 1388 109632 76 446 74 0 83 36 1673 268905 58 538 54 4 72 36 2082 266805 78 627 65 0 134 42 398 23623 11 156 9 0 12 1 1605 152474 65 577 45 0 106 32 530 61857 25 192 25 4 23 11 1503 144889 43 437 102 0 83 40 2636 346600 99 1054 59 1 126 34 387 21054 16 146 2 0 4 0 1849 224051 45 751 56 5 71 27 449 31414 19 200 22 0 18 8 2912 261043 105 1050 146 2 98 35 1740 197819 57 590 63 7 66 41 1401 154984 73 430 91 12 44 40 1257 112933 45 467 46 2 29 28 568 38214 34 276 52 0 16 8 1512 158671 33 528 98 2 56 35 2379 302148 70 898 105 0 112 47 1180 177918 55 411 57 0 46 46 3071 350552 70 1362 126 3 129 42 2186 275578 91 743 120 0 139 48 3062 366217 105 1068 104 3 136 49 1127 172464 31 431 44 0 66 35 1045 94381 35 380 48 0 42 32 2418 243875 278 788 143 4 70 36 3839 382487 153 1367 146 4 97 42 1427 114525 40 449 91 14 49 35 3406 335681 119 1461 129 0 113 37 1730 147989 72 651 67 4 55 34 1506 216638 44 494 74 0 100 36 1907 192862 72 667 168 1 80 36 1552 184818 107 510 69 0 29 32 3611 336707 105 1472 99 9 95 33 1925 215836 76 675 61 1 114 35 2035 173260 63 716 37 3 41 21 2503 271773 89 814 51 10 128 40 1603 130908 52 556 121 5 142 49 2272 204009 75 887 48 2 88 33 2086 245514 92 663 52 1 147 39 2 1 0 0 0 9 0 0 207 14688 10 85 0 0 4 0 5 98 1 0 0 0 0 0 8 455 2 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1777 195765 75 607 51 2 56 33 2781 326038 121 934 98 1 121 42 0 0 0 0 0 0 0 0 4 203 4 0 0 0 0 0 151 7199 5 74 0 0 7 0 474 46660 20 259 7 0 12 5 141 17547 5 69 3 0 0 1 976 107465 38 267 80 0 37 38 29 969 2 0 0 0 0 0 1542 173102 58 517 43 2 47 28
Names of X columns:
Pageviews Time Logins Course_compendium_views Compendium_views_PR Compendiums_shared Blogs Reviews
Type of Correlation
pearson
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