source('/home/pw/wessanet/cretab')



myrfcuid = 'q1129453-2019'

x <- c(10,15,14,14,8,19,17,18,10,15,16,12,13,10,14,15,20,9,12,13,16,12,14,15,19,16,16,14,14,14,13,18,15,15,15,13,14,15,14,19,16,16,12,10,11,13,14,11,11,16,9,16,19,13,15,14,15,11,14,15,17,16,13,15,14,15,14,12,12,15,17,13,5,7,10,15,9,9,15,14,11,18,20,20,16,15,14,13,18,14,12,9,19,13,12,14,6,14,11,11,14,12,19,13,14,17,12,16,15,15,15,16,15,12,13,14,17,14,14,14,15,11,11,16,12,12,19,18,16,16,13,11,10,14,14,14,16,10,16,7,16,15,17,11,11,10,13,14,13,13,12,10,15,6,15,15,11,14,14,16,12,15,20,12,9,13,15,19,11,11,17,15,14,15,11,12,15,16,16)
par3 = '13.5'
par2 = '0.97'
par1 = 'two.sided'
par3 <- '13.5'
par2 <- '0.97'
par1 <- 'two.sided'
#'GNU S' R Code compiled by R2WASP v. 1.2.327 (Sat, 15 Jul 2017 14:59:52 +0200)
#Author: root
#To cite this work: Wessa P., 2017, One Sample Tests about the Mean (v1.0.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL https://www.wessa.net/rwasp_onesampletests_mean.wasp/
#Source of accompanying publication: 
#
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
(tt <- t.test(x,mu=par3,alternative=par1,conf.level=par2))

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="/home/pw/wessanet/rcomp/tmp/1oelu1579594561.tab")