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(-91.1475791030107
+ ,3190.42180503223
+ ,185.862605252137
+ ,1550.17928222182
+ ,-4051.53466892196
+ ,-4004.1469034324
+ ,-2204.90421033094
+ ,-3175.02179676197
+ ,1617.67360074152
+ ,-2295.61084112079
+ ,-2267.28881152434
+ ,-178.308096584080
+ ,-2907.55001941824
+ ,-1216.53734921381
+ ,48.5092400249178
+ ,-1514.62908371032
+ ,-1870.08923636928
+ ,1737.07276264525
+ ,1322.68307094671
+ ,1531.26030628704
+ ,3529.536136408
+ ,1083.53779125802
+ ,114.816768829857
+ ,4962.3367137392
+ ,-4410.15761457681
+ ,-705.030349962284
+ ,5667.18502395077
+ ,1692.68355190490
+ ,-385.471443157229
+ ,2226.52946084297
+ ,-2876.4779008572
+ ,1925.6448223277
+ ,-163.367556720991
+ ,-438.55153453541
+ ,3334.65989098450
+ ,982.184861050696
+ ,1029.03345213034
+ ,-513.875854018738
+ ,-2510.83330372982
+ ,-40.1510898266841
+ ,706.29012138126
+ ,2780.73665444619
+ ,-1915.73938576603
+ ,461.574896705557
+ ,-194.41601170322
+ ,-4379.00588135181
+ ,401.364395856297
+ ,-3520.92308360079
+ ,4320.31714492519
+ ,1061.20811234363
+ ,918.831327257089
+ ,-3585.968081328
+ ,5000.39576505044
+ ,-1487.92693874835
+ ,1216.74262983933
+ ,99.3537263031683
+ ,-1778.52956044609
+ ,1253.83574142802
+ ,-636.914399484525
+ ,-1370.94420414171
+ ,829.700192929427
+ ,1312.98017076556
+ ,1055.28939393764
+ ,1642.24197042200
+ ,243.858906129592
+ ,-162.001034384922
+ ,1636.89305297192
+ ,-431.237688133459)
> 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/1r2rz1200938066.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.428   0.026   0.457