R version 2.13.0 (2011-04-13)
Copyright (C) 2011 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i486-pc-linux-gnu (32-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(65.03
+ ,61.94
+ ,62.68
+ ,69.8
+ ,70.81
+ ,70.9
+ ,74.52
+ ,73.18
+ ,64.33
+ ,59.44
+ ,59.36
+ ,62.16
+ ,54.37
+ ,59.11
+ ,60.55
+ ,64.04
+ ,63.75
+ ,67.29
+ ,73.73
+ ,72.39
+ ,78.86
+ ,85.16
+ ,94.71
+ ,91.29
+ ,92.56
+ ,94.84
+ ,105.12
+ ,111.67
+ ,125.45
+ ,133.69
+ ,134.08
+ ,117
+ ,103.88
+ ,77.6
+ ,57.55
+ ,42.78
+ ,41.43
+ ,39.15
+ ,47.48
+ ,49.7
+ ,58.79
+ ,69.59
+ ,64.27
+ ,71
+ ,69.27
+ ,75.47
+ ,77.97
+ ,74.61
+ ,79.55
+ ,77.3
+ ,81.1
+ ,84.65
+ ,74.22
+ ,75.4
+ ,76.03
+ ,76.67
+ ,75.01
+ ,81.96
+ ,84.25
+ ,89.25
+ ,91.55
+ ,88.92
+ ,90.3
+ ,88.8
+ ,88.03
+ ,89.13
+ ,91.11
+ ,91.94
+ ,91.45
+ ,91.54
+ ,91.02
+ ,91.38
+ ,91.06
+ ,88.86
+ ,89.11
+ ,88.15
+ ,86.19
+ ,87.35
+ ,86
+ ,89.34
+ ,92
+ ,89.68
+ ,90.77
+ ,91.08
+ ,90.67
+ ,89.03
+ ,87.69
+ ,86.94
+ ,86.75
+ ,86.9
+ ,85.58
+ ,85.4
+ ,84.32
+ ,85.13
+ ,86.03
+ ,86.2
+ ,91.42
+ ,93.57
+ ,98.9
+ ,99.48
+ ,97.88
+ ,97.94
+ ,90.08
+ ,99.63
+ ,102.2
+ ,101.28
+ ,104.42
+ ,105.15
+ ,105.02
+ ,104.76
+ ,103.33
+ ,101.16
+ ,101.19
+ ,97.18
+ ,97.98
+ ,101.42
+ ,101.07
+ ,102.33
+ ,102.33
+ ,104
+ ,105.6
+ ,105.4
+ ,104.77
+ ,104.79
+ ,104.31
+ ,106.46
+ ,102.86
+ ,107.94
+ ,108.1
+ ,108.35
+ ,108.47
+ ,108.83
+ ,112.79
+ ,110.46
+ ,106.25
+ ,106.53
+ ,107.95
+ ,109.66
+ ,107.16
+ ,108.15
+ ,111.16
+ ,112.19
+ ,112.35
+ ,112.2
+ ,111.9
+ ,112.76
+ ,112.53
+ ,113.5
+ ,109.96
+ ,113.89
+ ,111.05
+ ,109.16
+ ,101
+ ,97.18
+ ,102.19
+ ,103.88
+ ,99.35
+ ,99.77
+ ,99.65
+ ,97.69
+ ,96.91
+ ,100.93
+ ,99.06
+ ,99.49
+ ,97.83
+ ,99.59
+ ,101.14
+ ,100.53
+ ,100.59
+ ,100.59
+ ,102.8
+ ,101.56
+ ,100.29
+ ,100.51
+ ,100.22
+ ,100.22
+ ,99.01
+ ,99.09
+ ,100.74
+ ,99.29
+ ,96.9
+ ,97.3
+ ,99.37
+ ,94.81
+ ,93.01
+ ,93.26
+ ,93.26
+ ,94.16
+ ,95.41
+ ,91.16
+ ,91.16
+ ,90.61
+ ,92.89
+ ,94.77
+ ,96.25
+ ,94.94
+ ,94.94
+ ,94.94
+ ,96.89
+ ,96.65
+ ,96.2
+ ,96.2
+ ,95.15
+ ,97.43
+ ,98.05
+ ,97.24
+ ,97.24
+ ,95.93
+ ,97.5
+ ,98.4
+ ,99.87
+ ,99.28
+ ,99.2
+ ,99.59
+ ,97.4
+ ,95.2
+ ,97.06
+ ,95.7
+ ,94.89
+ ,93.79
+ ,86.68
+ ,86.88
+ ,86.88
+ ,79.3
+ ,80.66
+ ,83.75
+ ,85.38
+ ,87.27
+ ,86.65
+ ,87.74
+ ,87.58
+ ,82.26
+ ,82.26
+ ,85.44
+ ,85.9
+ ,85.08
+ ,85.37
+ ,85.37
+ ,88.9
+ ,88.84
+ ,86.63
+ ,89.08
+ ,86.45
+ ,86.45
+ ,86.02
+ ,89.53
+ ,89.19
+ ,87.24
+ ,87.91
+ ,90.21
+ ,89
+ ,89.28
+ ,87.96
+ ,85.28
+ ,86.89
+ ,86.39
+ ,85.92
+ ,79.85
+ ,80.58
+ ,84.45
+ ,81.67
+ ,82.82
+ ,79.2
+ ,85.97
+ ,77.61
+ ,75.67
+ ,79.16
+ ,79.68
+ ,82.98
+ ,85.6
+ ,86.41
+ ,85.57
+ ,84.77
+ ,86.8
+ ,86.48
+ ,88.34
+ ,88.21
+ ,86.11
+ ,87.4
+ ,87.4
+ ,91.59
+ ,93.17
+ ,90.2
+ ,93.96
+ ,93.2
+ ,86.21)
> par4 = '12'
> par3 = 'Prices paid to growers in exporting Member countries in US cents per lb (Arabica, 1977/1 - 2006/12)'
> par2 = 'www.ico.org'
> par1 = 'colombia'
> ylimmax = ''
> ylimmin = ''
> ylab = 'value'
> xlab = 'index or time'
> main = ''
> postscript(file="/var/wessaorg/rcomp/tmp/1r1wl1321395461.ps",horizontal=F,onefile=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/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/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/wessaorg/rcomp/tmp/2gmm71321395461.tab") 
> 
> try(system("convert tmp/1r1wl1321395461.ps tmp/1r1wl1321395461.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.545   0.097   0.822