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(323850
+ ,325560
+ ,325560
+ ,377772
+ ,467359
+ ,325560
+ ,325560
+ ,311874
+ ,329304
+ ,325560
+ ,325560
+ ,325560
+ ,325560
+ ,325560
+ ,688779
+ ,467427
+ ,325486
+ ,325560
+ ,702380
+ ,325560
+ ,420968
+ ,328727
+ ,348678
+ ,416776
+ ,331824
+ ,319582
+ ,325560
+ ,318521
+ ,322046
+ ,4324047
+ ,325560
+ ,325560
+ ,325906
+ ,325560
+ ,696348
+ ,325560
+ ,325560
+ ,364885
+ ,325560
+ ,325560
+ ,353417
+ ,324523
+ ,297476
+ ,261173
+ ,311464
+ ,327957
+ ,-78375
+ ,325560
+ ,365732
+ ,311807
+ ,342165
+ ,387732
+ ,378519
+ ,358934
+ ,325560
+ ,711969
+ ,247405
+ ,325838
+ ,325560
+ ,420383
+ ,636765
+ ,325985
+ ,325560
+ ,314025
+ ,325540
+ ,456657
+ ,329537
+ ,501709
+ ,318020
+ ,-297706
+ ,-572920
+ ,404480
+ ,325762
+ ,355822
+ ,325560
+ ,311594
+ ,306351
+ ,324881
+ ,372928
+ ,320576
+ ,318519
+ ,322649
+ ,325560
+ ,369376
+ ,325560
+ ,372426
+ ,416002
+ ,325560
+ ,325560
+ ,469107
+ ,325560
+ ,301731
+ ,324005
+ ,325560
+ ,325560
+ ,240869
+ ,324598
+ ,325560
+ ,319951
+ ,335452
+ ,322145
+ ,225986
+ ,332961
+ ,327748
+ ,283662
+ ,325685
+ ,328233
+ ,325560
+ ,373683
+ ,235561
+ ,331488
+ ,319634
+ ,316708
+ ,382409
+ ,428370
+ ,325560
+ ,-58143
+ ,325560
+ ,325560
+ ,326126
+ ,387722
+ ,325560
+ ,325043
+ ,325560
+ ,325560
+ ,347262
+ ,588864
+ ,325560
+ ,325246
+ ,821730
+ ,325560
+ ,325560
+ ,325560
+ ,238675
+ ,455881
+ ,700368
+ ,351483
+ ,302925
+ ,325560
+ ,387978
+ ,308271
+ ,493408
+ ,339995
+ ,325560
+ ,608419
+ ,271483
+ ,325560
+ ,325632
+ ,325560
+ ,264449
+ ,338197
+ ,325748
+ ,325560
+ ,325560
+ ,329245
+ ,334184
+ ,318314
+ ,407560
+ ,325560
+ ,326389
+ ,326431
+ ,333411
+ ,325560
+ ,392558
+ ,191521
+ ,325560
+ ,325560
+ ,327556
+ ,651939
+ ,783310
+ ,423262
+ ,323010
+ ,337430
+ ,325599
+ ,325356
+ ,319635
+ ,312448
+ ,345811
+ ,324967
+ ,325560
+ ,379825
+ ,332013
+ ,325560
+ ,325560
+ ,298731
+ ,373177
+ ,325560
+ ,307245
+ ,354624
+ ,197687
+ ,328576
+ ,325559
+ ,790090
+ ,328451
+ ,2519076
+ ,990576
+ ,325560
+ ,563925
+ ,509665
+ ,323385
+ ,325560
+ ,325560
+ ,450296
+ ,255027
+ ,325560
+ ,360962
+ ,458343
+ ,407198
+ ,876607
+ ,-37216
+ ,325930
+ ,361517
+ ,334272
+ ,1151176
+ ,325560
+ ,543856
+ ,418530
+ ,325560
+ ,325560
+ ,329118
+ ,774497
+ ,388386
+ ,327182
+ ,325560
+ ,325560
+ ,325560
+ ,325560
+ ,929144
+ ,331767
+ ,325560
+ ,326960
+ ,325560
+ ,418341
+ ,317234
+ ,343222
+ ,306844
+ ,325560
+ ,4108272
+ ,369419
+ ,340580
+ ,321024
+ ,431809
+ ,325560
+ ,243650
+ ,356245
+ ,345253
+ ,211928
+ ,418799
+ ,325560
+ ,129302
+ ,279230
+ ,597793
+ ,300381
+ ,325560
+ ,325560
+ ,328157
+ ,325560
+ ,325560
+ ,325560
+ ,376685
+ ,454195
+ ,325806
+ ,325560
+ ,413743
+ ,307062
+ ,348695
+ ,325560
+ ,1443586
+ ,325560
+ ,363713
+ ,336704
+ ,436230
+ ,297761
+ ,301186
+ ,325560
+ ,325560
+ ,317365
+ ,353179
+ ,325560
+ ,325560
+ ,324047
+ ,319775
+ ,335137
+ ,235098
+ ,326736
+ ,336260
+ ,511939
+ ,521016
+ ,325567
+ ,325560
+ ,325560
+ ,307705
+ ,1367203
+ ,325557
+ ,21267
+ ,325560
+ ,325560
+ ,450033
+ ,325560
+ ,377028
+ ,325560
+ ,386225
+ ,153661
+ ,325898
+ ,325560
+ ,320249
+ ,343945
+ ,325560
+ ,326156
+ ,338381
+ ,322265
+ ,325560
+ ,325560
+ ,227033
+ ,325560
+ ,286849
+ ,323351
+ ,532682
+ ,376641
+ ,346145
+ ,314832
+ ,485538
+ ,325560
+ ,291221
+ ,325560
+ ,331828
+ ,325560
+ ,325560
+ ,1485329
+ ,418876
+ ,310902
+ ,325560
+ ,344282
+ ,289197
+ ,331345
+ ,357257
+ ,325560
+ ,325586
+ ,1779876
+ ,332202
+ ,325560
+ ,358649
+ ,264512
+ ,325560
+ ,325560
+ ,302211
+ ,349729
+ ,325560
+ ,326638
+ ,312275
+ ,325560
+ ,268673
+ ,325536
+ ,269236
+ ,319771
+ ,171493
+ ,912684
+ ,325560
+ ,481231
+ ,325560
+ ,325560
+ ,406339
+ ,325560
+ ,328726
+ ,279268
+ ,377934
+ ,325560
+ ,325560
+ ,325560
+ ,408247
+ ,325560
+ ,315409
+ ,367772
+ ,317967
+ ,325560
+ ,323117
+ ,335962
+ ,325314
+ ,325560
+ ,299715
+ ,325560
+ ,373399
+ ,325560
+ ,305442
+ ,325560
+ ,318765
+ ,322741
+ ,286146
+ ,984885
+ ,232942
+ ,333463
+ ,322876
+ ,325560
+ ,299446
+ ,325560
+ ,325560
+ ,370225
+ ,325560
+ ,325560
+ ,325560
+ ,6282929
+ ,513294
+ ,337724
+ ,331514
+ ,319844
+ ,211742
+ ,324598
+ ,313213
+ ,325560
+ ,327055
+ ,325871
+ ,1220017
+ ,323299
+ ,325560
+ ,349365
+ ,541063
+ ,325560
+ ,332128
+ ,-1212617
+ ,325560
+ ,324295
+ ,356850
+ ,325560
+ ,325560
+ ,325560
+ ,219060
+ ,325560
+ ,325590
+ ,1457425
+ ,697458
+ ,322076)
> par4 = 'No season'
> par3 = ''
> par2 = ''
> par1 = 'Net Wealth of Students at the end of the Stock Market Game'
> ylimmax = ''
> ylimmin = ''
> ylab = 'Wealth (EUR)'
> xlab = 'student'
> main = 'Wealth of students'
> #'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. 
-1213000   325300   325600   399200   350600  6283000 
> n <- length(x)
> postscript(file="/var/www/wessaorg/rcomp/tmp/17evt1295816083.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/2629a1295816083.tab") 
> 
> try(system("convert tmp/17evt1295816083.ps tmp/17evt1295816083.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.550   0.070   0.635