R version 2.8.0 (2008-10-20)
Copyright (C) 2008 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(1.3,1.4,1.3,1,0.8,0.7,0.6,0.8,0.9,1,1.2,1.3,1.3,1.4,1.4,1.8,1.9,2,2.4,2.5,2.5,2.3,1.7,1.1,0.7,0.2,0.3,1.1,1.6,2.2,3,3.8,4.6,5.1,5.3,5.5,5.7,5.9,6.1,6.1,6.3,6.5,6.7,6.6,6.5,6.4,6.3,6.3,6.3,6.2,6,5.6,5.3,5.1,4.5,4,3.5,3.5,3.3,3.1,2.9,2.5,2.6,2.8,2.8,2.9,3.1,3.3,3.5,3.4,3.5,3.7,3.8)
> x <- c(17.3,15.4,16.9,20.8,16.4,11.3,17.5,16.6,17.5,19.5,18.8,20.2,19.2,14.4,24.5,25.7,27.1,21,18.6,20,21.8,20.4,18,21.5,19.1,19.7,26,26.3,24.6,22.4,32,24,30,24.1,26.3,29.8,21.9,22.8,29.2,27.5,27.4,31,26.1,22.2,34,26.9,31.9,34.2,31.2,28.5,37.1,36,34.8,32.1,37.2,36.3,39.5,37.1,35.6,36.2,35.9,32.5,39.2,39.4,42.8,34.5,43.7,46.3,40.8,48.4,43.2,48.1,42.8)
> par20 = ''
> par19 = ''
> par18 = ''
> par17 = ''
> par16 = ''
> par15 = ''
> par14 = ''
> par13 = ''
> par12 = ''
> par11 = ''
> par10 = ''
> par9 = ''
> par8 = ''
> par7 = ''
> par6 = ''
> par5 = ''
> par4 = ''
> par3 = ''
> par2 = ''
> par1 = ''
> ylab = ''
> xlab = ''
> main = ''
> #'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/12tig1229985439.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> par(bg=rgb(0.2,0.4,0.6))
> plot(x,y,main='Scatterplot',xlab=xlab,ylab=ylab)
> grid()
> dev.off()
null device 
          1 
> postscript(file="/var/www/html/rcomp/tmp/2ydez1229985439.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> par(bg=rgb(0.2,0.4,0.6))
> 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/3nt9j1229985439.tab") 
> 
> system("convert tmp/12tig1229985439.ps tmp/12tig1229985439.png")
> system("convert tmp/2ydez1229985439.ps tmp/2ydez1229985439.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.576   0.366   0.712