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. > x <- c(17.6 + ,36.33333333 + ,37.93333333 + ,41.86666667 + ,47.2 + ,51.53333333 + ,52.33333333 + ,52.66666667 + ,53.86666667 + ,54.2 + ,54.73333333 + ,55 + ,55.06666667 + ,55.46666667 + ,55.93333333 + ,56.2 + ,56.33333333 + ,56.66666667 + ,57.13333333 + ,57.46666667 + ,57.46666667 + ,57.66666667 + ,57.66666667 + ,57.8 + ,57.86666667 + ,58.06666667 + ,58.2 + ,58.26666667 + ,58.26666667 + ,58.33333333 + ,58.4 + ,58.8 + ,58.8 + ,58.93333333 + ,59 + ,59.13333333 + ,59.13333333 + ,59.4 + ,59.46666667 + ,59.53333333 + ,59.53333333 + ,59.53333333 + ,59.6 + ,59.66666667 + ,59.66666667 + ,59.73333333 + ,59.73333333 + ,59.73333333 + ,59.8 + ,59.8 + ,59.86666667 + ,60.13333333 + ,60.13333333 + ,60.13333333 + ,60.33333333 + ,60.4 + ,60.46666667 + ,60.73333333 + ,60.8 + ,60.86666667 + ,61 + ,61 + ,61.26666667 + ,61.26666667 + ,61.33333333 + ,61.4 + ,61.4 + ,61.46666667 + ,61.46666667 + ,61.6 + ,61.6 + ,61.6 + ,61.66666667 + ,61.8 + ,61.86666667 + ,61.93333333 + ,61.93333333 + ,61.93333333 + ,62 + ,62.13333333 + ,62.2 + ,62.4 + ,62.4 + ,62.4 + ,62.4 + ,62.4 + ,62.53333333 + ,62.6 + ,62.6 + ,62.6 + ,62.6 + ,62.66666667 + ,62.66666667 + ,62.8 + ,62.8 + ,62.8 + ,62.86666667 + ,62.86666667 + ,62.93333333 + ,62.93333333 + ,63 + ,63 + ,63.06666667 + ,63.13333333 + ,63.2 + ,63.26666667 + ,63.33333333 + ,63.33333333 + ,63.46666667 + ,63.53333333 + ,63.53333333 + ,63.53333333 + ,63.6 + ,63.66666667 + ,63.66666667 + ,63.66666667 + ,63.73333333 + ,63.73333333 + ,63.73333333 + ,63.86666667 + ,64 + ,64.06666667 + ,64.06666667 + ,64.06666667 + ,64.13333333 + ,64.2 + ,64.2 + ,64.26666667 + ,64.26666667 + ,64.4 + ,64.46666667 + ,64.6 + ,64.6 + ,64.66666667 + ,64.66666667 + ,64.66666667 + ,64.66666667 + ,64.66666667 + ,64.66666667 + ,64.66666667 + ,64.66666667 + ,64.73333333 + ,64.8 + ,64.86666667 + ,65 + ,65 + ,65.06666667 + ,65.06666667 + ,65.2 + ,65.46666667 + ,65.46666667 + ,65.6 + ,65.66666667 + ,65.66666667 + ,65.8 + ,65.8 + ,65.8 + ,65.93333333 + ,66 + ,66 + ,66 + ,66 + ,66 + ,66 + ,66 + ,66.06666667 + ,66.2 + ,66.2 + ,66.26666667 + ,66.26666667 + ,66.46666667 + ,66.53333333 + ,66.53333333 + ,66.53333333 + ,66.6 + ,66.73333333 + ,66.73333333 + ,66.73333333 + ,66.73333333 + ,66.8 + ,66.86666667 + ,66.93333333 + ,67.06666667 + ,67.13333333 + ,67.33333333 + ,67.46666667 + ,67.46666667 + ,67.53333333 + ,67.6 + ,67.6 + ,67.8 + ,68.06666667 + ,68.6 + ,68.66666667 + ,68.66666667 + ,68.73333333 + ,68.8 + ,68.8 + ,68.86666667 + ,69.53333333 + ,69.6 + ,69.6 + ,69.86666667 + ,69.93333333 + ,70.06666667 + ,70.06666667 + ,70.46666667 + ,70.66666667 + ,70.66666667 + ,70.73333333 + ,70.73333333 + ,70.73333333 + ,70.73333333 + ,70.8 + ,70.8 + ,71.06666667 + ,71.46666667 + ,71.53333333 + ,71.66666667 + ,71.66666667 + ,72.06666667 + ,72.73333333 + ,72.73333333 + ,72.86666667 + ,73) > par1 = '15' > xlab = 'Final Year Grade' > main = 'With Placement' > #'GNU S' R Code compiled by R2WASP v. 1.0.44 () > #Author: Dr. Ian E. Holliday > #To cite this work: Ian E. Holliday, 2009, 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: > postscript(file="/var/www/html/rcomp/tmp/1vm081287253176.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > par1 <- as.numeric(par1) > myhist<-hist(x, breaks=par1, col=2, xlab=xlab) > dev.off() null device 1 > postscript(file="/var/www/html/rcomp/tmp/2vm081287253176.ps",horizontal=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/www/html/rcomp/tmp/3vm081287253176.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(density(x), xlab=xlab) > 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,'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/www/html/rcomp/tmp/4g5gd1287253176.tab") > > try(system("convert tmp/1vm081287253176.ps tmp/1vm081287253176.png",intern=TRUE)) character(0) > try(system("convert tmp/2vm081287253176.ps tmp/2vm081287253176.png",intern=TRUE)) character(0) > try(system("convert tmp/3vm081287253176.ps tmp/3vm081287253176.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 0.716 0.481 0.963