Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
0.58 1.48 75.9 105.3 0.57 1.48 77.7 101.3 0.57 1.48 86.9 108.4 0.56 1.48 90.7 107.4 0.56 1.48 91.0 109.1 0.88 1.48 89.5 109.5 0.84 1.48 92.5 111.4 0.69 1.48 94.1 110.1 0.59 1.48 98.5 117.0 0.54 1.48 96.8 129.6 0.52 1.48 91.2 113.5 0.52 1.48 97.1 113.3 0.51 1.48 104.9 110.1 0.52 1.48 110.9 107.4 0.51 1.48 104.8 110.1 0.51 1.48 94.1 112.5 0.53 1.48 95.8 106.0 0.95 1.48 99.3 117.6 0.98 1.48 101.1 117.8 0.88 1.48 104.0 113.5 0.81 1.48 99.0 121.2 0.77 1.48 105.4 130.4 0.76 1.48 107.1 115.2 0.75 1.48 110.7 117.9 0.73 1.48 117.1 110.7 0.74 1.57 118.7 107.6 0.73 1.58 126.5 124.3 0.75 1.58 127.5 115.1 0.77 1.58 134.6 112.5 1.09 1.58 131.8 127.9 1.03 1.59 135.9 117.4 0.9 1.6 142.7 119.3 0.76 1.6 141.7 130.4 0.66 1.61 153.4 126.0 0.63 1.61 145.0 125.4 0.61 1.61 137.7 130.5 0.61 1.62 148.3 115.9 0.61 1.63 152.2 108.7 0.61 1.63 169.4 124.0 0.61 1.64 168.6 119.4 0.62 1.64 161.1 118.6 0.76 1.64 174.1 131.3 0.83 1.64 179.0 111.1 0.81 1.64 190.6 124.8 0.77 1.65 190.0 132.3 0.75 1.65 181.6 126.7 0.76 1.65 174.8 131.7 0.76 1.65 180.5 130.9 1.77 1.65 196.8 122.1 1.75 1.66 193.8 113.2 1.78 1.66 197.0 133.6 1.8 1.67 216.3 119.2 1.78 1.68 221.4 129.4 1.79 1.68 217.9 131.4 1.8 1.68 229.7 117.1 1.8 1.68 227.4 130.5 1.81 1.69 204.2 132.3 1.8 1.7 196.6 140.8 1.81 1.7 198.8 137.5 1.81 1.71 207.5 128.6 1.81 1.72 190.7 126.7 1.8 1.73 201.6 120.8 1.79 1.74 210.5 139.3 1.79 1.74 223.5 128.6 1.79 1.75 223.8 131.3 1.79 1.75 231.2 136.3 1.8 1.75 244.0 128.5
Names of X columns:
Aardappelen Brood Grondstoffen Productie
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