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.

> x <- c(29,29,30,32,25,27,27,23,24,26,24,25,28,27,26,23,22,25,22,21,24,24,27,31,35,41,43,48,42,38,45,50,44,43,45,43,47,52,51,54,61,62,57,59,55,56,58,66,68,65,69,71,74,78,78,77,73,78,80,82,68,68,66,64,60,53,52,53,54,47,44,41,39,37,40,40,43,39,42,40,44,53,54,60,68,61,60,64,59,55,59,60,57,55,55,44,44,49,58,55,69,73,66,61,59,53,54,44,49,50,39,32,28,32,30,28,30,27,32,41,35,34,25,27,27,32,30,41,30,33,24,24,19,21,17,14,12,9,5,5,8,6,9,3,4,0,5,16,17,23,26,24,25,33,41,61,78,54,46,41,41,40,40,42,50,45,45,45,47,56,58,63,68,61,62,62,67,60,54,75,60,57,51,50,52,55,56,46,49,46,48,57,56,57,56,55,50,50,62,61,60,56,55,53,55,51,42,42,49,43,46,42,43,34,35,29,30,57,37,32,33,25,30,30,32,27,26,22,25,21,23,18,16,24,29,27,35,39,39,59)
> par3 = 'Consumer confidence: Prospect unemployement for the next 12 months, in Belgium (11/1988 - 10/2008)'
> par2 = 'http://www.nbb.be/belgostat/PublicatieSelectieLinker?LinkID=528000030|910000082&Lang=N'
> par1 = 'Consumer confidence: Prospect unemployement (11/1988 - 10/2008)'
> ylab = 'Prospect index unemployement'
> xlab = 'Months (11/2000-11/2008)'
> main = 'Consumer prospect unemployement'
> #'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/html/rcomp/tmp/18g0u1229870374.ps",horizontal=F,pagecentre=F,paper="special",width=13.888888888889,height=5.5555555555556) 
> plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab)
> 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,'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/html/rcomp/tmp/2u8su1229870374.tab") 
> 
> system("convert tmp/18g0u1229870374.ps tmp/18g0u1229870374.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.429   0.220   0.491