R version 2.6.1 (2007-11-26)
Copyright (C) 2007 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(0.0920999483895251
+ ,-0.661235159527426
+ ,-0.545390217690751
+ ,1.84083710495651
+ ,1.46560381902488
+ ,-0.385977545699043
+ ,-6.66380275713979
+ ,-0.0308537217038178
+ ,2.99099773948675
+ ,-6.07956277426519
+ ,-3.32380776514134
+ ,-2.13534220368013
+ ,4.17726687644521
+ ,-1.88483511225136
+ ,4.32032586117556
+ ,5.01955700566159
+ ,-1.18473828988472
+ ,-3.52102075156362
+ ,-0.459480935761315
+ ,1.05369157570743
+ ,9.13157352610061
+ ,4.26114136236761
+ ,-7.87121212228509
+ ,1.55581634456701
+ ,-10.8887360210219
+ ,8.25296805537383
+ ,-1.83997332562592
+ ,-7.62224825377655
+ ,-5.40632098557146
+ ,2.59560800098151
+ ,3.37669355477046
+ ,2.51051188643414
+ ,-0.133112183983659
+ ,1.76509973840143
+ ,2.61993678174254
+ ,-2.13496336723294
+ ,-0.130859285441090
+ ,-2.17717514581710
+ ,3.32349169188177
+ ,-0.203694385559729
+ ,8.3942547620912
+ ,0.893649606235385
+ ,0.247317025903314
+ ,8.78115243855602
+ ,-1.25432061423584
+ ,10.1471620457646
+ ,-6.43495549200685
+ ,1.27193139250693
+ ,-15.6818171148577
+ ,4.37988560711793
+ ,11.2422582915534
+ ,3.20258069940299
+ ,-3.80525826075886
+ ,6.2472017910632
+ ,5.12525404526529
+ ,2.63104754246909
+ ,14.2559923818951
+ ,3.42817218699915
+ ,-11.3365485144944
+ ,2.78868989805804
+ ,5.41380690674063
+ ,-0.795184087460314
+ ,-0.522675955354885
+ ,5.03638977601517
+ ,-3.83618380577121
+ ,-2.04668547488907
+ ,4.77755094831181
+ ,-5.00099216112739
+ ,-11.0483905235327
+ ,-8.1477486460902
+ ,3.53824446863189
+ ,-1.79936835143724
+ ,0.222980922096426
+ ,0.0730330977356317
+ ,2.74600888141947
+ ,4.43935066443206
+ ,3.64533772778529
+ ,-0.213317787182433
+ ,1.77941996505484
+ ,-1.43955660877853)
> par2 = '0'
> par1 = '0.95'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: Wessa P., (2007), Testing Population Mean with unknown Variance (confidence intervals) (v1.0.1) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_hypothesismeanu.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description
> par1 <- as.numeric(par1)
> par2 <- as.numeric(par2)
> len <- length(x)
> df <- len - 1
> sd <- sd(x)
> mx <- mean(x)
> load(file='/var/www/html/rcomp/createtable')
> delta2 <- abs(qt((1-par1)/2,df)) * sd / sqrt(len)
> delta1 <- abs(qt((1-par1),df)) * sd / sqrt(len)
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Hypothesis Test about the Mean - Confidence Interval',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Sample size',header=TRUE)
> a<-table.element(a,len)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Sample standard deviation',header=TRUE)
> a<-table.element(a,sd)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Confidence',header=TRUE)
> a<-table.element(a,par1)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Null hypothesis',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,mx)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'2-sided Confidence Interval',header=TRUE)
> dum <- paste('[',mx-delta2)
> dum <- paste(dum,',')
> dum <- paste(dum,mx+delta2)
> dum <- paste(dum,']')
> a<-table.element(a,dum)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Left-sided Confidence Interval',header=TRUE)
> dum <- paste('[',mx-delta1)
> dum <- paste(dum,', +inf ]')
> a<-table.element(a,dum)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Right-sided Confidence Interval',header=TRUE)
> dum <- paste('[ -inf, ',mx+delta1)
> dum <- paste(dum,']')
> a<-table.element(a,dum)
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/www/html/rcomp/tmp/1lp4y1200945618.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.441   0.020   0.458