Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2 210907 30 94 112285 146283 144 145 4 179321 30 103 101193 96933 135 132 0 149061 26 93 116174 95757 84 84 0 237213 38 123 66198 143983 130 127 -4 173326 44 148 71701 75851 82 78 4 133131 30 90 57793 59238 60 60 4 258873 40 124 80444 93163 131 131 0 324799 47 168 97668 151511 140 133 -1 230964 30 115 133824 136368 151 150 0 236785 31 71 101481 112642 91 91 1 344297 30 108 67654 127766 119 118 0 174724 34 120 69112 85646 123 119 3 174415 31 114 82753 98579 90 89 -1 223632 33 120 72654 131741 113 108 4 294424 33 124 101494 171975 175 162 3 325107 36 126 79215 159676 96 92 1 106408 14 37 31081 58391 41 41 0 96560 17 38 22996 31580 47 47 -2 265769 32 120 83122 136815 126 120 -3 269651 30 93 70106 120642 105 105 -4 149112 35 95 60578 69107 80 79 2 152871 28 90 79892 108016 73 70 2 362301 34 110 100708 79336 68 67 -4 183167 39 138 82875 93176 127 127 3 277965 39 133 139077 161632 154 152 2 218946 29 96 80670 102996 112 109 2 244052 44 164 143558 160604 137 133 0 341570 21 78 117105 158051 135 123 5 233328 28 102 120733 162647 230 230 -2 206161 28 99 73107 60622 71 68 0 311473 38 129 132068 179566 147 147 -2 207176 32 114 87011 96144 105 101 -3 196553 29 99 95260 129847 107 108 2 143246 27 104 106671 71180 116 114 2 182192 40 138 70054 86767 89 88 2 194979 40 151 74011 93487 84 83 0 167488 28 72 83737 82981 113 113 4 143756 34 120 69094 73815 120 118 4 275541 33 115 93133 94552 110 110 2 152299 33 98 61370 67808 78 76 2 193339 35 71 84651 106175 145 141 -4 130585 29 107 95364 76669 91 91 3 112611 20 73 26706 57283 48 48 3 148446 37 129 126846 72413 150 144 2 182079 33 118 102860 96971 181 168 -1 243060 29 104 111813 120336 121 117 -3 162765 28 107 120293 93913 99 100 0 85574 21 36 24266 32036 40 37 1 225060 41 139 109825 102255 87 87 -3 133328 20 56 40909 63506 66 64 3 100750 30 93 140867 68370 58 58 0 101523 22 87 61056 50517 77 76 0 243511 42 110 101338 103950 130 129 0 152474 32 83 65567 84396 101 101 3 132487 36 98 40735 55515 120 89 -3 317394 31 82 91413 209056 195 193 0 244749 33 115 76643 142775 106 101 -4 184510 40 140 110681 68847 83 82 2 128423 38 120 92696 20112 37 36 -1 97839 24 66 94785 61023 77 75 3 172494 43 139 86687 112494 144 131 2 229242 31 119 91721 78876 95 90 5 351619 40 141 115168 170745 169 166 2 324598 37 133 135777 122037 134 133 -2 195838 31 98 102372 112283 197 196 0 254488 39 117 103772 120691 140 136 3 199476 32 105 135400 122422 125 123 -2 92499 18 55 21399 25899 21 21 0 224330 39 132 130115 139296 167 163 6 181633 30 73 64466 89455 96 96 -3 271856 37 86 54990 147866 151 151 3 95227 32 48 34777 14336 23 23 0 98146 17 48 27114 30059 21 14 -2 118612 12 43 30080 41907 90 87 1 65475 13 46 69008 35885 60 56 0 108446 17 65 46300 55764 26 25 2 121848 17 52 30594 35619 41 41 2 76302 20 68 30976 40557 35 33 -3 98104 17 47 25568 44197 68 68 -2 30989 17 41 4154 4103 6 6 1 31774 17 47 4143 4694 0 0 -4 150580 22 71 45588 62991 41 39 0 54157 15 30 18625 24261 38 37 1 59382 12 24 26263 21425 47 47 0 84105 17 63 20055 27184 34 34
Names of X columns:
sum_testscore time_in_rfc compendiums_reviewed feedback_messages_p120 totsize totseconds tothyperlinks) totblogs
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