Wessa.net

Send output to:

Data X:
4 7.2 102.9 271244 4.1 7.4 97.4 269907 4 8.8 111.4 271296 3.8 9.3 87.4 270157 4.7 9.3 96.8 271322 4.3 8.7 114.1 267179 3.9 8.2 110.3 264101 4 8.3 103.9 265518 4.3 8.5 101.6 269419 4.8 8.6 94.6 268714 4.4 8.5 95.9 272482 4.3 8.2 104.7 268351 4.7 8.1 102.8 268175 4.7 7.9 98.1 270674 4.9 8.6 113.9 272764 5 8.7 80.9 272599 4.2 8.7 95.7 270333 4.3 8.5 113.2 270846 4.8 8.4 105.9 270491 4.8 8.5 108.8 269160 4.8 8.7 102.3 274027 4.2 8.7 99 273784 4.6 8.6 100.7 276663 4.8 8.5 115.5 274525 4.5 8.3 100.7 271344 4.4 8 109.9 271115 4.3 8.2 114.6 270798 3.9 8.1 85.4 273911 3.7 8.1 100.5 273985 4 8 114.8 271917 4.1 7.9 116.5 273338 3.7 7.9 112.9 270601 3.8 8 102 273547 3.8 8 106 275363 3.8 7.9 105.3 281229 3.3 8 118.8 277793 3.3 7.7 106.1 279913 3.3 7.2 109.3 282500 3.2 7.5 117.2 280041 3.4 7.3 92.5 282166 4.2 7 104.2 290304 4.9 7 112.5 283519 5.1 7 122.4 287816 5.5 7.2 113.3 285226 5.6 7.3 100 287595 6.4 7.1 110.7 289741 6.1 6.8 112.8 289148 7.1 6.4 109.8 288301 7.8 6.1 117.3 290155 7.9 6.5 109.1 289648 7.4 7.7 115.9 288225 7.5 7.9 96 289351 6.8 7.5 99.8 294735 5.2 6.9 116.8 305333 4.7 6.6 115.7 309030 4.1 6.9 99.4 310215 3.9 7.7 94.3 321935 2.6 8 91 325734 2.7 8 93.2 320846 1.8 7.7 103.1 323023 1 7.3 94.1 319753 0.3 7.4 91.8 321753 1.3 8.1 102.7 320757 1 8.3 82.6 324479 1.1 8.2 89.1 324641
Names of X columns:

Type of Correlation


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')

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
R Engine error message	Error in list(4, 7.2, 102.9, 271244, , 4.1, 7.4, 97.4, 269907, , 4, 8.8, : argument 5 is empty Calls: array Execution halted