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



myrfcuid = ''

par3 = '0.0'
par2 = '1.0'
par1 = '0.0'
par3 <- '0.0'
par2 <- '1.0'
par1 <- '0.0'
#'GNU S' R Code compiled by R2WASP v. 1.2.327 (Sun, 16 Jul 2017 09:34:16 +0200)
#Author: root
#To cite this work: Ian E. Holliday (2017), Z-Test (sample value against a specified Normal Distribution) (v1.0.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL https://www.wessa.net/Ian.Holliday/rwasp_Z-Test.wasp/
#Source of accompanying publication: 
#
par1 <- as.numeric(par1) #mean
par2<- as.numeric(par2) # Standrad Deviation
par3<-as.numeric(par3) # value to test
z<-(par3-par1)/par2

a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Simple Z-test',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm','Mean','definition of Mean'),1,TRUE)
a<-table.element(a,hyperlink('http://www.xycoon.com/unbiased1.htm','Standard Deviation','definition of Standard Deviation'),1,TRUE)
a<-table.element(a,'Test value',1,TRUE)
a<-table.element(a,'Z-Score',1,TRUE)
a<-table.element(a,'p value',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,par1,1)
a<-table.element(a,par2,1)
a<-table.element(a,par3,1)
a<-table.element(a,signif(z, digits=3),1)
a<-table.element(a,signif(pnorm(z), digits=3),1)
a<-table.end(a)
table.save(a,file="/home/pw/wessanet/rcomp/tmp/1jz9l1646463070.tab")