Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1627 134451 83 1323 154801 50 192 7215 18 2172 122139 91 3335 221399 129 6271 437140 234 1478 134379 52 1324 140428 53 1488 103255 40 2756 271630 91 1931 121593 71 1966 172071 63 1575 83707 94 2811 192072 97 1263 134398 48 1424 128478 72 1636 134153 52 1076 64149 52 2376 122294 82 677 24889 21 902 52197 52 2308 188915 89 1590 163147 66 1863 98575 48 1799 143546 80 1385 139780 25 1870 163784 146 1161 152479 75 2417 304108 109 1952 184024 40 1514 151621 41 1487 164516 41 2051 120179 94 2797 210714 114 2216 196865 48 1 0 1 1830 181527 57 1563 93107 49 2046 129352 45 1955 211533 57 1926 173255 65 1572 126602 53 896 88447 27 1877 152153 72 1036 95704 42 1096 139793 83 730 76348 30 1917 188980 85 1826 172100 79 2444 146552 54 658 48188 28 1425 109185 60 2185 253285 67 1899 215609 75 1630 174876 54 1496 115124 49 1681 179712 60 816 70369 20 902 109215 58 2602 166060 84 1557 130414 51 1780 102057 71 1265 115310 56 1008 91671 31 1069 135228 31 1229 94982 37 2155 166919 67 2500 118169 64 1003 102361 36 340 31970 15 2586 200413 107 1118 103381 57 1251 94940 61 1516 101560 65 2473 144176 60 1288 71921 37 1911 126905 54 2250 129711 86 816 60138 23 1234 84971 71 907 80420 64 1827 233569 57 841 56252 25 1309 97181 32 763 50800 40 1439 125941 45 2500 211032 210 972 71960 90 1152 90379 53 1261 125650 47 1508 115572 36 2005 136266 67 1191 146715 55 1265 124626 57 761 49176 33 2156 212926 102 1689 173884 55 223 19349 12 2056 179954 94 1795 140218 66 566 45448 26 802 58280 20 1131 115944 44 981 94341 52 591 59090 37 596 27676 22 1245 119242 40 853 86025 30 0 0 0 1030 85610 31 991 84193 58 1178 117769 39 1016 74718 55 849 71894 57 78 3616 5 0 0 0 924 154806 38 1480 136061 73 1870 141822 89 861 106515 37 778 43410 19 1533 146920 64 889 88874 38 1705 111924 49 700 60373 39 285 19764 12 1490 121665 46 981 108685 26 1368 124493 37 256 11796 9 98 10674 9 1317 131263 52 41 6836 3 1768 153278 55 42 5118 3 528 40248 16 0 0 0 938 100728 42 1235 84125 35 81 7131 4 257 8812 13 891 63952 22 1114 120111 47 1079 94127 18
Names of X columns:
PageviewsRFC in secondsLogins
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