Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
10723.8 3142.7 10414.9 3983.4 13938.9 3884.3 12476.8 4152.9 13979.8 3892.2 12384.6 4286.1 13807.4 3613 12266.7 4348.1 12973.9 3730.5 12919.9 3949.3 12509.8 3481.3 11497.3 4166.7 12934.1 3649.5 12142 4217.9 14908.3 4215.2 13919.4 4528.2 13772.1 4066.6 12656.8 4232.2 13012.6 4196.8 12034.1 4470.9 14049.9 4536.6 13199.7 5121.2 11816.5 4441.6 10881.3 4170.8 11593.2 3548.3 11301.2 4398.6 14466.2 4735.9 13643.9 4491.4 13615.9 4130.6 12517 4251.8 14733.9 4356.2 13981.1 4901.9 13880.7 4159.6 14275.7 4745.2 13527.5 3988 13435 4666.9 13584 4167.8 13565.7 4210.4 16170.2 4902.2 16216.3 5273.6 13260.6 3909.4 12970 4095.3 14741.9 4697.6 14079.9 4610.1 15486.5 4308.9 14235 4718.1 13154.5 4420.4 12213.4 4185.5 12621.2 3544.2 12581 4314.7 15031.6 4433 14130.4 4422.6 15452.4 4479.7 14210.8 5059.2 15428 4533.2 14378.5 5043.6 13105.9 4237.5 13142.8 4436.6 14716.8 4207.4 13714.7 4922.6 14180 4394 13621.9 4454.8 16202.2 5148.4 15379.8 5058.7 14392.4 4202.2 13306.3 4768.9 15140.6 4682.5 14391.2 5171.8 15960.1 4884.3 14909.9 4989.3 14351.3 5288.9 14025.4 5202.1 13230.2 4505.2 12951.2 4838.4 15202.1 4611.5 14344.3 4876.5 17056 5104 16093.4 5875.5 16077.7 4586.6 15413.6 5717.9 13348.2 4529.3 14705.7 4778.8 16402.4 4504.1 15972.8 6195.9 16559.1 4604.9 16241.4 4625.4 16579 4795.4 16626.4 5549.8 17561.2 5391.1 17136.2 6397.6 16129.6 5213.9 15622.9 5856.7 18484.3 5415 18003.9 6343.8 16402.6 5990.3 16136.1 6615.5 14032.3 4241.8 14423.7 5904.6 17109.1 5677.6 16789.4 6861 17157.2 5164.2 16782.2 6553.5 13879.8 3962.3 14133.8 5481 12362.4 4011 12607 5435.3 12683.5 3310.3 12004.5 5278 12608.8 3837.3 12175.4 4671.8 13583.7 4145.3 13268 4891.5 12846.3 3796.7 12299.3 4241.6 12347.1 3849.6 11800.6 4152.1 13967 4285 13873.3 4484.4 13114.3 4189.6 12269.6 4124.7
Names of X columns:
Uit_IEU Uit_EEU In_IEU In_EEU
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