Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
89.1 558 82.6 564 102.7 581 91.8 597 94.1 587 103.1 536 93.2 524 91 537 94.3 536 99.4 533 115.7 528 116.8 516 99.8 502 96 506 115.9 518 109.1 534 117.3 528 109.8 478 112.8 469 110.7 490 100 493 113.3 508 122.4 517 112.5 514 104.2 510 92.5 527 117.2 542 109.3 565 106.1 555 118.8 499 105.3 511 106 526 102 532 112.9 549 116.5 561 114.8 557 100.5 566 85.4 588 114.6 620 109.9 626 100.7 620 115.5 573 100.7 573 99 574 102.3 580 108.8 590 105.9 593 113.2 597 95.7 595 80.9 612 113.9 628 98.1 629 102.8 621 104.7 569 95.9 567 94.6 573 101.6 584 103.9 589 110.3 591 114.1 595
Names of X columns:
Prijsindexcijfers Werkloosheid
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