R version 2.12.1 (2010-12-16)
Copyright (C) 2010 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-redhat-linux-gnu (64-bit)

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(172
+ ,166
+ ,175
+ ,171
+ ,184
+ ,175
+ ,183
+ ,154
+ ,182
+ ,161
+ ,191
+ ,197
+ ,193
+ ,174
+ ,178
+ ,171
+ ,176
+ ,184
+ ,202
+ ,199
+ ,185
+ ,191
+ ,185
+ ,205
+ ,201
+ ,176
+ ,200
+ ,190
+ ,203
+ ,182
+ ,193
+ ,198
+ ,193
+ ,185
+ ,192
+ ,204
+ ,202
+ ,184
+ ,191
+ ,196
+ ,210
+ ,235
+ ,214
+ ,215
+ ,211
+ ,261
+ ,210
+ ,216
+ ,216
+ ,198
+ ,223
+ ,243
+ ,252
+ ,252
+ ,243
+ ,255
+ ,246
+ ,259
+ ,252
+ ,282
+ ,239
+ ,237
+ ,267
+ ,245
+ ,275
+ ,283
+ ,299
+ ,297
+ ,276
+ ,256
+ ,237
+ ,299
+ ,304
+ ,273
+ ,308
+ ,303
+ ,301
+ ,279
+ ,298
+ ,291
+ ,267
+ ,286
+ ,279
+ ,305
+ ,302
+ ,274
+ ,306
+ ,277
+ ,296
+ ,252
+ ,304
+ ,350
+ ,328
+ ,328
+ ,337
+ ,334
+ ,340
+ ,332
+ ,344
+ ,288
+ ,295
+ ,322
+ ,357
+ ,359
+ ,337
+ ,330
+ ,337
+ ,353
+ ,339
+ ,316
+ ,323
+ ,306
+ ,322
+ ,335
+ ,382
+ ,392
+ ,376
+ ,373
+ ,385
+ ,402
+ ,380
+ ,328
+ ,356
+ ,352
+ ,389
+ ,401
+ ,429
+ ,402
+ ,420
+ ,440
+ ,427
+ ,420
+ ,426
+ ,361
+ ,406
+ ,388
+ ,453
+ ,434
+ ,445
+ ,456
+ ,434
+ ,423
+ ,388
+ ,442
+ ,452
+ ,427
+ ,467
+ ,449
+ ,473
+ ,443
+ ,419
+ ,457
+ ,462
+ ,505
+ ,495
+ ,522
+ ,518
+ ,456
+ ,540
+ ,495
+ ,502
+ ,505
+ ,497
+ ,516
+ ,501
+ ,523
+ ,521
+ ,533
+ ,524
+ ,458
+ ,427
+ ,440
+ ,539
+ ,515
+ ,526
+ ,536
+ ,537
+ ,564
+ ,531
+ ,550
+ ,536
+ ,450
+ ,533
+ ,521
+ ,438
+ ,509
+ ,535
+ ,544
+ ,536
+ ,549
+ ,509
+ ,466
+ ,472
+ ,444
+ ,498
+ ,478
+ ,532
+ ,497
+ ,542
+ ,553
+ ,576
+ ,626
+ ,629
+ ,646
+ ,611
+ ,542
+ ,646
+ ,653
+ ,662
+ ,533
+ ,662
+ ,673
+ ,640
+ ,682
+ ,648
+ ,707
+ ,662
+ ,611
+ ,651
+ ,522
+ ,525
+ ,524
+ ,630
+ ,596
+ ,583
+ ,632
+ ,614
+ ,700
+ ,688
+ ,645
+ ,673
+ ,644
+ ,660
+ ,531
+ ,555
+ ,675
+ ,651
+ ,639
+ ,605
+ ,507
+ ,711
+ ,574
+ ,642
+ ,623
+ ,674
+ ,663
+ ,675
+ ,629
+ ,605
+ ,571
+ ,495
+ ,557
+ ,604
+ ,527
+ ,580
+ ,574
+ ,601
+ ,541
+ ,508
+ ,613
+ ,546
+ ,564
+ ,549
+ ,546
+ ,592
+ ,597
+ ,673
+ ,613
+ ,651
+ ,646
+ ,594
+ ,599
+ ,577
+ ,626
+ ,573
+ ,596
+ ,631
+ ,586
+ ,649
+ ,641
+ ,662
+ ,613
+ ,650
+ ,666
+ ,668
+ ,697
+ ,656
+ ,692
+ ,707
+ ,628
+ ,550
+ ,439
+ ,434
+ ,489
+ ,643
+ ,658
+ ,588
+ ,608
+ ,598
+ ,617
+ ,668
+ ,605
+ ,650
+ ,583
+ ,607
+ ,578
+ ,582
+ ,605
+ ,483
+ ,476
+ ,489
+ ,504
+ ,610
+ ,541
+ ,620
+ ,561
+ ,571
+ ,532
+ ,545
+ ,480
+ ,366
+ ,367
+ ,377
+ ,386
+ ,380
+ ,364
+ ,393
+ ,391
+ ,421
+ ,423
+ ,461
+ ,442
+ ,433
+ ,450
+ ,434
+ ,453
+ ,464
+ ,401
+ ,464
+ ,399
+ ,441
+ ,445
+ ,466
+ ,458
+ ,445
+ ,456
+ ,425
+ ,465
+ ,448
+ ,379
+ ,459
+ ,417
+ ,446
+ ,467
+ ,496
+ ,490
+ ,492
+ ,513
+ ,507
+ ,493
+ ,514
+ ,454
+ ,506
+ ,469
+ ,509
+ ,482
+ ,444
+ ,502
+ ,505
+ ,506
+ ,485
+ ,513
+ ,496
+ ,444
+ ,505
+ ,421
+ ,474
+ ,488
+ ,493
+ ,577
+ ,514
+ ,440
+ ,417
+ ,389
+ ,366
+ ,449
+ ,518
+ ,447
+ ,466
+ ,469
+ ,493
+ ,498
+ ,500
+ ,519
+ ,489
+ ,518
+ ,499
+ ,454
+ ,488
+ ,486
+ ,457
+ ,473
+ ,528
+ ,513
+ ,546
+ ,558
+ ,521
+ ,553
+ ,534
+ ,440
+ ,484
+ ,498
+ ,518
+ ,476
+ ,515
+ ,551
+ ,526
+ ,521
+ ,539
+ ,523
+ ,454
+ ,413
+ ,384
+ ,356
+ ,397
+ ,420
+ ,535
+ ,587
+ ,522
+ ,558
+ ,454
+ ,567
+ ,552
+ ,502
+ ,557
+ ,533
+ ,510
+ ,517
+ ,572
+ ,537
+ ,543
+ ,532
+ ,533
+ ,500
+ ,531
+ ,466
+ ,526
+ ,550
+ ,567
+ ,568
+ ,572
+ ,588
+ ,574
+ ,613
+ ,600
+ ,591
+ ,582
+ ,556
+ ,607
+ ,628
+ ,652
+ ,646
+ ,643
+ ,649
+ ,643
+ ,644
+ ,627
+ ,590
+ ,637
+ ,563
+ ,634
+ ,605
+ ,619
+ ,595
+ ,625
+ ,657)
> par4 = '12'
> par3 = 'productie van Ijzer'
> par2 = 'http://robjhyndman.com/tsdldata/data/basiron.dat'
> par1 = 'Ijzerproductie Australië'
> ylimmax = ''
> ylimmin = ''
> ylab = 'value'
> xlab = 'index or time'
> main = 'Ijzerproductie Australië'
> #'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. 
  154.0   363.2   489.5   460.3   567.0   711.0 
> n <- length(x)
> postscript(file="/var/www/wessaorg/rcomp/tmp/1t77v1297432495.ps",horizontal=F,onefile=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/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/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/www/wessaorg/rcomp/tmp/2ozio1297432495.tab") 
> 
> try(system("convert tmp/1t77v1297432495.ps tmp/1t77v1297432495.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.630   0.080   0.726