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(11.73,11.74,11.65,11.38,11.53,11.75,11.82,11.83,11.63,11.55,11.4,11.4,11.63,11.46,11.35,11.7,11.52,11.64,11.9,11.73,11.7,11.54,11.97,11.64,11.98,11.79,11.66,11.96,11.83,12.36,12.53,12.55,12.53,12.24,12.34,12.05,12.22,12.23,11.92,12.13,12.1,12.15,12.23,12.08,12.02,11.93,12.16,11.87,11.93,11.79,11.43,11.63,11.93,11.89,11.83,11.59,12.04,11.81,11.9,11.72,11.91,11.94,11.91,11.84,12.01,11.89,11.8,11.7,11.5,11.76,11.61,11.27,11.64,11.39,11.54,11.62,11.59,11.44,11.31,11.56,11.4,11.51,11.5,11.24,11.8,11.87,11.86,12.11,11.92,12.61,13.34,13.31,13.47,13.24,13.18,13.3,13.15,13.47,13.65,13.52,14.13,14.84,15.29,15.51,15.43,15.42,15.56,15.43,15.36,15.18,15.41,15.15,15.21,15.09,15.09,15.5,15.41,15.42,15.47,15.23,15.59,15.22,15.45,15.02,15.5,15.59)
> par3 = ''
> par2 = ''
> par1 = 'Prijs Zalm'
> ylab = 'Tijd'
> xlab = 'Euro per kg'
> main = 'Prijs zalm'
> #'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/1sgp01253864698.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()
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/2y8tw1253864698.tab") 
> 
> system("convert tmp/1sgp01253864698.ps tmp/1sgp01253864698.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.373   0.168   0.459