Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
8.4 157928 109.8 16283.6 8.4 147768 111.7 16726.5 8.4 137507 98.6 14968.9 8.6 136919 96.9 14861 8.9 136151 95.1 14583.3 8.8 133001 97 15305.8 8.3 125554 112.7 17903.9 7.5 119647 102.9 16379.4 7.2 114158 97.4 15420.3 7.4 116193 111.4 17870.5 8.8 152803 87.4 15912.8 9.3 161761 96.8 13866.5 9.3 160942 114.1 17823.2 8.7 149470 110.3 17872 8.2 139208 103.9 17420.4 8.3 134588 101.6 16704.4 8.5 130322 94.6 15991.2 8.6 126611 95.9 16583.6 8.5 122401 104.7 19123.5 8.2 117352 102.8 17838.7 8.1 112135 98.1 17209.4 7.9 112879 113.9 18586.5 8.6 148729 80.9 16258.1 8.7 157230 95.7 15141.6 8.7 157221 113.2 19202.1 8.5 146681 105.9 17746.5 8.4 136524 108.8 19090.1 8.5 132111 102.3 18040.3 8.7 125326 99 17515.5 8.7 122716 100.7 17751.8 8.6 116615 115.5 21072.4 8.5 113719 100.7 17170 8.3 110737 109.9 19439.5 8 112093 114.6 19795.4 8.2 143565 85.4 17574.9 8.1 149946 100.5 16165.4 8.1 149147 114.8 19464.6 8 134339 116.5 19932.1 7.9 122683 112.9 19961.2 7.9 115614 102 17343.4 8 116566 106 18924.2 8 111272 105.3 18574.1 7.9 104609 118.8 21350.6 8 101802 106.1 18594.6 7.7 94542 109.3 19823.1 7.2 93051 117.2 20844.4 7.5 124129 92.5 19640.2 7.3 130374 104.2 17735.4 7 123946 112.5 19813.6 7 114971 122.4 22160 7 105531 113.3 20664.3 7.2 104919 100 17877.4 7.3 104782 110.7 20906.5 7.1 101281 112.8 21164.1 6.8 94545 109.8 21374.4 6.4 93248 117.3 22952.3 6.1 84031 109.1 21343.5 6.5 87486 115.9 23899.3 7.7 115867 96 22392.9 7.9 120327 99.8 18274.1 7.5 117008 116.8 22786.7 6.9 108811 115.7 22321.5
Names of X columns:
Wrklshgr NW-werkl IndProd UitvBel
Type of Correlation
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='kendall') 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') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Kendall tau rank correlations for all pairs of data series',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'pair',1,TRUE) a<-table.element(a,'tau',1,TRUE) a<-table.element(a,'p-value',1,TRUE) a<-table.row.end(a) n <- length(y[,1]) n cor.test(y[1,],y[2,],method='kendall') for (i in 1:(n-1)) { for (j in (i+1):n) { a<-table.row.start(a) dum <- paste('tau(',dimnames(t(x))[[2]][i]) dum <- paste(dum,',') dum <- paste(dum,dimnames(t(x))[[2]][j]) dum <- paste(dum,')') a<-table.element(a,dum,header=TRUE) r <- cor.test(y[i,],y[j,],method='kendall') a<-table.element(a,r$estimate) a<-table.element(a,r$p.value) a<-table.row.end(a) } } a<-table.end(a) table.save(a,file='mytable.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