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.

> y <- c(1198.35,1183.26,1141.2,1049.33,1101.6,1030.71,1089.41,1186.69,1169.43,1104.49,1073.87,1115.1,1095.63,1036.19,1057.08,1020.62,987.48,919.32,919.14,872.81,797.87,735.09,825.88,903.25,896.24,968.75,1166.36,1282.83,1267.38,1280,1400.38,1385.59,1322.7,1330.63,1378.55,1468.36,1481.14,1549.38,1526.75,1473.99,1455.27,1503.35,1530.62,1482.37,1420.86,1406.82,1438.24,1418.3,1400.63,1377.94,1335.85,1303.82,1276.66,1270.2,1270.09,1310.61,1294.87,1280.66,1280.08,1248.29,1249.48,1207.01,1228.81,1220.33,1234.18,1191.33,1191.5,1156.85,1180.59,1203.6,1181.27)
> x <- c(2584.25,2679.07,2589.73,2457.46,2517.3,2386.53,2453.37,2529.66,2475.14,2525.93,2480.93,2229.85,2169.14,2030.98,2071.37,1953.35,1748.74,1696.58,1900.09,1908.64,1881.46,2100.18,2672.2,3136,2994.38,3168.22,3751.41,3925.43,3719.52,3757.12,3722.23,4127.47,4162.5,4441.82,4325.29,4350.83,4384.47,4639.4,4697.86,4614.76,4471.65,4305.23,4433.57,4388.53,4140.3,4144.38,4070.78,3906.01,3795.91,3703.32,3675.8,3911.06,3912.28,3839.25,3744.63,3549.25,3394.14,3264.26,3328.8,3223.98,3228.01,3112.83,3051.67,3039.71,3125.67,3106.54)
> par6 = ''
> par5 = ''
> par4 = 'S&P 500 monthly close'
> par3 = ''
> par2 = ''
> par1 = 'Bel 20 monthly close'
> ylab = 'Yt'
> xlab = 'Xt'
> #'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/1kuiv1290809103.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> op <- par(mfrow=c(2,2))
> plot(x,type='b',main='Plot of x',xlab=xlab,ylab=ylab)
> plot(y,type='b',main='Plot of y',xlab=xlab,ylab=ylab)
> hist(x)
> hist(y)
> 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,'Bivariate Dataseries',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Name of dataseries x',header=TRUE)
> a<-table.element(a,par1)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Source of x',header=TRUE)
> a<-table.element(a,par2)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Description of x',header=TRUE)
> a<-table.element(a,par3)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Name of dataseries y',header=TRUE)
> a<-table.element(a,par4)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Source of y',header=TRUE)
> a<-table.element(a,par5)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Description of y',header=TRUE)
> a<-table.element(a,par6)
> 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/2qdfp1290809103.tab") 
> 
> try(system("convert tmp/1kuiv1290809103.ps tmp/1kuiv1290809103.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.382   0.173   1.188