x <- c(1149822
,1086979
,1276674
,1522522
,1742117
,1737275
,1979900
,2061036
,1867943
,1707752
,1298756
,1281814
,1281151
,1164976
,1454329
,1645288
,1817743
,1895785
,2236311
,2295951
,2087315
,1980891
,1465446
,1445026
,1488120
,1338333
,1715789
,1806090
,2083316
,2092278
,2430800
,2424894
,2299016
,2130688
,1652221
,1608162
,1647074
,1479691
,1884978
,2007898
,2208954
,2217164
,2534291
,2560312
,2429069
,2315077
,1799608
,1772590
,1744799
,1659093
,2099821
,2135736
,2427894
,2468882
,2703217
,2766841
,2655236
,2550373
,2052097
,1998055
,1920748
,1876694
,2380930
,2467402
,2770771
,2781340
,3143926
,3172235
,2952540
,2920877
,2384552
,2248987
,2208616
,2178756
,2632870
,2706905
,3029745
,3015402
,3391414
,3507805
,3177852
,3142961
,2545815
,2414007
,2372578
,2332664
,2825328
,2901478
,3263955
,3226738
,3610786
,3709274
,3467185
,3449646
,2802951
,2462530
,2490645
,2561520
,3067554
,3226951
,3546493
,3492787
,3952263
,3932072
,3720284
,3651555
,2914972
,2713514
,2703997
,2591373
,3163748
,3355137
,3613702
,3686773
,4098716
,4063517
,3551489
,3226663
,2656842
,2597484
,2572399
,2596631
,3165225
,3303145
,3698247
,3668631
,4130433
,4131400
,3864358
,3721110
,2892532
,2843451
,2747502
,2668775
,3018602
,3013392
,3393657
,3544233
,4075832
,4032923
,3734509
,3761285
,2970090
,2847849
,2741680
,2830639
,3257673
,3480085
,3843271
,3796961
,4337767
,4243630
,3927202
,3915296
,3087396
,2963792
,2955792
,2829925
,3281195
,3548011
,4059648
,3941175
,4528594
,4433151
,4145737
,4077132
,3198519
,3078660
,3028202
,2858642
,3398954
,3808883
,4175961
,4227542
,4744616
,4608012
,4295049
,4201144
,3353276
,3286851
,3169889
,3051720
,3695426
,3905501
,4296458
,4246247
,4921849
,4821446
,4425064
,4379099
,3472889
,3359160
,3200944
,3153170
,3741498
,3918719
,4403449
,4400407
,4847473
,4716136
,4297440
,4272253
,3271834
,3168388
,2911748
,2720999
,3199918
,3672623
,3892013
,3850845
,4532467
,4484739
,4014972
,3983758
,3158459
,3100569
,2935404
,2855719
,3465611
,3006985
,4095110
,4104793
,4730788
,4642726
,4246919
,4308117)
par4 = '12'
par3 = ''
par2 = 'Schiphol'
par1 = 'Aantal reizigers'
ylimmax = ''
ylimmin = ''
ylab = 'value'
xlab = 'index or time'
main = ''
postscript(file="/var/wessaorg/rcomp/tmp/1r9gu1323972753.ps",horizontal=F,onefile=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()

#Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
load(file="/var/wessaorg/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/wessaorg/rcomp/tmp/25us71323972753.tab") 

try(system("convert tmp/1r9gu1323972753.ps tmp/1r9gu1323972753.png",intern=TRUE))