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(453.76,567.15,-1861.46,-7454.68,-11242.01,-11289.29,11715.62,19336.27,20729.84,17062.92,10369.32,11258.72,10721.21,10375.43,8202.51,2834.34,-371.69,-2429.58,19711.67,23745.59,25554.61,21797.03,15266.24,16605.63,14210.92,14714.05,11338.08,10074.50,9246.14,6347.71,25088.21,25798.35,27194.14,13649.64,4755.79,1004.64,4035.07,-1054.60,-10228.63,-11699.39,-18817.18,-29199.23,-6246.90,-4201.96,-10585.42,-15033.13,-22236.31,-18963.19,-17206.41,-20744.05,-28649.59,-29339.61,-40442.91,-39478.68,-18740.10,-18252.00,-20542.69,-23465.13,-23725.81,-15453.46,-6685.61,-3334.80,1292.91,2637.62,-3574.61,1701.23,22560.80,26551.57,24040.85)
> x <- c(-2.225348423,2.257563984,1.740476391,3.706301205,7.959396904,-1.810786388,-1.764228405,-1.270419804,4.26994678,0.614671842,1.706301205,4.797930568,6.99357209,2.027747276,-1.627527662,-3.076264883,-0.444268937,1.268460179,1.670639417,3.325914355,4.085201453,1.936117913,-4.638423857,-9.15551145,-2.385328158,-1.30459499,-5.936590936,-15.08567448,-11.20058283,-4.660216246,-1.464574724,-3.7751246,-3.20058283,-10.00494131,-3.315491184,-1.004941308,3.454692108,3.201596409,6.833592356,4.627054639,6.052512869,1.07579186,3.822696161,2.086688055,-1.740949414,-0.362049167,2.580496656,5.901942727,4.867767541,-0.017324105,3.810313364,4.051026267,0.672126019,-0.293698795,1.855384745,-1.43188614,-3.444268937,3.945527506,3.541861665,7.506199877,0.816749754,1.000008479,-1.770174813,-9.549075061,-2.783250246,-4.981417326,-1.341050742,0.916057116,-3.913759591)
> ylab = 'Werkloosheid mannen (eenheden)'
> xlab = 'vooruitzichten werkgelegenheid'
> #'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/1xy751257369082.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/2llrp1257369082.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/35ewk1257369082.tab") 
> 
> system("convert tmp/1xy751257369082.ps tmp/1xy751257369082.png")
> system("convert tmp/2llrp1257369082.ps tmp/2llrp1257369082.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.555   0.349   1.373