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(-64.7052505627806
+ ,-3456.92146791498
+ ,1221.53818880044
+ ,-3425.92181819955
+ ,476.517449571596
+ ,771.237252580258
+ ,1486.03059810756
+ ,-1420.53604746731
+ ,-1231.65983588785
+ ,-1072.35237321869
+ ,-1028.79999310919
+ ,1689.70160953415
+ ,104.781462266857
+ ,3056.00468005053
+ ,2058.12890000085
+ ,-2120.15571952206
+ ,857.951846139995
+ ,-7653.62307012801
+ ,-3625.47032737070
+ ,-1066.78246083915
+ ,1480.43801029269
+ ,383.807285529813
+ ,-183.460775788262
+ ,-412.66366558563
+ ,-3386.49397717813
+ ,-868.872254604358
+ ,-4519.64765815746
+ ,3043.34922909291
+ ,4526.15618595789
+ ,2298.41482668304
+ ,1992.23133104446
+ ,1442.95792211978
+ ,-893.403718302956
+ ,3167.99873285149
+ ,231.403932376355
+ ,-534.568799433291
+ ,-3856.42358359645
+ ,-418.841481409176
+ ,-1376.94550043225
+ ,1524.94083007199
+ ,-6240.6385168242
+ ,512.555201154925
+ ,1722.16374385519
+ ,756.960403479329
+ ,2999.69977354755
+ ,-2634.01843507769
+ ,-1578.85998252178
+ ,78.6364326059933
+ ,-376.690663222133
+ ,992.978747098893
+ ,994.51938653588
+ ,-10.5193017588915
+ ,-921.573813091965
+ ,606.066588722763
+ ,1003.79725596858
+ ,1201.6546911613
+ ,1805.44593151825
+ ,596.116762365994
+ ,-1360.77445520603
+ ,3383.24617420951
+ ,-5515.05833999521
+ ,-2431.17906069741
+ ,4733.10028012447
+ ,4010.28330224708
+ ,-2898.76736676388
+ ,76.4283006144755
+ ,-2221.26939354851
+ ,2373.68897140019
+ ,-1244.72571223942
+ ,537.169792121625
+ ,2246.81073824300
+ ,864.588365965909
+ ,611.893000896821
+ ,-1922.54556007542
+ ,-2682.31131104567
+ ,86.6180766216501
+ ,2273.08966203739
+ ,3100.18749454311
+ ,-3642.00381742456
+ ,-661.164658428561
+ ,-728.23512638401
+ ,-3035.53289896783
+ ,585.916426040515
+ ,-2542.63265568714)
> 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/1ez6s1200557169.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.809   0.026   0.829