Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2242 80 30 108 67654 127766 20 2352 81 31 94 85323 130767 16 1179 39 28 80 49810 46341 19 1831 91 39 138 82875 93176 17 1496 67 27 104 106671 71180 17 1904 118 33 106 129838 168237 17 2833 129 41 144 105547 170875 14 1418 79 30 94 112285 146283 13 1439 69 25 60 57635 85584 13 1764 78 38 123 66198 143983 16 1706 102 30 115 133824 136368 15 2152 77 31 71 101481 112642 13 1929 101 36 117 99052 121527 16 2515 123 34 120 69112 85646 17 2147 73 31 114 82753 98579 15 1638 105 33 120 72654 131741 16 1222 47 25 81 30727 53907 12 2452 107 33 124 101494 171975 17 2527 96 32 120 83122 136815 16 1324 56 35 95 60578 69107 15 1383 59 28 90 79892 108016 14 4308 76 34 110 100708 79336 16 2144 101 44 164 143558 160604 14 1973 123 35 124 105195 174141 17 1226 41 29 99 95260 129847 15 1833 114 28 91 92945 85298 14 1403 69 28 72 83737 82981 14 1425 105 34 120 69094 73815 16 1840 88 28 105 95536 132190 18 1420 62 33 98 61370 67808 15 2970 118 38 111 106117 131722 16 1644 100 35 71 84651 106175 16 2547 135 37 129 126846 72413 12 1964 58 29 104 111813 120336 16 1381 68 28 107 120293 93913 16 1659 131 31 90 161647 181248 15 1559 81 31 63 87771 115338 16 1281 83 30 93 140867 68370 16 1944 133 42 110 101338 103950 19 1605 106 32 83 65567 84396 14 1386 71 36 98 40735 55515 13 2395 116 31 82 91413 209056 16 2699 98 33 115 76643 142775 15 2158 100 43 152 93815 132432 16 2922 136 45 160 213688 214921 14 2186 63 31 119 91721 78876 13 3261 113 37 133 135777 122037 17 1587 47 30 83 51513 53782 14 1900 131 39 132 130115 139296 15 1645 47 30 73 64466 89455 16 2429 109 37 86 54990 147866 16 3201 121 25 91 119182 195663 14 1583 43 26 93 116174 95757 14 1373 44 30 90 57793 59238 14 1579 44 42 122 74007 82036 15 2352 76 29 96 80670 102996 15 3004 57 29 107 89691 105805 14 1468 33 25 73 51715 71299 14 2888 110 52 197 115929 146123 11 1204 32 38 120 92696 20112 11 1111 46 43 139 86687 112494 12 2035 41 21 78 37238 10901 13 2312 120 39 117 103772 120691 15 4041 158 47 168 97668 151511 13 1677 94 35 133 117478 146761 9 2662 84 36 126 79215 159676 12 865 33 14 37 31081 58391 11 2253 79 39 140 115762 155135 10 893 22 23 67 22618 23824 10 1654 24 24 69 15986 25157 10 1054 67 29 107 95364 76669 8 1626 124 33 118 102860 96971 10 2445 98 32 119 55801 77494 12 1982 93 41 139 109825 102255 8 874 28 23 69 192565 153197 8 391 12 1 0 1168 5841 12 1138 25 24 66 94785 61023 9 1424 92 35 116 74163 127748 9 872 37 32 48 34777 14336 14 1530 60 38 93 83123 86146 8 1641 111 31 98 102372 112283 7
Names of X columns:
Pageviews Blogged_comp Reviewed_comp Fb_messages Comp_Size Comp_Time PLC
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