R version 2.8.0 (2008-10-20)
Copyright (C) 2008 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.0074506557876825
+ ,-0.132442416277169
+ ,0.167508335619297
+ ,0.162179475022331
+ ,-0.146931001973622
+ ,-0.0668603738682577
+ ,-0.269529881950270
+ ,-0.501159535904405
+ ,0.0257705207115739
+ ,0.0103920112419809
+ ,-0.331297153720096
+ ,0.182851594080835
+ ,-0.0616423002040546
+ ,0.0611391202324174
+ ,0.296329447468030
+ ,0.119060175741668
+ ,0.0700576382174025
+ ,0.148255268858675
+ ,-0.371005644115859
+ ,0.0561643933314547
+ ,0.103938003871328
+ ,0.317403809539125
+ ,0.47148700869133
+ ,-0.398411446088021
+ ,-0.0432761149904893
+ ,-0.108118935756980
+ ,0.0401107485044805
+ ,0.194657389845583
+ ,0.158210139077063
+ ,-0.0990937826064845
+ ,-0.00556266803194087
+ ,0.144548748293867
+ ,0.117606815437551
+ ,-0.0757110164777423
+ ,0.197705397710686
+ ,0.43154186277326
+ ,0.0235289943338020
+ ,0.0356480768094974
+ ,0.286156406204286
+ ,0.00513379161279537
+ ,0.63893193763354
+ ,0.251390112105119
+ ,-0.00323749422575261
+ ,-0.266976252327191
+ ,0.0601251864592664
+ ,0.0250884232596969
+ ,0.0427753200608914
+ ,-0.283921635806831
+ ,0.266596524755491
+ ,-0.149765918875036
+ ,0.280920126538979
+ ,0.0236532951156516
+ ,0.156622609872607
+ ,0.31040672700784
+ ,-0.246586965870557
+ ,-0.0298393590558678
+ ,-0.249166463960415
+ ,-0.0112133689462801
+ ,-0.396395414468751
+ ,-0.451133318396317
+ ,0.105253505345444
+ ,0.402092579269608
+ ,-0.21438906878249
+ ,0.141397349553946
+ ,0.445665827381415
+ ,-0.114984764067256
+ ,-0.0727348687731968
+ ,-0.428887385112165
+ ,0.429672738628761
+ ,0.110015782612343
+ ,-0.0594175281086153
+ ,-0.231319503867720
+ ,-0.152401412327718
+ ,0.292208397539926
+ ,-0.0196616726586817
+ ,0.216316258224451
+ ,0.219252748724271
+ ,0.337295855125314
+ ,-0.106712413444743
+ ,0.465673740811403
+ ,-0.280816345253791
+ ,0.0468365870230674
+ ,0.162365651238084
+ ,-0.0663666999576886
+ ,-0.635837605985355
+ ,-0.0149943478807808
+ ,0.10104210135649
+ ,0.0980516104255642
+ ,0.132481182172313
+ ,-0.237259624681085
+ ,0.239843258350056
+ ,-0.105452963338377
+ ,-0.118119254249678
+ ,0.384026536850281
+ ,0.149193012243773
+ ,0.0179012528572979
+ ,0.0737714063911667
+ ,-0.190562367586525
+ ,0.0648156227466323
+ ,0.0831011315891885
+ ,-0.223187173116132
+ ,0.0109073057119824
+ ,-0.0509472940820421
+ ,0.166337221716903
+ ,0.123534000363326
+ ,0.0842716541850166
+ ,0.17950771880394)
> 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: AUTHOR(S), (YEAR), 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: Office for Research, Development, and Education
> #Technical description: Write here your technical program description (don't use hard returns!)
> par1 <- as.numeric(par1)
> par2 <- as.numeric(par2)
> len <- length(x)
> df <- len - 1
> sd <- sd(x)
> mx <- mean(x)
> 
> #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> 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/1ughm1229543470.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.229   0.049   0.364