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 <- array(list(66.67,66.33,64.33,64,63.33,61.33,64.67,63,60.67,63.67,60.67,61.67,62.33,60.33,59.67,60.33,59.33,58.67,58.67,59.33,57.33,59.33,56,53.67,58.67,49.33,71.33,70.33,69,66,66,63.33,65.33,64.33,64,61.67,63.67,64.67,61.67,62,61.33,63.67,61.33,62.33,59.67,59.33,61.67,58.67,58,56.67,59.67,58,57,57.67,58.67,55.33,56,55.67,53.33,53.67,51,47,4.33,70,68.67,67.67,66,65.67,65.67,63.67,63.67,64,62,62,61.67,61.67,63.33,61,62.33,60.33,60.33,60.67,57.67,58.33,58,57.33,56.67,58,55.33,55.67,54.67,56.33,55,55,54.67,54.33,49,48.33,49.67,43.67,6.33,3,66.67,67.33,65.33,66,65.67,66.67,65.67,65,64.67,66.67,63.67,63.33,63.67,63.33,63.67,63,61.67,61.33,60.67,60,61.67,61.33,58.67,60.33,59.67,59.33,59.67,61,61,60,60,58.67,58.33,58,56.33,54.67,55.33,54,52.67,44,65.67,65,66.33,64,62.33,61.33,63,63.67,62,61.33,64.67,62.67,64,61,60.67,59.67,60.33,56.67,56.67,54.33,51,51,47,68,65,64,64,64,62,61,60,60,62,60,59,61,60,60,58,58,60,58,59,56,54,51,47),dim=c(1,189),dimnames=list(c('nopment'),1:189))
>  y <- array(NA,dim=c(1,189),dimnames=list(c('nopment'),1:189))
>  for (i in 1:dim(x)[1])
+  {
+  	for (j in 1:dim(x)[2])
+  	{
+  		y[i,j] <- as.numeric(x[i,j])
+  	}
+  }
> par2 = '1'
> par1 = '10'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Dr. Ian E. Holliday
> #To cite this work: Ian E. Holliday, 2011, 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: 
> #Technical description: 
> par2 <- as.numeric(par2)
> x <- as.numeric(y[par2,])
> postscript(file="/var/wessaorg/rcomp/tmp/1s0ii1320706184.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> par1 <- as.numeric(par1)
> myhist<-hist(x, breaks=par1, col=2)
> dev.off()
null device 
          1 
> postscript(file="/var/wessaorg/rcomp/tmp/2o4si1320706184.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> qqnorm(x)
> qqline(x, col=2)
> dev.off()
null device 
          1 
> postscript(file="/var/wessaorg/rcomp/tmp/3sdya1320706184.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(density(x))
> 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,'Descriptive Statistics',3,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'mean',header=TRUE)
> a<-table.element(a,mean(x))
> a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm','formula','click to see the formula'))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'standard deviation',header=TRUE)
> a<-table.element(a,sd(x))
> a<-table.element(a,hyperlink('http://www.xycoon.com/unbiased1.htm','formula','click to see the formula'))
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/4pvpt1320706184.tab") 
> 
> try(system("convert tmp/1s0ii1320706184.ps tmp/1s0ii1320706184.png",intern=TRUE))
character(0)
> try(system("convert tmp/2o4si1320706184.ps tmp/2o4si1320706184.png",intern=TRUE))
character(0)
> try(system("convert tmp/3sdya1320706184.ps tmp/3sdya1320706184.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  1.004   0.177   1.187