Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
8.2 9.9 269285 258596 8 9.8 269829 259056 7.5 9.3 270911 264193 6.8 8.3 266844 260325 6.5 8 271244 261890 6.6 8.5 269907 260683 7.6 10.4 271296 257941 8 11.1 270157 258151 8.1 10.9 271322 262434 7.7 10 267179 261577 7.5 9.2 264101 262188 7.6 9.2 265518 261092 7.8 9.5 269419 263571 7.8 9.6 268714 265031 7.8 9.5 272482 270388 7.5 9.1 268351 265458 7.5 8.9 268175 266218 7.1 9 270674 266386 7.5 10.1 272764 263486 7.5 10.3 272599 263620 7.6 10.2 270333 267755 7.7 9.6 270846 266554 7.7 9.2 270491 266981 7.9 9.3 269160 264133 8.1 9.4 274027 265980 8.2 9.4 273784 267183 8.2 9.2 276663 272113 8.2 9 274525 267261 7.9 9 271344 269117 7.3 9 271115 269034 6.9 9.8 270798 266609 6.6 10 273911 267261 6.7 9.8 273985 271406 6.9 9.3 271917 269529 7 9 273338 270282 7.1 9 270601 268663 7.2 9.1 273547 269847 7.1 9.1 275363 270998 6.9 9.1 281229 277068 7 9.2 277793 273529 6.8 8.8 279913 275307 6.4 8.3 282500 276488 6.7 8.4 280041 274455 6.6 8.1 282166 274507 6.4 7.7 290304 279528 6.3 7.9 283519 277673 6.2 7.9 287816 278102 6.5 8 285226 275131 6.8 7.9 287595 277162 6.8 7.6 289741 278799 6.4 7.1 289148 285502 6.1 6.8 288301 280672 5.8 6.5 290155 281342 6.1 6.9 289648 281132 7.2 8.2 288225 278286 7.3 8.7 289351 279120 6.9 8.3 294735 289131 6.1 7.9 305333 294453 5.8 7.5 309030 295733 6.2 7.8 310215 302233 7.1 8.3 321935 308859 7.7 8.4 325734 311054 7.9 8.2 320846 318130 7.7 7.7 323023 315823 7.4 7.2 319753 316517 7.5 7.3 321753 316907 8 8.1 320757 314969 8.1 8.5 324479 316107
Names of X columns:
whm whv bss nss
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation