x <- c(20
,25
,15
,15
,25
,25
,25
,21
,30
,25
,20
,40
,13
,30
,25
,20
,25
,20
,25
,20
,20
,15
,15
,12
,20
,5
,20
,15
,25
,22
,20
,22
,25
,20
,20
,35
,30
,25
,20
,20
,20
,25
,25
,15
,20
,35
,25
,25
,30
,23
,10
,22
,25
,25
,22
,30
,20
,25
,25
,22
,25
,25
,25
,22
,25
,12
,18
,20
,20
,22
,30
,25
,22
,20
,50
,30
,25
,20
,30
,22
,25
,30
,22
,25
,22
,22
,25
,25
,25
,20
,22
,15
,20
,30
,20
,25
,30
,35
,22
,12
,30
,15
,10
,30
,9
,25
,20
,20
,35
,25
,35
,30
,12
,25
,15
,25
,25
,20
,20
,6
,15
,40
,20
,40
,25
,25
,20
,15
,15
,22
,24
,22
,20
,25
,25
,25
,35
,40
,20
,22
,22
,20
,25
,25
,18
,25
,20
,25
,30
,20
,22
,35
,22
,25
,25
,25
,25
,22
,23
,35
,15
,25
,18
,22
,25
,25
,28
,30
,20
,25
,25
,30
,22
,30
,10
,10
,25
,20
,22
,25
,25
,15
,22
,25
,25
,28
,22
,30
,25
,20
,25
,25
,20
,30
,20
,30
,50
,19
,20
,28
,20
,25
,35
,25
,25
,15
,16
,20
,20
,25
,30
,20
,25
,25
,25
,20
,20
,25
,25
,30
,22
,20
,25
,25
,18
,18
,20
,25
,25
,30
,25
,20
,25
,20
,20
,20
,22
,18
,22
,20
,15
,25
,25
,20
,25
,15
,22
,25
,25
,15
,12
,25
,30
,22
,15
,22
,25
,12
,18
,30
,25
,25
,40
,24
,25
,15
,25
,20
,25
,25
,25
,20
,30
,20
,25
,30
,22
,25
,25
,25
,50
,19
,50
,25
,35
,20
,20
,20
,20
,20
,25
,25
,25
,20
,20
,20
,20
,25
,18
,25
,22
,22
,30
,30
,8
,20
,25
,30
,50
,22
,20
,10
,25
,25
,25
,25
,18
,25
,20
,25
,30
,18
,20
,25
,22
,22
,20
,20
,25
,20
,20
,20
,20
,25
,20
,10
,20
,25
,30
,25
,50
,30
,30
,50
,15
,25
,25
,22
,20
,22
,30
,25
,18
,22
,22
,30
,40
,25
,20
,10
,20
,9
,15
,20
,15
,20
,30
,12
,15
,12
,20
,15
,12
,25
,20
,25
,25
,25
,30
,20
,25
,15
,15
,22
,10
,15
,10
,20
,25
,20
,20
,38
,20
,20
,20
,40
,25
,25
,30
,25
,10
,20
,25
,12
,15
,25
,20
,22
,22
,20
,25
,25
,25
,15
,40
,20
,20
,16
,25
,15
,20
,25
,20
,30
,50
,20
,25
,20
,30
,30
,25
,25
,12
,25
,25
,25
,20
,20
,20
,15
,20
,25
,15
,25
,50
,30
,20
,20
,25
,12
,15
,20
,20
,35
,22
,15
,18
,30
,22
,12
,12
,20
,20
,15
,25
,15
,20
,20
,25
,18
,30
,20
,25
,25
,25
,20
,20
,25
,20
,22
,15
,15
,22
,20
,10
,25
,20
,20
,15
,12
,20
,5
,20
,15
,15
,25
,25
,25
,15
,25
,22
,25
,20
,18
,22
,25
,35
,25
,25
,25
,35
,30
,22
,30
,50
,15
,25
,24
,20
,25
,25
,25
,12
,15
,22
,25
,25
,25
,25
,15
,20
,20
,15
,35
,30
,20
,22
,65
,20
,25
,22
,20
,25
,25
,20
,25
,15
,20
,12
,15
,10
,25
,15
,30
,35
,25
,25
,25
,25
,25
,40
,40
,25
,25
,20
,25
,25
,22
,25
,30
,25
,25
,30
,25
,25
,30
,25
,25
,20
,22
,22
,20
,25
,22
,25
,22
,40
,25
,25
,25
,22
,20
,35
,20
,35
,25
,22
,25
,25
,25
,25
,25
,40
,25
,30
,25
,20
,25
,25
,30
,22
,22
,20
,15
,15
,25
,25
,20
,20
,15
,25
,15
,20
,22
,25
,15
,15
,18
,5
,15
,25
,18
,40
,25
,25
,20
,30
,20
,25
,25
,25
,22
,22
,25
,25
,30
,25
,25
,25
,25
,20
,20
,25
,25
,25
,25
,20
,30
,25
,22
,30
,20
,20
,30
,25
,25
,30
,20
,25
,25
,24
,25
,30
,18
,15
,22
,22
,25
,22
,22
,25
,15
,20
,22
,18
,35
,20
,20
,20
,25
,25
,30
,15
,25
,22
,26
,25
,20
,25
,25
,25
,22
,25
,25
,20
,22
,30
,15
,30
,25
,20
,25
,25
,35
,22
,20
,25
,20
,20
,18
,20
,22
,25
,10
,20
,25
,20
,20
,30
,25
,20
,15
,20
,25
,10
,20
,25
,22
,22
,25
,25
,15
,25
,20
,10
,25
,16
,25
,35
,25
,15
,25
,25
,30
,25
,10
,22
,20
,25
,20
,20
,25
,22
,18
,30
,19
,25
,20
,25
,20
,25
,20
,22
,12
,30
,12
,22
,25
,25
,25
,25
,30
,30
,10
,22
,22
,25
,20
,22
,20
,25
,20
,15
,25
,20
,25
,20
,30
,15
,40
,25
,20
,22
,22
,30
,20
,40
,20
,25
,20
,25
,20
,50
,50
,25
,25
,40
,30
,22
,30
,20
,25
,25
,30
,25
,25
,20
,18
,18
,28
,25
,22
,15
,40
,40
,12
,12
,18
,12
,25
,26
,18
,25
,22
,15
,25
,15
,15
,15
,25
,15
,12
,22
,20
,20
,25
,20
,12
,9
,15
,12
,15
,25
,20
,20
,15
,15
,30
,21
,25
,22
,22
,50
,15
,25
,15
,25
,22
,18
,50
,20
,50
,20
,20
,30
,25
,20
,22
,25
,50
,40
,25
,25
,25
,25
,30
,40
,25
,30
,20)
par3 = 'weerspiegelt de maximumprijs van shows van Studio 100'
par2 = 'http://bb.kdg.be/webapps/portal/frameset.jsp?tab_id=_2_1&url=%2fwebapps%2fblackboard%2fexecute%2flauncher%3ftype%3dCourse%26id%3d_40661_1%26url%3d'
par1 = 'Maximumprijs shows van Studio 100 in 2005'
ylab = 'prijzen'
xlab = 'shows'
main = 'Maximumprijs shows in 2005'
#'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/1w2lv1234730939.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()

#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/2e8201234730939.tab") 

system("convert tmp/1w2lv1234730939.ps tmp/1w2lv1234730939.png")

