R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> y <- c(12.56585,12.55335,12.53064,12.53507,12.53223,12.53214,12.52466,12.50673,12.49553,12.48746,12.56814,12.58172,12.58554,12.57136,12.54781,12.55199,12.54322,12.544,12.53118,12.52531,12.52217,12.51102,12.57695,12.58014,12.58554,12.53719,12.50553,12.49073,12.50259,12.48437,12.44979,12.44254,12.41332,12.36892,12.46287,12.47225,12.4477,12.43178,12.40255,12.41757,12.42336,12.40917,12.37615,12.37617,12.32631,12.332,12.42092,12.42253,12.41702,12.40941,12.41416,12.45201,12.48491,12.50004,12.5174,12.52075,12.49661,12.51353,12.58694,12.59771)
> x <- c(11.02388,10.96971,10.90821,10.88734,10.85561,10.83008,10.8006,10.76026,10.72027,10.70003,10.91258,10.96597,10.98648,10.93797,10.87497,10.85325,10.80866,10.79886,10.75624,10.74195,10.71885,10.70259,10.88029,10.91538,10.94449,10.85605,10.77875,10.73082,10.74484,10.70237,10.63542,10.61676,10.54786,10.47619,10.70043,10.74192,10.72788,10.67764,10.6008,10.61221,10.61128,10.58337,10.51149,10.50873,10.39837,10.40144,10.62318,10.65145,10.67394,10.62415,10.60592,10.64604,10.68513,10.69435,10.70773,10.70338,10.63535,10.65655,10.83281,10.87535)
> ylab = 'Y'
> xlab = 'X'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: AUTHOR(S), (YEAR), YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description (don't use hard returns!)
> library('Kendall')
> k <- Kendall(x,y)
> postscript(file="/var/www/html/rcomp/tmp/1va151256748184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> 
> plot(x,y,main='Scatterplot',xlab=xlab,ylab=ylab)
> grid()
> dev.off()
null device 
          1 
> postscript(file="/var/www/html/rcomp/tmp/2a5lz1256748184.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> 
> plot(rank(x),rank(y),main='Scatterplot of Ranks',xlab=xlab,ylab=ylab)
> grid()
> dev.off()
null device 
          1 
> 
> #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/html/rcomp/createtable")
> 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Kendall tau Rank Correlation',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Kendall tau',header=TRUE)
> a<-table.element(a,k$tau)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'2-sided p-value',header=TRUE)
> a<-table.element(a,k$sl)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Score',header=TRUE)
> a<-table.element(a,k$S)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Var(Score)',header=TRUE)
> a<-table.element(a,k$varS)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Denominator',header=TRUE)
> a<-table.element(a,k$D)
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/www/html/rcomp/tmp/360cl1256748184.tab") 
> 
> system("convert tmp/1va151256748184.ps tmp/1va151256748184.png")
> system("convert tmp/2a5lz1256748184.ps tmp/2a5lz1256748184.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.526   0.310   1.171