R version 2.8.1 (2008-12-22)
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.

> x <- c(1.311294766,1.304945055,1.29476584,1.287709497,1.274509804,1.277310924,1.360526316,1.388888889,1.390957447,1.365789474,1.343007916,1.333333333,1.323979592,1.312182741,1.301020408,1.285353535,1.278061224,1.28030303,1.357995227,1.377672209,1.376190476,1.351674641,1.334146341,1.327751196,1.319248826,1.310747664,1.290697674,1.283018868,1.269503546,1.271662763,1.346938776,1.360801782,1.35619469,1.322510823,1.305494505,1.290672451,1.281995662,1.272138229,1.264069264,1.256578947,1.246153846,1.247807018,1.315677966,1.332627119,1.333333333,1.316129032,1.296296296,1.283870968,1.267094017,1.263383298,1.252699784,1.247826087,1.24025974,1.242950108,1.302521008,1.31512605,1.316348195,1.298013245,1.27765237,1.260180995,1.263513514,1.253424658,1.245901639,1.240566038,1.228365385,1.229064039,1.287703016,1.301843318,1.296650718,1.279126214,1.262376238,1.256723716)
> par3 = 'Verhouding tussen Totale werkloosheid en werkloosheid vanaf 25 jaar in BE'
> par2 = ''
> par1 = 'y[t] / x[t]= c+e[t]'
> ylab = 'value'
> xlab = 'index'
> main = 'Verhouding tussen Y en 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!)
> postscript(file="/var/www/rcomp/tmp/1w5pk1255878109.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab)
> dev.off()
null device 
          1 
> 
> #Note: the /var/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/rcomp/createtable")
> 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Univariate Dataseries',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Name of dataseries',header=TRUE)
> a<-table.element(a,par1)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Source',header=TRUE)
> a<-table.element(a,par2)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Description',header=TRUE)
> a<-table.element(a,par3)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Number of observations',header=TRUE)
> a<-table.element(a,length(x))
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/www/rcomp/tmp/2kcil1255878109.tab") 
> 
> system("convert tmp/1w5pk1255878109.ps tmp/1w5pk1255878109.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.390   0.310   0.651