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(279600
+ ,277679
+ ,273749
+ ,270423
+ ,267598
+ ,268478
+ ,303597
+ ,313744
+ ,313962
+ ,312054
+ ,311980
+ ,311950
+ ,309913
+ ,306284
+ ,300161
+ ,296157
+ ,291053
+ ,292274
+ ,326903
+ ,339738
+ ,340257
+ ,335946
+ ,326904
+ ,322164
+ ,318729
+ ,312037
+ ,304994
+ ,298392
+ ,296208
+ ,295896
+ ,333082
+ ,349961
+ ,345988
+ ,339189
+ ,335545
+ ,328142
+ ,333405
+ ,320581
+ ,309889
+ ,301449
+ ,293819
+ ,287555
+ ,315217
+ ,322935
+ ,321324
+ ,317347
+ ,310598
+ ,310498
+ ,307907
+ ,297447
+ ,289404
+ ,283649
+ ,280054
+ ,280303
+ ,304053
+ ,308911
+ ,308964
+ ,313982
+ ,306142
+ ,308938
+ ,306203
+ ,294634
+ ,287383
+ ,281138
+ ,275825
+ ,275497
+ ,301667
+ ,302263
+ ,300602
+ ,297655
+ ,291481
+ ,289137
+ ,285432
+ ,275788
+ ,266740
+ ,260321
+ ,254686
+ ,254794
+ ,284251
+ ,286368
+ ,279683
+ ,275294
+ ,268844
+ ,267333
+ ,263530
+ ,255379
+ ,251431
+ ,240887
+ ,234963
+ ,234616
+ ,261790
+ ,268519
+ ,259181
+ ,254657
+ ,248876
+ ,247778
+ ,245338
+ ,237916
+ ,231064
+ ,224951
+ ,220187
+ ,222161
+ ,252624
+ ,257903
+ ,253650
+ ,252284
+ ,249087
+ ,251150
+ ,249902
+ ,246077
+ ,238603
+ ,234346
+ ,230039
+ ,231937
+ ,261261
+ ,269701
+ ,264635
+ ,265103
+ ,261756
+ ,264966
+ ,265503
+ ,260078
+ ,256179
+ ,254181
+ ,250243
+ ,254830
+ ,285223
+ ,294287
+ ,291474
+ ,289903
+ ,288549
+ ,294890
+ ,297041
+ ,296223
+ ,291025
+ ,290761
+ ,289770
+ ,294315
+ ,325608
+ ,336191
+ ,336223
+ ,330245
+ ,328742
+ ,330266
+ ,330867
+ ,326332
+ ,318957
+ ,315246
+ ,312412
+ ,314811
+ ,341337
+ ,352968
+ ,350016
+ ,343080
+ ,336461
+ ,337116
+ ,336766
+ ,332201
+ ,323529
+ ,320287
+ ,314768
+ ,316870
+ ,347093
+ ,358764
+ ,356615
+ ,352559
+ ,342807
+ ,344952
+ ,346958
+ ,338371
+ ,328380
+ ,323111
+ ,314764
+ ,312235
+ ,342631
+ ,353912
+ ,345948
+ ,334046
+ ,326268
+ ,325939
+ ,323758
+ ,319275
+ ,313328
+ ,308612
+ ,301096
+ ,305610
+ ,333005
+ ,343322
+ ,337653
+ ,325595
+ ,316726
+ ,317578
+ ,314484
+ ,310166
+ ,301792
+ ,294495
+ ,287256
+ ,286224
+ ,313654
+ ,329656
+ ,319784
+ ,301995
+ ,291228
+ ,293041
+ ,291908
+ ,285121
+ ,278310
+ ,271158
+ ,266586
+ ,266426
+ ,294354
+ ,309380
+ ,297710
+ ,285409
+ ,274580
+ ,274402
+ ,274452
+ ,267700
+ ,257841
+ ,255124
+ ,247377
+ ,247823
+ ,276919
+ ,294271
+ ,281758
+ ,270434
+ ,258848
+ ,256674
+ ,258882
+ ,255060
+ ,247698
+ ,244779
+ ,240901
+ ,239933
+ ,270247
+ ,283893
+ ,282348
+ ,273570
+ ,254756
+ ,254354
+ ,255843
+ ,254490
+ ,251995
+ ,246339
+ ,244019
+ ,245953
+ ,279806
+ ,283111
+ ,281097
+ ,275964
+ ,270694
+ ,271901
+ ,274412
+ ,272433
+ ,268361
+ ,268586
+ ,264768
+ ,269974
+ ,304744
+ ,309365
+ ,308347
+ ,298427
+ ,289231
+ ,291975
+ ,294912
+ ,293488
+ ,290555
+ ,284736
+ ,281818
+ ,287854
+ ,316263
+ ,325412
+ ,326011
+ ,328282
+ ,317480
+ ,317539
+ ,313737
+ ,312276
+ ,309391
+ ,302950
+ ,300316
+ ,304035
+ ,333476
+ ,337698
+ ,335932
+ ,323931
+ ,313927
+ ,314485
+ ,313218
+ ,309664
+ ,302963
+ ,298989
+ ,298423
+ ,301631
+ ,329765
+ ,335083
+ ,327616
+ ,309119
+ ,295916
+ ,291413
+ ,291542
+ ,284678
+ ,276475
+ ,272566
+ ,264981
+ ,263290
+ ,296806
+ ,303598
+ ,286994
+ ,276427
+ ,266424
+ ,267153
+ ,268381
+ ,262522
+ ,255542
+ ,253158
+ ,243803
+ ,250741
+ ,280445
+ ,285257
+ ,270976)
> par3 = 'Werkloze vrouwen in België van 01/1982 tot 09/2008'
> par2 = 'http://www.nbb.be/belgostat/PresentationLinker?TableId=117000046&Lang=N'
> par1 = 'Werkloosheid: Vrouwen (1982-2008)'
> ylab = 'Aantal personen (in eenheden)'
> xlab = 'Maanden (1982-2008)'
> main = 'Werkloze vrouwen (01/1982 - 09/2008)'
> postscript(file="/var/www/html/rcomp/tmp/10is11225746810.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/2suwl1225746811.tab") 
> 
> system("convert tmp/10is11225746810.ps tmp/10is11225746810.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.659   0.226   0.727