R version 2.7.2 (2008-08-25)
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(200338
+ ,194189
+ ,185788
+ ,178806
+ ,171274
+ ,168805
+ ,218711
+ ,236313
+ ,237277
+ ,231232
+ ,227938
+ ,226194
+ ,221351
+ ,213230
+ ,202864
+ ,194674
+ ,185306
+ ,183347
+ ,230352
+ ,250448
+ ,251243
+ ,243958
+ ,231966
+ ,224842
+ ,217396
+ ,205751
+ ,192830
+ ,179997
+ ,172892
+ ,168807
+ ,215334
+ ,239283
+ ,237295
+ ,230266
+ ,223580
+ ,212918
+ ,214046
+ ,196890
+ ,185819
+ ,177203
+ ,168580
+ ,159250
+ ,202720
+ ,216663
+ ,215830
+ ,206360
+ ,197412
+ ,195175
+ ,189173
+ ,175068
+ ,163068
+ ,152733
+ ,145655
+ ,144011
+ ,184211
+ ,193623
+ ,195428
+ ,195807
+ ,183993
+ ,184923
+ ,178727
+ ,163415
+ ,152607
+ ,143184
+ ,134551
+ ,132330
+ ,171411
+ ,177428
+ ,177478
+ ,170622
+ ,161624
+ ,157745
+ ,151305
+ ,138797
+ ,126897
+ ,117491
+ ,108997
+ ,108621
+ ,149117
+ ,156686
+ ,153393
+ ,145277
+ ,137688
+ ,134100
+ ,128587
+ ,116158
+ ,109418
+ ,97078
+ ,90113
+ ,89362
+ ,125488
+ ,136374
+ ,131559
+ ,124674
+ ,117903
+ ,115288
+ ,111051
+ ,101033
+ ,91561
+ ,84635
+ ,79319
+ ,80539
+ ,120024
+ ,127795
+ ,128503
+ ,123657
+ ,118394
+ ,117390
+ ,114290
+ ,109216
+ ,100892
+ ,94801
+ ,89180
+ ,89679
+ ,128141
+ ,138748
+ ,138787
+ ,134770
+ ,128858
+ ,128444
+ ,125325
+ ,116898
+ ,109231
+ ,104166
+ ,98445
+ ,100121
+ ,135497
+ ,146232
+ ,145000
+ ,140463
+ ,136159
+ ,138583
+ ,136525
+ ,131417
+ ,124285
+ ,118654
+ ,114173
+ ,115950
+ ,154976
+ ,167161
+ ,168856
+ ,162912
+ ,158934
+ ,157951
+ ,155171
+ ,147166
+ ,137278
+ ,128628
+ ,120952
+ ,119459
+ ,152788
+ ,166308
+ ,165189
+ ,158028
+ ,149621
+ ,146878
+ ,143320
+ ,137502
+ ,129943
+ ,123538
+ ,115570
+ ,114488
+ ,150610
+ ,164375
+ ,164254
+ ,160158
+ ,152402
+ ,150969
+ ,149657
+ ,142773
+ ,133639
+ ,128332
+ ,120297
+ ,118632
+ ,155276
+ ,169316
+ ,167395
+ ,157939
+ ,149601
+ ,146310
+ ,141579
+ ,136473
+ ,129818
+ ,124226
+ ,116428
+ ,116440
+ ,147747
+ ,160069
+ ,163129
+ ,151108
+ ,141481
+ ,139174
+ ,134066
+ ,130104
+ ,123090
+ ,116598
+ ,109627
+ ,105428
+ ,137272
+ ,159836
+ ,155283
+ ,141514
+ ,131852
+ ,130691
+ ,128461
+ ,123066
+ ,117599
+ ,111599
+ ,105395
+ ,102334
+ ,131305
+ ,149033
+ ,144954
+ ,132404
+ ,122104
+ ,118755
+ ,116222
+ ,110924
+ ,103753
+ ,99983
+ ,93302
+ ,91496
+ ,119321
+ ,139261
+ ,133739
+ ,123913
+ ,113438
+ ,109416
+ ,109406
+ ,105645
+ ,101328
+ ,97686
+ ,93093
+ ,91382
+ ,122257
+ ,139183
+ ,139887
+ ,131822
+ ,116805
+ ,113706
+ ,113012
+ ,110452
+ ,107005
+ ,102841
+ ,98173
+ ,98181
+ ,137277
+ ,147579
+ ,146571
+ ,138920
+ ,130340
+ ,128140
+ ,127059
+ ,122860
+ ,117702
+ ,113537
+ ,108366
+ ,111078
+ ,150739
+ ,159129
+ ,157928
+ ,147768
+ ,137507
+ ,136919
+ ,136151
+ ,133001
+ ,125554
+ ,119647
+ ,114158
+ ,116193
+ ,152803
+ ,161761
+ ,160942
+ ,149470
+ ,139208
+ ,134588
+ ,130322
+ ,126611
+ ,122401
+ ,117352
+ ,112135
+ ,112879
+ ,148729
+ ,157230
+ ,157221
+ ,146681
+ ,136524
+ ,132111
+ ,125326
+ ,122716
+ ,116615
+ ,113719
+ ,110737
+ ,112093
+ ,143565
+ ,149946
+ ,149147
+ ,134339
+ ,122683
+ ,115614
+ ,116566
+ ,111272
+ ,104609
+ ,101802
+ ,94542
+ ,93051
+ ,124129
+ ,130374
+ ,123946
+ ,114971
+ ,105531
+ ,104919
+ ,104782
+ ,101281
+ ,94545
+ ,93248
+ ,84031
+ ,87486
+ ,115867
+ ,120327
+ ,117008)
> par3 = 'Werklozen jonger dan 25 jaar in België van 01/1982 tot 09/2008'
> par2 = 'http://www.nbb.be/belgostat/PresentationLinker?TableId=117000046&Lang=N'
> par1 = 'Werkloosheid: Jonger dan 25 jaar (1982-2008)'
> ylab = 'Aantal personen (in eenheden)'
> xlab = 'Maanden (1982-2008)'
> main = 'Werklozen <25 jaar (01/1982 - 09/2008)'
> postscript(file="/var/www/html/rcomp/tmp/1koaj1225747032.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/2z8lw1225747032.tab") 
> 
> system("convert tmp/1koaj1225747032.ps tmp/1koaj1225747032.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.708   0.251   0.868