x <- c(-1.85502047409861
,5.42325613348655
,-1.1234903336018
,4.02302041635636
,-3.70675955840905
,-8.53941542077969
,4.93905336252266
,1.68004621616743
,3.06238689238125
,-2.96360598975477
,0.0398803029143075
,-11.9588519658638
,-5.2352433150426
,-0.234265607448981
,0.39464718550503
,-2.68551735068717
,5.45454346948067
,-4.80026740539989
,1.05169803071146
,-8.3513703304272
,-9.20785512133322
,-5.50601159414801
,-1.86845807058172
,2.77535002763025
,-0.905710233996908
,-1.61970741932654
,1.80926341353426
,4.71661835509078
,2.55826904932389
,-0.944719836096742
,8.18244056856599
,-0.675358029630718
,11.4011369352281
,5.92537383872062
,2.68271473110235
,2.75420648119648
,5.36484336451385
,-3.03911735134487
,3.04093380290683
,-5.94885125947215
,-5.31977951272112
,16.2170997726063
,-4.82497802270131
,-1.2680074271542
,3.14375113622215
,2.44350017077555
,-1.60369346269775
,12.2783987645259
,4.00940401287636
,11.2093805476324
,-17.8147978620139
,1.34662779244791
,5.64958104144711
,-5.41828656554999
,-12.7132731146149
,1.15125154273856
,-0.618858176676447
,-3.47053653288149
,10.1003984705898
,-2.2056537861004
,1.07421076464852
,-7.58402346062713
,-8.81334463299344
,1.07706725344991
,-0.205433478012266
,2.75209963259331
,-0.66654458066125
,5.88515050247279
,-3.64970311433029
,-1.05281150807058
,5.51772114732076
,3.76283217800716
,2.06005908877604
,-13.9571087789075
,-10.2892105232075
,-5.73537318731128
,4.93732869349814
,-1.2788365433526
,-1.44827615320924
,4.72517985390048
,-0.337702845498472
,-1.99684529532814
,-4.14081538557938
,-2.81667058742596
,4.8384269578177
,2.63763322215184
,-5.68513055761853
,1.96907189555487
,-9.05288074831037
,0.127753114733716
,-0.156302963892685
,-4.94950854900784
,1.10808896101927
,0.284820730737251
,0.2286459062025
,4.29475935511529
,-4.87654795604795)
par3 = '0'
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))

#Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
load(file="/var/wessaorg/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/wessaorg/rcomp/tmp/1ylkc1324470265.tab")