Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1801 159261 91 586 111 0 74 1717 189672 59 520 76 1 80 192 7215 18 72 1 0 0 2295 129098 95 645 155 0 84 3450 230632 136 1163 125 0 124 6861 515038 263 1945 278 1 140 1795 180745 56 585 89 1 88 1681 185559 59 470 59 0 115 1897 154581 44 612 87 0 109 2974 298001 96 992 129 1 104 1946 121844 75 634 158 2 63 2148 184039 69 677 120 0 118 1832 100324 98 665 87 0 71 3183 220269 119 1079 264 4 112 1476 168265 58 413 51 4 63 1567 154647 88 469 85 3 86 1756 142018 57 431 96 0 132 1247 79030 61 361 72 5 54 2779 167047 87 877 147 0 134 726 27997 24 221 49 0 57 1048 73019 59 366 40 0 59 2805 241082 100 846 99 0 113 1760 195820 72 642 127 0 96 2266 142001 54 689 164 1 96 1848 145433 86 576 41 1 78 1665 183744 32 610 160 0 80 2084 202357 163 673 92 0 93 1440 199532 93 361 59 0 109 2741 354924 118 907 89 0 115 2112 192399 44 882 90 0 79 1684 182286 44 490 76 0 103 1616 181590 45 548 116 2 71 2227 133801 105 723 92 4 66 3088 233686 123 918 344 0 100 2389 219428 53 787 84 1 96 1 0 1 0 0 0 0 2099 223044 63 983 61 0 109 1669 100129 51 539 138 3 51 2137 145864 49 515 270 9 119 2153 249965 64 795 64 0 136 2390 242379 71 753 96 2 84 1701 145794 59 635 62 0 136 983 96404 32 361 35 2 84 2161 195891 78 804 59 1 92 1276 117156 50 394 56 2 103 1190 157787 95 320 40 2 82 745 81293 32 212 49 1 106 2330 237435 101 772 121 0 96 2289 233155 89 740 113 1 124 2639 160344 59 938 172 8 97 658 48188 28 205 37 0 82 1917 161922 69 492 51 0 79 2557 307432 74 818 89 0 97 2026 235223 79 680 73 0 107 1911 195583 59 691 49 1 126 1716 146061 56 534 74 8 40 1852 208834 67 487 58 0 96 981 93764 24 301 72 1 100 1177 151985 66 421 32 0 91 2833 193222 96 947 59 10 136 1688 148922 60 492 70 6 124 2097 132856 80 790 85 0 79 1331 129561 61 362 87 11 74 1244 112718 37 430 48 3 96 1256 160930 35 416 56 0 97 1294 99184 41 409 41 0 122 2303 192535 70 498 86 8 144 2897 138708 65 887 152 2 90 1103 114408 38 267 48 0 93 340 31970 15 101 40 0 78 2791 225558 112 1000 135 3 72 1338 139220 72 416 83 1 45 1441 113612 68 480 62 2 120 1623 108641 71 454 91 1 59 2650 162203 67 671 91 0 133 1499 100098 44 413 82 2 117 2302 174768 60 677 112 1 123 2540 158459 97 820 69 0 110 1000 80934 30 316 78 0 75 1234 84971 71 395 105 0 114 927 80545 68 217 49 0 94 2176 287191 64 818 60 0 116 957 62974 28 292 49 1 86 1551 134091 40 513 132 0 90 1014 75555 46 345 49 0 87 1771 162154 54 557 71 0 99 2613 226638 227 645 100 0 132 1205 115367 112 284 74 0 96 1337 108749 62 424 49 7 91 1524 155537 52 614 72 0 77 1829 153133 41 672 59 5 104 2229 165618 78 649 90 1 97 1233 151517 57 415 68 0 94 1365 133686 58 505 81 0 60 950 61342 40 387 33 0 46 2319 245196 117 730 166 0 135 1857 195576 70 563 94 0 90 223 19349 12 67 15 0 2 2390 225371 105 812 104 3 96 1985 153213 78 811 61 0 109 700 59117 29 281 11 0 15 1062 91762 24 338 45 0 68 1311 136769 54 413 84 0 88 1157 114798 61 298 66 1 84 823 85338 40 223 27 1 46 596 27676 22 194 59 0 59 1545 153535 48 371 127 0 116 1130 122417 37 268 48 0 29 0 0 0 0 0 0 0 1082 91529 32 332 58 0 91 1135 107205 67 371 57 0 76 1367 144664 45 465 59 0 83 1506 146445 63 447 76 1 84 870 76656 60 295 71 0 65 78 3616 5 14 5 0 0 0 0 0 0 0 0 0 1130 183088 44 388 70 0 84 1582 144677 84 564 76 0 114 2034 159104 98 562 122 2 124 919 113273 38 288 56 0 92 778 43410 19 292 63 0 3 1752 175774 73 530 92 1 109 957 95401 42 256 54 0 74 2098 134837 55 602 64 8 121 731 60493 40 174 29 3 48 285 19764 12 75 19 1 8 1834 164062 56 565 64 3 80 1148 132696 33 377 79 0 107 1646 155367 54 544 97 0 116 256 11796 9 79 22 0 8 98 10674 9 33 7 0 0 1404 142261 57 479 37 0 56 41 6836 3 11 5 0 4 1824 162563 63 626 48 6 70 42 5118 3 6 1 0 0 528 40248 16 183 34 1 14 0 0 0 0 0 0 0 1073 122641 47 334 49 0 91 1305 88837 38 269 44 0 89 81 7131 4 27 0 1 0 261 9056 14 99 18 0 12 934 76611 24 260 48 1 60 1180 132697 51 290 54 0 80 1147 100681 19 414 50 1 88
Names of X columns:
page_views time_spent_seconds number_logins number_course_compenium_views number_compendium_views number_compediums_shared number_feedbackmessage_PR
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