Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
37702 124.9 99.9 92.1 30364 120.4 99.9 91.4 32609 141.2 99.9 90.7 30212 95.4 99.9 92.5 29965 111.4 99.9 94.4 28352 113.3 99.7 94.3 25814 78 99.6 87.3 22414 77.7 99.5 85.9 20506 110.1 100.6 89 28806 109.6 100.2 83.3 22228 111 100.1 78.6 13971 97 100.2 75.7 36845 90.9 99.1 79.6 35338 94.7 99.5 78.5 35022 113.5 99.5 82.6 34777 107.1 99.6 88.7 26887 103.7 99.5 88.5 23970 107.7 99.6 84.6 22780 75.2 99.8 83.4 17351 74.1 99.9 84.4 21382 115.7 100.5 94.1 24561 116.2 100.5 100.4 17409 95.4 100.5 93.1 11514 95.9 100.5 93.1 31514 89.9 99.5 82.1 27071 102.4 99.9 88.1 29462 130.2 100.4 87.7 26105 98.9 99.6 80.2 22397 102.1 99.5 73.8 23843 117.3 99.6 75.3 21705 87.8 98.4 77.3 18089 66.6 99.9 80.1 20764 106.3 100.3 81.3 25316 104.5 100.3 81.5 17704 113.1 101.3 83.2 15548 95.1 101 80.8 28029 96.9 99.7 81.3 29383 107.1 99.4 78.8 36438 135.4 99.9 82.8 32034 120.3 100.7 84.9 22679 105.5 99.8 93.2 24319 128.4 98.8 94.7 18004 78.2 99.6 94.8 17537 85.8 99.1 103.9 20366 128.7 100.3 107 22782 131.2 100.5 118.6 19169 128.9 100.8 112.2 13807 112.3 100.6 112.2 29743 115 99.1 93.8 25591 116 98.8 96.7 29096 140.2 99 108.7 26482 121.2 99.9 112.1 22405 104.1 99.5 107.2 27044 128.8 99.2 113.1 17970 76.1 99.6 120 18730 86.9 100.1 124.4 19684 127.6 99.8 139.5 19785 108 101.6 145.8 18479 113.5 101.7 135.6 10698 117.4 101.9 135.5 31956 102.4 100 141.6 29506 117.9 102 141.2 34506 132 102 141.6 27165 95 102.9 147.1 26736 120.8 102.7 146.5 23691 128.9 102.7 144.1 18157 88.4 102.7 148.5 17328 81.1 102.7 146.9 18205 120.7 102.6 135.7 20995 131 102.6 128.5 17382 123.6 102.5 128.7 9367 139 102.5 127.6 31124 109.6 102.1 122.5 26551 108 103.5 123.4 30651 130.3 103.2 129.4 25859 111.7 102.1 135.3 25100 105.9 103.8 138.5 25778 128.7 104 140.6 20418 89.9 103.9 144.2 18688 101 104.1 144.3
Names of X columns:
x y z a
Type of Correlation
60
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