R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)

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.

> 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.291 ()
> #Author: aston2
> #To cite this work: Ian E. Holliday, 2012, Z-Test (sample value against a specified Normal Distribution) (v1.0.3) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://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
> 
> #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,'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="/var/wessaorg/rcomp/tmp/1eanb1372710623.tab") 
> 
> 
> 
> proc.time()
   user  system elapsed 
  0.670   0.249   0.884