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(175 + ,190 + ,150 + ,90 + ,90 + ,120 + ,90 + ,100 + ,100 + ,100 + ,90 + ,97 + ,100 + ,100 + ,90 + ,110 + ,150 + ,110 + ,120 + ,110 + ,100 + ,150 + ,150 + ,90 + ,95 + ,150 + ,80 + ,90 + ,91 + ,95 + ,78 + ,103 + ,67 + ,83 + ,113 + ,110 + ,110 + ,110 + ,175 + ,110 + ,150 + ,105 + ,225 + ,225 + ,155 + ,155 + ,80 + ,165 + ,110 + ,105 + ,84 + ,165 + ,90 + ,125 + ,180 + ,92 + ,105 + ,145 + ,90 + ,150 + ,130 + ,145 + ,88 + ,88 + ,88 + ,130 + ,100 + ,130 + ,100 + ,140 + ,52 + ,68 + ,63 + ,70 + ,110 + ,90 + ,115 + ,110 + ,150 + ,165 + ,165 + ,220 + ,145 + ,95 + ,125 + ,150 + ,170 + ,145 + ,145 + ,110 + ,100 + ,105 + ,105 + ,100 + ,90 + ,72 + ,75 + ,72 + ,90 + ,60 + ,145 + ,200 + ,82 + ,190 + ,92 + ,85 + ,150 + ,215 + ,190 + ,69 + ,97 + ,100 + ,65 + ,65 + ,65 + ,132 + ,65 + ,67 + ,97 + ,92 + ,92 + ,94 + ,97 + ,61 + ,97 + ,120 + ,70 + ,67 + ,70 + ,70 + ,88 + ,88 + ,84 + ,92 + ,110 + ,90 + ,110 + ,100 + ,170 + ,84 + ,79 + ,105 + ,75 + ,80 + ,80 + ,80 + ,83 + ,150 + ,150 + ,150 + ,150 + ,210 + ,150 + ,140 + ,140 + ,180 + ,145 + ,75 + ,84 + ,135 + ,90 + ,75 + ,76 + ,75 + ,49 + ,86 + ,69 + ,67 + ,167 + ,170 + ,142 + ,65 + ,65 + ,130 + ,215 + ,88 + ,85 + ,88 + ,88 + ,92 + ,66 + ,139 + ,153 + ,153 + ,198 + ,137 + ,152 + ,140 + ,140 + ,140 + ,98 + ,78 + ,88 + ,112 + ,158 + ,148 + ,129 + ,72 + ,88 + ,85 + ,81 + ,88 + ,86 + ,129 + ,89 + ,97 + ,85 + ,83 + ,80 + ,72 + ,86 + ,86 + ,79 + ,149 + ,140 + ,88 + ,193 + ,72 + ,75 + ,68 + ,68 + ,97 + ,53 + ,67 + ,67 + ,60 + ,67 + ,53 + ,60 + ,75 + ,65 + ,90 + ,75 + ,74 + ,65 + ,68 + ,68 + ,68 + ,52 + ,110 + ,100 + ,97 + ,77 + ,67 + ,120 + ,86 + ,107 + ,130 + ,138 + ,70 + ,208 + ,198 + ,72 + ,139 + ,85 + ,85 + ,88 + ,85 + ,105 + ,110 + ,90 + ,110 + ,160 + ,180 + ,115 + ,85 + ,180 + ,81 + ,90 + ,75 + ,78 + ,70 + ,88 + ,88 + ,87 + ,71 + ,87 + ,80 + ,133 + ,160 + ,96 + ,64 + ,70 + ,170 + ,95 + ,95 + ,95 + ,95 + ,150 + ,150 + ,215 + ,150 + ,150 + ,70 + ,63 + ,63 + ,70 + ,84 + ,84 + ,105 + ,150 + ,105 + ,150 + ,105 + ,105 + ,100 + ,95 + ,100 + ,100 + ,150 + ,78 + ,175 + ,225 + ,170 + ,175 + ,100 + ,230 + ,180 + ,85 + ,115 + ,90 + ,90 + ,105 + ,175 + ,88 + ,110 + ,69 + ,83 + ,58 + ,95 + ,115 + ,110 + ,115 + ,93 + ,67 + ,67 + ,67 + ,88 + ,96 + ,95 + ,75 + ,75 + ,75 + ,75 + ,70 + ,65 + ,65 + ,88 + ,75 + ,60 + ,96 + ,95 + ,95 + ,52 + ,95 + ,90 + ,95 + ,116 + ,108 + ,122 + ,58 + ,62 + ,97 + ,88 + ,62 + ,46 + ,76 + ,71 + ,67 + ,78 + ,74 + ,60 + ,70 + ,71 + ,78 + ,48 + ,74 + ,71 + ,46 + ,54 + ,112 + ,112 + ,98 + ,102 + ,125 + ,76 + ,48 + ,52 + ,70 + ,76 + ,48 + ,71) > par3 = '100' > par2 = '0.95' > par1 = 'two.sided' > #'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: > par2 <- as.numeric(par2) > par3 <- as.numeric(par3) > (tt <- t.test(x,mu=par3,alternative=par1,conf.level=par2)) One Sample t-test data: x t = 2.299, df = 391, p-value = 0.02203 alternative hypothesis: true mean is not equal to 100 95 percent confidence interval: 100.6472 108.2916 sample estimates: mean of x 104.4694 > > #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,'One Sample t-test',2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'H0',header=TRUE) > a<-table.element(a,tt$null.value) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Alternative',header=TRUE) > a<-table.element(a,tt$alternative) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'CI',header=TRUE) > a<-table.element(a,par2) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Sample Mean',header=TRUE) > a<-table.element(a,mean(x)) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'T-Test',header=TRUE) > a<-table.element(a,tt$statistic) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'DF',header=TRUE) > a<-table.element(a,tt$parameter) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'P-Value',header=TRUE) > a<-table.element(a,tt$p.value) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/www/html/rcomp/tmp/14vu71293665970.tab") > > > > proc.time() user system elapsed 0.221 0.048 0.984