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(798.6,798.4,806.8,806.6,809,810,810.5,815.7,819.2,817.3,815.1,813.2,815.7,819.2,819.6,820.5,825.1,824.7,818.4,815.7,815.1,812.1,807.8,805.8,812.7,814,816.7,818.5,821,821.1,821.2,821.7,821.5,819.9,822.2,824.3,826.8,835.6,835.6,831.9,830,830.6,831.8,840.3,845.3,848.2,844.7,843.6,850.4,858.6,881.9,889.8,891.1,889.2,887.1,891.7,897.3,896.9,890.6,885.4,887.5,900.1,904.4,903.1,898.8,901.4,907.1,919.5,929.4,930.4,928.4,932.2,943.4,952.3,959.3,972.2,992.4,993.6,1006.6,1042.1,1046.3,1060,1059.4,1057.4,1063.2,1065.4,1072.5,1076.4,1081.6,1080.7,1081.8,1075.7,1068.6,1071.2,1075.4,1065.8,1085.6,1095.4,1106,1124.7,1136.5,1151,1140.9,1132.6,1109.4,1077.6,1062.3,1049)
> x <- c(395.3,395.1,403.5,403.3,405.7,406.7,407.2,412.4,415.9,414,411.8,409.9,412.4,415.9,416.3,417.2,421.8,421.4,415.1,412.4,411.8,408.8,404.5,402.5,409.4,410.7,413.4,415.2,417.7,417.8,417.9,418.4,418.2,416.6,418.9,421,423.5,432.3,432.3,428.6,426.7,427.3,428.5,437,442,444.9,441.4,440.3,447.1,455.3,478.6,486.5,487.8,485.9,483.8,488.4,494,493.6,487.3,482.1,484.2,496.8,501.1,499.8,495.5,498.1,503.8,516.2,526.1,527.1,525.1,528.9,540.1,549,556,568.9,589.1,590.3,603.3,638.8,643,656.7,656.1,654.1,659.9,662.1,669.2,673.1,678.3,677.4,678.5,672.4,665.3,667.9,672.1,662.5,682.3,692.1,702.7,721.4,733.2,747.7,737.6,729.3,706.1,674.3,659,645.7)
> 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/144db1257849637.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/2dvc71257849637.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/3u6iu1257849637.tab") 
> 
> system("convert tmp/144db1257849637.ps tmp/144db1257849637.png")
> system("convert tmp/2dvc71257849637.ps tmp/2dvc71257849637.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.570   0.335   0.926