Wessa.net

Send output to:

Data X:
278691 71 494 96 42 159 140824 197623 70 477 75 38 149 110459 233139 78 701 70 46 178 105079 221690 106 1150 134 42 164 112098 177540 53 395 69 30 100 43929 70849 28 179 8 35 129 76173 566234 130 2446 169 40 156 187326 33186 19 111 1 18 67 22807 226511 62 756 87 38 148 144408 245577 46 638 92 37 132 66485 317443 114 831 96 46 169 79089 248379 124 706 119 60 230 81625 200620 79 749 57 37 122 68788 367785 82 1184 139 55 191 103297 266325 87 717 87 44 162 69446 394271 183 1744 176 63 237 114948 335567 76 845 114 40 156 167949 407650 168 1360 119 43 157 125081 182016 57 514 103 32 123 125818 267365 88 692 135 52 203 136588 279428 72 847 123 49 187 112431 484574 105 1369 89 41 152 103037 196721 43 494 74 25 89 82317 197899 56 628 103 57 227 118906 256290 131 1364 158 45 165 83515 255126 132 1067 113 42 162 104581 281816 131 1112 100 45 174 103129 278027 89 636 117 43 154 83243 173134 55 610 59 36 129 37110 383613 77 1205 142 45 174 113344 302413 84 1021 136 50 195 139165 251255 81 724 50 50 186 86652 355456 96 868 141 51 197 112302 109546 45 374 46 42 157 69652 427915 103 1290 141 44 168 119442 273950 56 1186 83 42 159 69867 427825 124 1344 112 44 161 101629 247287 88 673 79 40 153 70168 115658 33 284 33 17 55 31081 386534 205 1299 149 43 166 103925 340132 83 1546 126 41 151 92622 194127 71 715 80 41 148 79011 213258 79 676 84 40 129 93487 182398 65 487 68 49 181 64520 157164 84 1051 50 52 93 93473 457592 153 2084 101 42 150 114360 78800 42 330 20 26 82 33032 213831 81 683 101 59 229 96125 368086 122 1410 150 50 193 151911 203104 62 1004 115 50 176 89256 244371 77 688 98 47 179 95676 24188 24 218 8 4 12 5950 399093 331 862 88 51 181 149695 65029 17 255 21 18 67 32551 101097 64 454 30 14 52 31701 297973 61 1185 97 41 148 100087 352671 88 728 149 61 230 169707 367083 203 1207 132 40 148 150491 371178 148 1089 161 44 160 120192 269973 88 884 89 40 155 95893 389761 149 1332 160 51 198 151715 315924 121 1190 139 29 104 176225 285807 121 1233 104 43 169 59900 282351 90 987 99 42 163 104767 250558 73 619 56 41 151 114799 265696 71 528 163 30 116 72128 215915 138 651 93 39 153 143592 247349 154 862 85 51 195 89626 260919 86 913 150 40 149 131072 182308 71 635 143 29 106 126817 256761 72 898 107 47 179 81351 73566 32 385 22 23 88 22618 263796 89 767 85 48 185 88977 207899 56 818 85 38 133 92059 228779 67 779 131 42 164 81897 363571 89 997 140 46 169 108146 382785 98 1233 152 40 153 126372 220401 109 586 81 45 166 249771 225097 67 751 136 42 164 71154 215445 68 734 102 41 146 71571 188786 49 711 69 37 141 55918 481148 130 1268 161 47 183 160141 145943 70 653 30 26 99 38692 292287 108 700 120 48 134 102812 80953 25 437 49 8 28 56622 164260 57 863 62 27 101 15986 179344 61 459 76 38 139 123534 413462 220 1580 85 41 159 108535 358697 125 1024 146 61 222 93879 180679 106 1051 165 45 171 144551 298696 102 843 89 41 154 56750 288706 82 725 167 42 154 127654 197956 66 621 48 35 129 65594 282361 77 1128 149 36 140 59938 329202 88 969 75 40 156 146975 221875 44 669 100 40 156 165904 277071 63 674 114 38 138 169265 305984 87 820 165 43 153 183500 416032 161 1366 155 65 251 165986 412530 116 1493 165 33 126 184923 297080 141 893 121 51 198 140358 318235 68 900 156 45 168 149959 200486 194 704 79 36 138 57224 43287 14 214 13 19 71 43750 189520 84 733 89 25 90 48029 255152 153 855 110 44 167 104978 288617 56 1251 129 45 172 100046 314167 93 1069 169 44 162 101047 170268 86 426 28 35 129 197426 164399 99 954 118 46 179 160902 350667 76 674 82 44 163 147172 303273 90 696 148 45 164 109432 23623 11 156 12 1 NA 1168 195849 74 779 146 40 155 83248 61857 25 192 23 11 32 25162 184709 52 546 83 51 189 45724 428191 121 1213 163 38 140 110529 21054 16 146 4 NA NA 855 252805 52 866 81 30 111 101382 31961 22 200 18 8 25 14116 351541 122 1336 118 43 159 89506 246359 71 726 76 48 183 135356 187003 95 522 55 49 184 116066 172442 56 714 57 32 119 144244 38214 34 276 16 8 27 8773 241539 48 789 88 43 163 102153 358276 83 1031 137 52 198 117440 209821 64 502 50 53 205 104128 441447 86 1678 147 49 191 134238 348017 99 884 163 48 187 134047 439634 131 1200 142 56 210 279488 208962 40 547 77 45 166 79756 105332 44 422 42 40 145 66089 311111 355 995 94 48 187 102070 460033 192 1554 126 50 186 146760 159057 58 563 63 43 164 154771 411980 136 1811 127 46 172 165933 173486 80 749 59 40 147 64593 284582 51 648 117 45 167 92280 283913 100 905 110 46 158 67150 234203 120 659 44 37 144 128692 386740 123 1611 95 45 169 124089 246963 92 811 128 39 145 125386 173260 63 716 41 21 79 37238 346730 107 1034 146 50 194 140015 176654 58 732 147 55 212 150047 259048 90 1033 119 40 148 154451 312540 111 850 185 48 171 156349 1 NA NA NA NA NA NA 14688 10 85 4 NA NA 6023 98 1 NA NA NA NA NA 455 2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 283222 91 806 85 46 141 84601 409280 163 1128 157 52 204 68946 NA NA NA NA NA NA NA 203 4 NA NA NA NA NA 7199 5 74 7 NA NA 1644 46660 20 259 12 5 15 6179 17547 5 69 NA 1 4 3926 121550 46 309 37 48 172 52789 969 2 NA NA NA NA NA 242228 73 687 62 34 125 100350
Names of X columns:
Time Logins BezieneCompendia Blogs GedanePR FeedbackPr Karakters
Type of Correlation


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')

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
R Engine error message	Error in list(278691, 71, 494, 96, 42, 159, 140824, 197623, 70, 477, 75, : argument 1038 is empty Calls: array Execution halted