R version 2.15.2 (2012-10-26) -- "Trick or Treat" Copyright (C) 2012 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i686-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(3,5,4,2,6,1,4,4,5,4,3,3,4,3,2,5,4,3,6,2) > par1 = '7' > xlab = 'Survey Score' > main = 'Maternal IQ' > par1 <- '10' > x <- x[!is.na(x)] > postscript(file="/var/wessaorg/rcomp/tmp/1n5381352566631.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, xlab=xlab, main=main) > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/2puu01352566631.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/3zw2x1352566631.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(density(x), xlab=xlab, main=main) > 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,signif(mean(x), 6)) > 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,signif(sd(x), 6)) > 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/4u1211352566631.tab") > > try(system("convert tmp/1n5381352566631.ps tmp/1n5381352566631.png",intern=TRUE)) character(0) > try(system("convert tmp/2puu01352566631.ps tmp/2puu01352566631.png",intern=TRUE)) character(0) > try(system("convert tmp/3zw2x1352566631.ps tmp/3zw2x1352566631.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 1.950 0.360 2.312