Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
102.0 70.5 108.0 100.0 104.7 77.7 108.0 100.2 86.0 56.0 108.0 113.7 92.1 56.8 108.0 115.5 106.9 69.2 108.0 115.0 112.6 71.3 108.0 114.0 101.7 79.4 108.0 112.0 92.0 80.8 108.0 112.6 97.4 72.2 108.0 114.2 97.0 69.8 108.0 113.7 105.4 73.0 108.0 112.1 102.7 82.0 108.0 112.0 98.1 76.3 108.0 110.1 104.5 65.3 108.0 111.5 87.4 51.4 108.0 125.2 89.9 60.5 108.0 127.5 109.8 83.0 108.0 127.1 111.7 89.8 108.0 124.4 98.6 78.6 108.0 120.4 96.9 85.8 108.2 122.0 95.1 69.7 112.3 123.7 97.0 69.4 111.3 123.3 112.7 76.6 111.3 122.1 102.9 76.4 115.3 119.5 97.4 77.1 117.2 118.0 111.4 79.0 118.3 119.4 87.4 67.5 118.3 130.5 96.8 60.0 118.3 134.3 114.1 71.7 119.0 134.7 110.3 79.3 120.6 134.4 103.9 66.0 122.6 130.7 101.6 78.1 122.6 130.9 94.6 57.1 127.4 129.9 95.9 49.6 125.9 129.6 104.7 64.0 121.5 128.5 102.8 57.8 118.8 126.0 98.1 61.6 121.6 124.8 113.9 82.4 122.3 125.1 80.9 61.8 122.7 136.5 95.7 62.1 120.8 138.3 113.2 79.5 120.1 138.2 105.9 65.4 120.1 134.6 108.8 72.5 120.1 130.9 102.3 84.6 120.1 131.3 99.0 62.5 128.4 130.5 100.7 65.1 129.8 129.8 115.5 79.0 129.8 127.5 100.7 65.9 128.6 126.3 109.9 66.1 128.6 126.0 114.6 83.3 133.7 126.0 85.4 40.6 130.0 136.3 100.5 58.6 125.9 137.6 114.8 67.3 129.4 136.3 116.5 68.2 129.4 129.2 112.9 59.5 130.6 124.4 102.0 65.7 130.6 122.6 106.0 53.4 130.6 123.3 105.3 39.5 130.8 120.7 118.8 51.7 129.7 116.9 106.1 42.3 125.8 115.7 109.3 45.9 126.0 112.4 117.2 54.7 125.6 109.7 92.5 41.8 125.4 122.1 104.2 48.6 124.7 124.2 112.5 57.1 126.9 119.1 122.4 76.5 128.1 115.9 113.3 62.7 131.4 112.1 100.0 53.9 134.8 113.1 110.7 53.5 141.8 113.7 112.8 47.5 148.1 111.6 109.8 49.3 149.8 108.3 117.3 59.9 149.8 107.8 109.1 49.9 147.3 103.2 115.9 54.5 150.9 105.0 96.0 54.2 153.0 116.2 99.8 46.7 152.7 117.3 116.8 61.2 152.7 113.9 115.7 51.8 152.7 111.3 99.4 37.4 152.7 110.4 94.3 41.1 153.2 113.5 91.0 30.0 145.1 116.2 93.2 34.8 134.0 117.1 103.1 45.9 127.2 117.9 94.1 45.1 123.0 118.0 91.8 42.6 124.5 115.1 102.7 49.0 123.7 117.9 82.6 29.6 123.8 129.0 89.1 46.0 123.6 131.2
Names of X columns:
Itot Iaudio Price Iwerk
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