par1 <- as.numeric(par1) #mean par2<- as.numeric(par2) # Standrad Deviation par3<-as.numeric(par3) # value to test z<-(par3-par1)/par2 load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,hyperlink('overview.htm','Simple Ztest','Z- Test'),6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('arithmetic_mean.htm','Mean','definition of Mean'),1,TRUE) a<-table.element(a,hyperlink('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,TRUE) a<-table.element(a,par2,1,TRUE) a<-table.element(a,par3,1,TRUE) a<-table.element(a,z,1,TRUE) a<-table.element(a,signif(pnorm(z), digits=3),1,TRUE) a<-table.end(a) table.save(a,file='mytable.tab')
|