Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
127476 20 17 59 22622 130358 38 17 50 73570 7215 0 0 0 1929 112861 49 22 51 36294 210171 74 30 112 62378 393802 104 31 118 167760 117604 37 19 59 52443 126029 53 25 90 57283 99729 42 30 50 36614 256310 62 26 79 93268 113066 50 20 49 35439 156212 65 25 74 72405 69952 28 15 32 24044 152673 48 22 82 55909 125841 42 12 43 44689 125769 47 19 65 49319 123467 71 28 111 62075 56232 0 12 36 2341 108244 50 28 89 40551 22762 12 13 28 11621 48554 16 14 35 18741 178697 76 27 78 84202 139115 29 25 67 15334 93773 38 30 61 28024 133398 50 21 58 53306 113933 33 17 49 37918 144781 45 22 77 54819 140711 59 28 71 89058 283337 49 25 82 103354 158146 40 16 53 70239 123344 40 23 71 33045 157640 51 20 58 63852 91279 41 11 25 30905 189374 73 20 59 24242 167915 43 21 77 78907 0 0 0 0 0 175403 46 27 75 36005 92342 44 14 39 31972 100023 31 29 83 35853 178277 71 31 123 115301 145062 61 19 67 47689 110980 28 30 105 34223 86039 21 23 76 43431 119514 42 20 54 52220 95535 44 22 82 33863 109894 34 19 57 46879 61554 15 32 57 23228 156520 46 18 72 42827 159121 43 26 94 65765 129362 47 25 72 38167 48188 12 22 39 14812 91198 42 19 60 32615 229864 56 24 84 82188 180317 41 26 69 51763 150640 48 27 102 59325 104416 30 10 28 48976 159645 44 26 65 43384 63205 25 23 67 26692 100056 42 21 80 53279 137214 28 34 79 20652 99630 33 29 107 38338 84557 32 18 57 36735 91199 28 16 44 42764 83419 31 23 59 44331 101723 13 22 80 41354 94982 38 29 89 47879 129700 39 31 115 103793 110708 68 21 59 52235 81518 32 21 66 49825 31970 5 21 42 4105 192268 53 15 35 58687 87611 33 9 3 40745 77890 48 21 68 33187 83261 36 18 38 14063 116290 52 31 107 37407 55254 0 24 69 7190 116173 52 24 80 49562 111488 45 22 69 76324 60138 16 21 46 21928 73422 33 26 52 27860 67751 48 22 58 28078 213351 33 26 85 49577 51185 24 20 13 28145 97181 37 25 61 36241 42311 16 19 49 10824 115801 32 22 47 46892 183637 55 25 93 61264 68161 36 22 65 22933 76441 29 21 64 20787 103613 26 20 64 43978 98707 37 23 57 51305 126527 58 22 61 55593 136781 35 21 71 51648 105863 24 12 43 30552 38775 18 9 18 23470 179984 37 32 103 77530 164808 86 24 76 57299 19349 13 1 0 9604 143902 20 24 83 34684 108660 32 22 70 41094 43803 8 4 4 3439 47062 38 15 41 25171 110845 45 21 57 23437 92517 24 23 52 34086 58660 23 12 24 24649 27676 2 16 17 2342 98550 52 24 89 45571 43284 5 9 20 3255 0 0 0 0 0 66016 43 22 45 30002 57359 18 17 63 19360 96933 41 18 48 43320 70369 45 21 70 35513 65494 29 17 32 23536 3616 0 0 0 0 0 0 0 0 0 143931 32 20 72 54438 109894 58 26 56 56812 122973 17 26 64 33838 84336 24 20 77 32366 43410 7 1 3 13 136250 62 24 73 55082 79015 30 14 37 31334 92937 49 26 54 16612 57586 3 12 32 5084 19764 10 2 4 9927 105757 42 16 55 47413 96410 18 22 81 27389 113402 40 28 90 30425 11796 1 2 1 0 7627 0 0 0 0 121085 29 17 38 33510 6836 0 1 0 0 139563 46 17 36 40389 5118 5 0 0 0 40248 8 4 7 6012 0 0 0 0 0 95079 21 25 75 22205 80750 21 26 52 17231 7131 0 0 0 0 4194 0 0 0 0 60378 15 15 45 11017 96971 40 18 60 46741 83484 17 19 48 39869
Names of X columns:
TimeRFC Blogs ReviewedComp Longfeedback Comptime
Type of Correlation
kendall
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