Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
140824 165 38 186099 110459 135 34 113854 105079 121 42 99776 112098 148 38 106194 43929 73 27 100792 76173 49 35 47552 187326 185 33 250931 22807 5 18 6853 144408 125 34 115466 66485 93 33 110896 79089 154 46 169351 81625 98 55 94853 68788 70 37 72591 103297 148 55 101345 69446 100 44 113713 114948 150 59 165354 167949 197 36 164263 125081 114 39 135213 125818 169 29 111669 136588 200 51 134163 112431 148 49 140303 103037 140 39 150773 82317 74 25 111848 118906 128 52 102509 83515 140 45 96785 104581 116 38 116136 103129 147 41 158376 83243 132 43 153990 37110 70 32 64057 113344 144 41 230054 139165 155 47 184531 86652 165 50 114198 112302 161 48 198299 69652 31 37 33750 119442 199 43 189723 69867 78 42 100826 101629 121 44 188355 70168 112 36 104470 31081 41 17 58391 103925 158 42 164808 92622 123 39 134097 79011 104 41 80238 93487 94 36 133252 64520 73 47 54518 93473 52 45 121850 114360 71 41 79367 33032 21 26 56968 96125 155 52 106314 151911 174 47 191889 89256 136 45 104864 95671 128 40 160791 5950 7 4 15049 149695 165 44 191179 32551 21 18 25109 31701 35 14 45824 100087 137 37 129711 169707 174 61 210012 150491 257 39 194679 120192 207 42 197680 95893 103 36 81180 151715 171 49 197765 176225 279 28 214738 59900 83 43 96252 104767 130 42 124527 114799 131 37 153242 72128 126 30 145707 143592 158 35 113963 89626 138 44 134904 131072 200 36 114268 126817 104 28 94333 81351 111 45 102204 22618 26 23 23824 88977 115 45 111563 92059 127 38 91313 81897 140 38 89770 108146 121 46 100125 126372 183 36 165278 249771 68 41 181712 71154 112 38 80906 71571 103 37 75881 55918 63 28 83963 160141 166 45 175721 38692 38 26 68580 102812 163 44 136323 56622 59 8 55792 15986 27 27 25157 123534 108 38 100922 108535 88 37 118845 93879 92 57 170492 144551 170 45 81716 56750 98 37 115750 127654 205 40 105590 65594 96 31 92795 59938 107 36 82390 146975 150 40 135599 143372 123 36 111542 168553 176 35 162519 183500 213 39 211381 165986 208 65 189944 184923 307 30 226168 140358 125 51 117495 149959 208 41 195894 57224 73 36 80684 43750 49 19 19630 48029 82 23 88634 104978 206 44 139292 100046 112 40 128602 101047 139 40 135848 197426 60 30 178377 160902 70 41 106330 147172 112 40 178303 109432 142 45 116938 1168 11 1 5841 83248 130 40 106020 25162 31 11 24610 45724 132 45 74151 110529 219 38 232241 855 4 0 6622 101382 102 30 127097 14116 39 8 13155 89506 125 39 160501 135356 121 48 91502 116066 42 48 24469 144244 111 29 88229 8773 16 8 13983 102153 70 43 80716 117440 162 52 157384 104128 173 53 122975 134238 171 48 191469 134047 172 48 231257 279488 254 50 258287 79756 90 40 122531 66089 50 36 61394 102070 113 40 86480 146760 187 46 195791 154771 16 42 18284 165933 175 46 147581 64593 90 39 72558 92280 140 41 147341 67150 145 46 114651 128692 141 32 100187 124089 125 39 130332 125386 241 39 134218 37238 16 21 10901 140015 175 45 145758 150047 132 50 75767 154451 154 36 134969 156349 198 44 169216 0 0 0 0 6023 5 0 7953 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 84601 125 37 105406 68946 174 52 174586 0 0 0 0 0 0 0 0 1644 6 0 4245 6179 13 5 21509 3926 3 1 7670 52789 35 43 15673 0 0 0 0 100350 80 34 75882
Names of X columns:
Characters Hyperlinks Reviewed_Compendiums Seconds
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