Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
6.8 225 0.442 0.672 9.2 6.3 180 0.435 0.797 11.7 6.4 190 0.456 0.761 15.8 6.2 180 0.416 0.651 8.6 6.9 205 0.449 0.9 23.2 6.4 225 0.431 0.78 27.4 6.3 185 0.487 0.771 9.3 6.8 235 0.469 0.75 16 6.9 235 0.435 0.818 4.7 6.7 210 0.48 0.825 12.5 6.9 245 0.516 0.632 20.1 6.9 245 0.493 0.757 9.1 6.3 185 0.374 0.709 8.1 6.1 185 0.424 0.782 8.6 6.2 180 0.441 0.775 20.3 6.8 220 0.503 0.88 25 6.5 194 0.503 0.833 19.2 7.6 225 0.425 0.571 3.3 6.3 210 0.371 0.816 11.2 7.1 240 0.504 0.714 10.5 6.8 225 0.4 0.765 10.1 7.3 263 0.482 0.655 7.2 6.4 210 0.475 0.244 13.6 6.8 235 0.428 0.728 9 7.2 230 0.559 0.721 24.6 6.4 190 0.441 0.757 12.6 6.6 220 0.492 0.747 5.6 6.8 210 0.402 0.739 8.7 6.1 180 0.415 0.713 7.7 6.5 235 0.492 0.742 24.1 6.4 185 0.484 0.861 11.7 6 175 0.387 0.721 7.7 6 192 0.436 0.785 9.6 7.3 263 0.482 0.655 7.2 6.1 180 0.34 0.821 12.3 6.7 240 0.516 0.728 8.9 6.4 210 0.475 0.846 13.6 5.8 160 0.412 0.813 11.2 6.9 230 0.411 0.595 2.8 7 245 0.407 0.573 3.2 7.3 228 0.445 0.726 9.4 5.9 155 0.291 0.707 11.9 6.2 200 0.449 0.804 15.4 6.8 235 0.546 0.784 7.4 7 235 0.48 0.744 18.9 5.9 105 0.359 0.839 7.9 6.1 180 0.528 0.79 12.2 5.7 185 0.352 0.701 11 7.1 245 0.414 0.778 2.8 5.8 180 0.425 0.872 11.8 7.4 240 0.599 0.713 17.1 6.8 225 0.482 0.701 11.6 6.8 215 0.457 0.734 5.8 7 230 0.435 0.764 8.3
Names of X columns:
X1 X2 X3 X4 X5
Type of Correlation
kendall
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=par1) 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') n <- length(y[,1]) n a<-table.start() a<-table.row.start(a) a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,' ',header=TRUE) for (i in 1:n) { a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) } a<-table.row.end(a) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) for (j in 1:n) { r <- cor.test(y[i,],y[j,],method=par1) a<-table.element(a,round(r$estimate,3)) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'pair',1,TRUE) a<-table.element(a,'Pearson r',1,TRUE) a<-table.element(a,'Spearman rho',1,TRUE) a<-table.element(a,'Kendall tau',1,TRUE) a<-table.row.end(a) cor.test(y[1,],y[2,],method=par1) for (i in 1:(n-1)) { for (j in (i+1):n) { a<-table.row.start(a) dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='') a<-table.element(a,dum,header=TRUE) rp <- cor.test(y[i,],y[j,],method='pearson') a<-table.element(a,round(rp$estimate,4)) rs <- cor.test(y[i,],y[j,],method='spearman') a<-table.element(a,round(rs$estimate,4)) rk <- cor.test(y[i,],y[j,],method='kendall') a<-table.element(a,round(rk$estimate,4)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value',header=T) a<-table.element(a,paste('(',round(rp$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rs$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rk$p.value,4),')',sep='')) a<-table.row.end(a) } } a<-table.end(a) table.save(a,file='mytable1.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