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 <- c(-2.8,-2.8,-5.3,-7.5,-6.5,-8.5,-8.8,-13,-13.3,-13.5,-14,-12.8,-9.5,-6.3,-5.8,-3.3,-3.8,-1.5,0,2.5,3.5,3.3,5.5,4.3,3,3.5,1.5,2.5,1.3,-0.5,-1.5,1,4.5,6,4,1.5,1.3,-2,-2,-3.8,-1.3,-1.3,-0.8,-4.3,-3.5,-3.3,-5.3,-5,-11.8,-16.3,-25,-31.3,-29,-32.5,-34.3,-30.7,-29.8,-24.3,-21.9,-19.2)
> par3 = 'De conjunctuurindicator is een vertrouwensindicator. Uitgaande van de antwoorden van elke onderneming, berekent men voor elke vraag het percentage van ondernemers dat een verbetering heeft vermeld (positieve antwoorden), het percentage van ondernemers dat een verslechtering heeft gemeld (negatieve antwoorden), evenals het percentage dat een status quo heeft opgegeven.'
> par2 = 'http://www.nbb.be/belgostat/PresentationLinker?TableId=148000035&Lang=N'
> par1 = 'Conjunctuurgevoeligheidsindicator van de verwerkende nijverheid'
> ylab = 'value'
> xlab = 'index'
> main = 'Conjunctuurindicator'
> #'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/1dicy1257200974.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/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/2bcio1257200974.tab") 
> 
> system("convert tmp/1dicy1257200974.ps tmp/1dicy1257200974.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.379   0.175   0.449