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(55.57
+ ,56.5
+ ,53.83
+ ,52.29
+ ,50.97
+ ,51.18
+ ,51.5
+ ,53.8
+ ,50.7
+ ,49.05
+ ,48.44
+ ,53.77
+ ,54.67
+ ,53.96
+ ,54.03
+ ,50.52
+ ,48.83
+ ,53.93
+ ,62.2
+ ,58.23
+ ,60.93
+ ,63.06
+ ,61.77
+ ,64.48
+ ,69.38
+ ,71
+ ,77.89
+ ,71.43
+ ,69.15
+ ,69.88
+ ,69.64
+ ,67.18
+ ,61.18
+ ,50.14
+ ,42.2
+ ,44.8
+ ,49.04
+ ,45.56
+ ,42.63
+ ,49.2
+ ,57.43
+ ,54.11
+ ,58.65
+ ,58.6
+ ,60.15
+ ,65.36
+ ,68.83
+ ,73.61
+ ,72
+ ,74.46
+ ,81.22
+ ,81.41
+ ,80.62
+ ,81.43
+ ,80.84
+ ,82.4
+ ,91.32
+ ,103.89
+ ,132.32
+ ,142.13
+ ,142.2
+ ,143.78
+ ,145.2
+ ,141.22
+ ,140.6
+ ,143.25
+ ,147.25
+ ,147.97
+ ,144.06
+ ,141.44
+ ,141.44
+ ,145.44
+ ,148.94
+ ,152.94
+ ,156.94
+ ,161.94
+ ,161.83
+ ,166.83
+ ,169.39
+ ,164.75
+ ,168.44
+ ,151.23
+ ,172.22
+ ,176.22
+ ,171.86
+ ,167.86
+ ,174.51
+ ,175.29
+ ,180.58
+ ,187.58
+ ,189.97
+ ,186.05
+ ,190.02
+ ,197.02
+ ,204.02
+ ,197.02
+ ,197.02
+ ,187.94
+ ,186.56
+ ,181.28
+ ,191.34
+ ,196.52
+ ,185.54
+ ,195.87
+ ,204.45
+ ,208.2
+ ,215.15
+ ,214.5
+ ,207.04
+ ,205.99
+ ,200.98
+ ,204.94
+ ,197.94
+ ,190.94
+ ,185.12
+ ,192.12
+ ,199.12
+ ,198.96
+ ,205.96
+ ,201.87
+ ,208.82
+ ,204.49
+ ,197.99
+ ,194.88
+ ,193.67
+ ,200.23
+ ,201.27
+ ,195.55
+ ,195.55
+ ,201.06
+ ,208.06
+ ,208.06
+ ,202.97
+ ,204.58
+ ,199.73
+ ,197.35
+ ,196.04
+ ,195.52
+ ,196.45
+ ,189.82
+ ,183.17
+ ,186.67
+ ,186.67
+ ,188
+ ,181.84
+ ,174.89
+ ,172.82
+ ,178.78
+ ,192.55
+ ,175.91
+ ,179.21
+ ,173.19
+ ,165.36
+ ,153.8
+ ,145.4
+ ,151.4
+ ,150.3
+ ,144.3
+ ,145.15
+ ,151.15
+ ,155.04
+ ,159.86
+ ,155.65
+ ,155.61
+ ,153.89
+ ,153.88
+ ,156.03
+ ,151.03
+ ,151.03
+ ,153.5
+ ,158.67
+ ,156.33
+ ,160.97
+ ,164.24
+ ,161.63
+ ,155.63
+ ,148.63
+ ,145.05
+ ,151.05
+ ,150.03
+ ,150.95
+ ,155.55
+ ,151.96
+ ,145.96
+ ,145.18
+ ,148.73
+ ,154.73
+ ,161.22
+ ,164.55
+ ,165.22
+ ,162
+ ,160.91
+ ,162.14
+ ,159.79
+ ,155.73
+ ,159.79
+ ,161.5
+ ,159
+ ,155.4
+ ,136.2
+ ,116.58
+ ,111.58
+ ,106.59
+ ,110.35
+ ,106.35
+ ,101.46
+ ,97.95
+ ,101.95
+ ,101.29
+ ,99.33
+ ,99.14
+ ,97.09
+ ,101.09
+ ,103.85
+ ,102.81
+ ,102.08
+ ,115.78
+ ,105.59
+ ,107.17
+ ,104.42
+ ,105.01
+ ,101.48
+ ,99.01
+ ,97.26
+ ,99.16
+ ,97.79
+ ,100.72
+ ,105.03
+ ,104.62
+ ,108.43
+ ,107.55
+ ,106.76
+ ,106.61
+ ,105.14
+ ,104.62
+ ,102.59
+ ,103.92
+ ,104.77
+ ,104.91
+ ,105.88
+ ,103.85
+ ,106.08
+ ,106.08
+ ,106.3
+ ,106.24
+ ,110.02
+ ,112.45
+ ,110.3
+ ,110.72
+ ,111.56
+ ,113.39
+ ,110.62
+ ,109.08
+ ,104.08
+ ,103.81
+ ,101.27
+ ,97.64
+ ,99.99
+ ,98.43
+ ,99.39
+ ,98.33
+ ,100.97
+ ,99.31
+ ,105.28
+ ,97.75
+ ,100.92
+ ,102.75
+ ,102.25
+ ,101.48
+ ,103.34
+ ,103.47
+ ,100.51
+ ,101.56
+ ,101.94
+ ,100.36
+ ,100.18
+ ,99.72
+ ,96.86
+ ,97.1
+ ,97.94
+ ,99.68
+ ,100.32
+ ,104.32
+ ,104.37
+ ,102.29
+ ,100.91)
> 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/11gpy1321395385.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/2b93w1321395385.tab") 
> 
> try(system("convert tmp/11gpy1321395385.ps tmp/11gpy1321395385.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.544   0.092   0.655