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.

> x <- array(list(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),dim=c(2,60),dimnames=list(c('Prijsindexcijfers','Werkloosheid'),1:60))
>  y <- array(NA,dim=c(2,60),dimnames=list(c('Prijsindexcijfers','Werkloosheid'),1:60))
>  for (i in 1:dim(x)[1])
+  {
+  	for (j in 1:dim(x)[2])
+  	{
+  		y[i,j] <- as.numeric(x[i,j])
+  	}
+  }
> main = 'Kendall tau Correlation Plot'
> #'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!#
> panel.tau <- function#x, y, digits#2, prefix#'', cex.cor#
+ {
Error: unexpected '{' in:
"panel.tau <- function#x, y, digits#2, prefix#'', cex.cor#
{"
Execution halted