R version 2.8.0 (2008-10-20)
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(2560
+ ,2491
+ ,2380
+ ,2291
+ ,2079
+ ,1929
+ ,1851
+ ,1607
+ ,1661
+ ,2259
+ ,1668
+ ,2011
+ ,1944
+ ,1958
+ ,1844
+ ,1868
+ ,1701
+ ,2338
+ ,2018
+ ,1302
+ ,2168
+ ,2139
+ ,1560
+ ,2093
+ ,1973
+ ,2090
+ ,2811
+ ,1984
+ ,1849
+ ,2433
+ ,2071
+ ,1855
+ ,1756
+ ,1898
+ ,1770
+ ,1969
+ ,1769
+ ,2139
+ ,3013
+ ,2061
+ ,2132
+ ,2973
+ ,2081
+ ,2257
+ ,2075
+ ,2084
+ ,1747
+ ,2092
+ ,1919
+ ,2551
+ ,2643
+ ,2153
+ ,2496
+ ,2645
+ ,2035
+ ,2294
+ ,2205
+ ,2044
+ ,1762
+ ,1897
+ ,1821
+ ,1905
+ ,2111
+ ,1643
+ ,1956
+ ,1977
+ ,1685
+ ,1393
+ ,1574
+ ,1793
+ ,1562
+ ,1510
+ ,1675
+ ,1965
+ ,2173
+ ,2395
+ ,2197
+ ,2257
+ ,2885
+ ,1594
+ ,1950
+ ,1772
+ ,1280
+ ,1724
+ ,1473
+ ,1461
+ ,1576
+ ,1900
+ ,1618
+ ,2303
+ ,1994
+ ,1575
+ ,1893
+ ,1788
+ ,1817
+ ,3233
+ ,727
+ ,1121
+ ,1665
+ ,1401
+ ,1415
+ ,2058
+ ,1544
+ ,1379
+ ,1402
+ ,1313
+ ,1296
+ ,1398
+ ,1288
+ ,1563
+ ,1972
+ ,1496
+ ,1481
+ ,1819
+ ,1479
+ ,1635
+ ,1511
+ ,1547
+ ,1388
+ ,1958
+ ,1390
+ ,1597
+ ,1842
+ ,1396
+ ,1671
+ ,1385
+ ,1632
+ ,1313
+ ,1300
+ ,1431
+ ,1398
+ ,1198
+ ,1292
+ ,1434
+ ,1660
+ ,1837
+ ,1455
+ ,1315
+ ,1642
+ ,1069
+ ,1209
+ ,1586
+ ,1122
+ ,1063
+ ,1125
+ ,1414
+ ,1347
+ ,1403
+ ,1299
+ ,1547
+ ,1515
+ ,1247
+ ,1639
+ ,1296
+ ,1063
+ ,1282
+ ,1365
+ ,1268
+ ,1532
+ ,1455
+ ,1393
+ ,1515
+ ,1510
+ ,1225
+ ,1577
+ ,1417
+ ,1224
+ ,1693
+ ,1633
+ ,1639
+ ,1914
+ ,1586
+ ,1552
+ ,2081
+ ,1500
+ ,1437
+ ,1470
+ ,1849
+ ,1387
+ ,1592
+ ,1589
+ ,1798
+ ,1935
+ ,1887
+ ,2027
+ ,2080
+ ,1556
+ ,1682
+ ,1785
+ ,1869
+ ,1781
+ ,2082
+ ,2570
+ ,1862
+ ,1936
+ ,1504
+ ,1765
+ ,1607
+ ,1577
+ ,1493
+ ,1615
+ ,1700
+ ,1335
+ ,1523
+ ,1623
+ ,1540
+ ,1637
+ ,1524
+ ,1419
+ ,1821
+ ,1593
+ ,1357
+ ,1263
+ ,1750
+ ,1405
+ ,1393
+ ,1639
+ ,1679
+ ,1551
+ ,1744
+ ,1429
+ ,1784)
> par3 = 'Bouwvergunningen volgens effectieve datum van toekenning (ramingen vanaf januari 1990 tot juni 2008) '
> par2 = 'http://www.nbb.be/belgostat/PresentationLinker?TableId=321000002&Lang=N'
> par1 = 'Bouwvergunningen Vlaams gewest'
> ylab = 'Aantal bouwvergunningen Vlaanderen'
> xlab = 'Maanden'
> main = 'Bouwvergunningen Vlaams gewest'
> #'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/1u6dy1229699683.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/2v1cr1229699683.tab") 
> 
> system("convert tmp/1u6dy1229699683.ps tmp/1u6dy1229699683.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.438   0.222   0.583