par1<-as.numeric(par1) par2<-as.numeric(par2) par3<-as.numeric(par3) par4<-as.numeric(par4) par5<-as.numeric(par5) c <- 'NA' csn <- abs(qnorm(par5)) if (par2 == par3) { conclusion <- 'Error: the null hypothesis and alternative hypothesis must not be equal.' } ua <- abs(qnorm(par4)) ub <- qnorm(par5) c <- (par2+ua/ub*(-par3))/(1-(ua/ub)) sqrtn <- ua*sqrt(par1)/(c - par2) samplesize <- sqrtn * sqrtn ua ub c sqrtn samplesize load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,hyperlink('ht_mean_knownvar.htm','Testing Mean with known Variance','learn more about Statistical Hypothesis Testing about the Mean when the Variance is known'),2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'population variance',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'null hypothesis about mean',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'alternative hypothesis about mean',header=TRUE) a<-table.element(a,par3) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'type I error',header=TRUE) a<-table.element(a,par4) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'type II error',header=TRUE) a<-table.element(a,par5) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('ht_mean_knownvar.htm#ex4','sample size','example'),header=TRUE) a<-table.element(a,samplesize) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
|