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(1027387,1032760,1026564,1031480,1039048,1029781,1036585,1039113,1038981,1048472,1050976,1058369,1063014,1069895,1068642,1068381,1071410,1075303,1074652,1076742,1058112,1070165,1082079,1089077,1089392,1089298,1091254,1095112,1094153,1098756,1101085,1103418,1099897,1098269,1095835,1105013,1099386,1108399,1106298,1110539,1111430,1111951,1115406,1116142,1120071,1114196,1120541,1123962,1123389,1120435,1116495,1110012,1106820,1104494,1103760,1091570,1048367,1061626,1047607,1023650,1001154,993397,977486,971751,961207,957734,966893,974422)
> par3 = 'Industrial Production'
> par2 = 'http://www.economagic.com/em-cgi/data.exe/fedstl/indpro'
> par1 = 'Industrial Production index 2004-2009'
> ylab = 'Ind Prod '
> xlab = 'Months 2004 - 2009'
> main = 'Industrial Production 2004 -2009'
> postscript(file="/var/www/html/rcomp/tmp/18i131255369157.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/2etb51255369157.tab") 
> 
> system("convert tmp/18i131255369157.ps tmp/18i131255369157.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.359   0.196   0.457