x <- c(18450,21845,26488,22394,28057,25451,24872,33424,24052,28449,33533,37351,19969,21701,26249,24493,24603,26485,30723,34569,26689,26157,32064,38870,21337,19419,23166,28286,24570,24001,33151,24878,26804,28967,33311,40226,20504,23060,23562,27562,23940,24584,34303,25517,23494,29095,32903,34379,16991,21109,23740,25552,21752,20294,29009,25500,24166,26960,31222,38641,14672,17543,25453,32683,22449,22316,27595,25451,25421,25288,32568,35110,16052,22146,21198,19543,22084,23816,29961,26773,26635,26972,30207,38687,16974,21697,24179,23757,25013,24019,30345,24488,25156,25650,30923,37240,17466,19463,24352,26805,25236,24735,29356,31234,22724,28496,32857,37198) par3 = 'Maandelijkse verkoopcijfers Australische wijnene 1985-1993' par2 = 'http://www.robjhyndman.com/TDSL/indes.htm' par1 = 'Maandelijkde verkoopcijfers wijn 1985-1993' ylab = 'Afzet (in liter)' xlab = 'Jan 1985 - Dec 1993' main = 'Maandcijfers wijn 1985-1993' #'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/14ck21267614549.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/2i4kx1267614549.tab") try(system("convert tmp/14ck21267614549.ps tmp/14ck21267614549.png",intern=TRUE))