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(1
+ ,15
+ ,400
+ ,15
+ ,16
+ ,337
+ ,928
+ ,13
+ ,3565
+ ,4062
+ ,102
+ ,1625
+ ,1829
+ ,35
+ ,122
+ ,21
+ ,1149
+ ,86
+ ,18
+ ,20
+ ,51
+ ,1
+ ,106
+ ,2013
+ ,321
+ ,2157
+ ,572
+ ,12
+ ,116
+ ,30
+ ,1288
+ ,174
+ ,176
+ ,131
+ ,165
+ ,12
+ ,2
+ ,8
+ ,1
+ ,1
+ ,1176
+ ,121
+ ,382
+ ,1
+ ,1
+ ,372
+ ,48
+ ,231
+ ,3
+ ,379
+ ,104
+ ,7746
+ ,67
+ ,2857
+ ,1141
+ ,345
+ ,1007
+ ,1708
+ ,48
+ ,39
+ ,2
+ ,880
+ ,1237
+ ,24
+ ,4
+ ,170
+ ,334
+ ,890
+ ,987
+ ,2196
+ ,2
+ ,738
+ ,79
+ ,357
+ ,305
+ ,23
+ ,1
+ ,1
+ ,27
+ ,5
+ ,5728
+ ,426
+ ,72
+ ,272
+ ,55
+ ,8
+ ,7546
+ ,2737
+ ,94
+ ,36
+ ,242
+ ,1631
+ ,7793
+ ,558
+ ,3
+ ,883
+ ,483
+ ,8608
+ ,279
+ ,2673
+ ,918
+ ,14
+ ,609
+ ,95
+ ,4
+ ,34
+ ,8
+ ,2
+ ,6
+ ,512
+ ,2486
+ ,1534
+ ,2788
+ ,326
+ ,247
+ ,61
+ ,10
+ ,260
+ ,1
+ ,2
+ ,17
+ ,202
+ ,4
+ ,79
+ ,1
+ ,7
+ ,13
+ ,11
+ ,8
+ ,4
+ ,16
+ ,25
+ ,1
+ ,141
+ ,7
+ ,167
+ ,2
+ ,2833
+ ,3
+ ,3553
+ ,54
+ ,842
+ ,492
+ ,122
+ ,253
+ ,3
+ ,2
+ ,2
+ ,212
+ ,67
+ ,6
+ ,1
+ ,78
+ ,9
+ ,1
+ ,110
+ ,1
+ ,184
+ ,3
+ ,177
+ ,81
+ ,6
+ ,19
+ ,32
+ ,48
+ ,23
+ ,4
+ ,2
+ ,9
+ ,12
+ ,8
+ ,23
+ ,386
+ ,1428
+ ,815
+ ,549
+ ,1046
+ ,67
+ ,42
+ ,58
+ ,81
+ ,1746
+ ,1229
+ ,1675
+ ,8
+ ,100
+ ,2
+ ,14
+ ,1877
+ ,6
+ ,13
+ ,215
+ ,190
+ ,75
+ ,28
+ ,148
+ ,8
+ ,40
+ ,610
+ ,25
+ ,94
+ ,2223
+ ,247
+ ,94
+ ,350
+ ,175
+ ,954
+ ,2
+ ,4
+ ,1
+ ,1
+ ,24
+ ,1
+ ,100
+ ,16
+ ,1
+ ,306
+ ,17
+ ,2
+ ,1059
+ ,4
+ ,2
+ ,3268
+ ,2
+ ,2837
+ ,599
+ ,59
+ ,2738
+ ,70
+ ,7107
+ ,71
+ ,6751
+ ,11
+ ,3169
+ ,2753
+ ,2
+ ,1
+ ,46
+ ,27
+ ,80
+ ,1994
+ ,3
+ ,12048
+ ,2
+ ,2255
+ ,4368
+ ,2919
+ ,2
+ ,2847
+ ,60
+ ,206
+ ,3097
+ ,3
+ ,36
+ ,192
+ ,14
+ ,1
+ ,313
+ ,148
+ ,147
+ ,27
+ ,145
+ ,18
+ ,171
+ ,3766
+ ,180
+ ,391
+ ,753
+ ,488
+ ,11
+ ,107
+ ,16
+ ,6533
+ ,1899
+ ,1924
+ ,104
+ ,12
+ ,122
+ ,7452
+ ,1
+ ,241
+ ,672
+ ,929
+ ,604
+ ,4576
+ ,1444
+ ,4
+ ,3164
+ ,3362
+ ,124
+ ,1167
+ ,1347
+ ,496
+ ,1
+ ,242
+ ,48
+ ,246
+ ,146
+ ,7077
+ ,243
+ ,49
+ ,115
+ ,2
+ ,2277
+ ,1007
+ ,1613
+ ,2019
+ ,11599
+ ,1
+ ,33
+ ,56
+ ,660
+ ,1
+ ,76
+ ,6597
+ ,822
+ ,4
+ ,682
+ ,1413
+ ,5117
+ ,254
+ ,69
+ ,21
+ ,243
+ ,186
+ ,882
+ ,1004
+ ,1928
+ ,301
+ ,39
+ ,30
+ ,5062
+ ,25
+ ,11514
+ ,467
+ ,53
+ ,1813
+ ,98
+ ,1177
+ ,439
+ ,6
+ ,1415
+ ,297
+ ,352
+ ,254
+ ,389
+ ,2831
+ ,2316
+ ,139
+ ,263
+ ,271
+ ,8123)
> par4 = '12'
> par3 = 'Deze gegevensreeks geeft de verkochte modellen per merk in 2010 in Europa.'
> par2 = 'http://www.raivereniging.nl/markt-informatie/statistieken/europese-statistieken.aspx'
> par1 = 'Verkoop nieuwe wagens Europa 2010'
> ylimmax = as.numeric(12050)
> ylimmin = as.numeric(1)
> ylab = 'Aantal verkochte wagens'
> xlab = 'Merk en type auto '
> main = 'Verkoop nieuwe wagens Europa 2010'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Dr. Ian E. Holliday
> #To cite this work: Ian E. Holliday, 2009, 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: 
> #Technical description: 
> if (par4 != 'No season') {
+ par4 <- as.numeric(par4)
+ if (par4 < 4) par4 <- 12
+ }
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    1.0    14.0   122.0   888.7   880.5 12050.0 
> n <- length(x)
> postscript(file="/var/www/html/rcomp/tmp/1q2t21285683514.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> if (par4=='No season') {
+ plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
+ axis(1,at=seq(1,n,10))
+ }
> if (par4!='No season') {
+ plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
+ axis(1,at=seq(1,n,par4))
+ grid(nx=0,ny=NULL,col='black')
+ abline(v=seq(1,n,par4),col='black',lty='dotted')
+ }
> 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/2mu9b1285683514.tab") 
> 
> try(system("convert tmp/1q2t21285683514.ps tmp/1q2t21285683514.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.466   0.242   0.575