Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
140824 32033 186099 165 165 110459 20654 113854 135 132 105079 16346 99776 121 121 112098 35926 106194 148 145 43929 10621 100792 73 71 76173 10024 47552 49 47 187326 43068 250931 185 177 22807 1271 6853 5 5 144408 34416 115466 125 124 66485 20318 110896 93 92 79089 24409 169351 154 149 81625 20648 94853 98 93 68788 12347 72591 70 70 103297 21857 101345 148 148 69446 11034 113713 100 100 114948 33433 165354 150 142 167949 35902 164263 197 194 125081 22355 135213 114 113 125818 31219 111669 169 162 136588 21983 134163 200 186 112431 40085 140303 148 147 103037 18507 150773 140 137 82317 16278 111848 74 71 118906 24662 102509 128 123 83515 31452 96785 140 134 104581 32580 116136 116 115 103129 22883 158376 147 138 83243 27652 153990 132 125 37110 9845 64057 70 66 113344 20190 230054 144 137 139165 46201 184531 155 152 86652 10971 114198 165 159 112302 34811 198299 161 159 69652 3029 33750 31 31 119442 38941 189723 199 185 69867 4958 100826 78 78 101629 32344 188355 121 117 70168 19433 104470 112 109 31081 12558 58391 41 41 103925 36524 164808 158 149 92622 26041 134097 123 123 79011 16637 80238 104 103 93487 28395 133252 94 87 64520 16747 54518 73 71 93473 9105 121850 52 51 114360 11941 79367 71 70 33032 7935 56968 21 21 96125 19499 106314 155 155 151911 22938 191889 174 172 89256 25314 104864 136 133 95676 28527 160792 128 125 5950 2694 15049 7 7 149695 20867 191179 165 158 32551 3597 25109 21 21 31701 5296 45824 35 35 100087 32982 129711 137 133 169707 38975 210012 174 169 150491 42721 194679 257 256 120192 41455 197680 207 190 95893 23923 81180 103 100 151715 26719 197765 171 171 176225 53405 214738 279 267 59900 12526 96252 83 80 104767 26584 124527 130 126 114799 37062 153242 131 132 72128 25696 145707 126 121 143592 24634 113963 158 156 89626 27269 134904 138 133 131072 25270 114268 200 199 126817 24634 94333 104 98 81351 17828 102204 111 109 22618 3007 23824 26 25 88977 20065 111563 115 113 92059 24648 91313 127 126 81897 21588 89770 140 137 108146 25217 100125 121 121 126372 30927 165278 183 178 249771 18487 181712 68 63 71154 18050 80906 112 109 71571 17696 75881 103 101 55918 17326 83963 63 61 160141 39361 175721 166 157 38692 9648 68580 38 38 102812 26759 136323 163 159 56622 7905 55792 59 58 15986 4527 25157 27 27 123534 41517 100922 108 108 108535 21261 118845 88 83 93879 36099 170492 92 88 144551 39039 81716 170 164 56750 13841 115750 98 96 127654 23841 105590 205 192 65594 8589 92795 96 94 59938 15049 82390 107 107 146975 39038 135599 150 144 165904 36774 127667 138 136 169265 40076 163073 177 171 183500 43840 211381 213 210 165986 43146 189944 208 193 184923 50099 226168 307 297 140358 40312 117495 125 125 149959 32616 195894 208 204 57224 11338 80684 73 70 43750 7409 19630 49 49 48029 18213 88634 82 82 104978 45873 139292 206 205 100046 39844 128602 112 111 101047 28317 135848 139 135 197426 24797 178377 60 59 160902 7471 106330 70 70 147172 27259 178303 112 108 109432 23201 116938 142 141 1168 238 5841 11 11 83248 28830 106020 130 130 25162 3913 24610 31 28 45724 9935 74151 132 101 110529 27738 232241 219 216 855 338 6622 4 4 101382 13326 127097 102 97 14116 3988 13155 39 39 89506 24347 160501 125 119 135356 27111 91502 121 118 116066 3938 24469 42 41 144244 17416 88229 111 107 8773 1888 13983 16 16 102153 18700 80716 70 69 117440 36809 157384 162 160 104128 24959 122975 173 158 134238 37343 191469 171 161 134047 21849 231257 172 165 279488 49809 258287 254 246 79756 21654 122531 90 89 66089 8728 61394 50 49 102070 20920 86480 113 107 146760 27195 195791 187 182 154771 1037 18284 16 16 165933 42570 147581 175 173 64593 17672 72558 90 90 92280 34245 147341 140 140 67150 16786 114651 145 142 128692 20954 100187 141 126 124089 16378 130332 125 123 125386 31852 134218 241 239 37238 2805 10901 16 15 140015 38086 145758 175 170 150047 21166 75767 132 123 154451 34672 134969 154 151 156349 36171 169216 198 194 0 0 0 0 0 6023 2065 7953 5 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 84601 19354 105406 125 122 68946 22124 174586 174 173 0 0 0 0 0 0 0 0 0 0 1644 556 4245 6 6 6179 2089 21509 13 13 3926 2658 7670 3 3 52789 1813 15673 35 35 0 0 0 0 0 100350 17372 75882 80 72
Names of X columns:
Characters Revisions Seconds Hyperlinks Blogs
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation