Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Population Variance
Sample Size
Sample Mean
Confidence Interval
R Code
par1<-as.numeric(par1) par2<-as.numeric(par2) par3<-as.numeric(par3) par4<-as.numeric(par4) sigma <- sqrt(par1) sqrtn <- sqrt(par2) ua <- par3 - abs(qnorm((1-par4)/2))* sigma / sqrtn ub <- par3 + abs(qnorm((1-par4)/2))* sigma / sqrtn ua ub ul <- par3 - qnorm(par4) * sigma / sqrtn ul ur <- par3 + qnorm(par4) * sigma / sqrtn ur load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/ht_mean_knownvar.htm','Testing Population Mean with known Variance','learn more about Statistical Hypothesis Testing about the Mean when the Variance is known'),3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Population variance',header=TRUE) a<-table.element(a,par1,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Sample size',header=TRUE) a<-table.element(a,par2,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Sample mean',header=TRUE) a<-table.element(a,par3,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Confidence interval',header=TRUE) a<-table.element(a,par4,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Type of Interval',header=TRUE) a<-table.element(a,'Left tail',header=TRUE) a<-table.element(a,'Right tail',header=TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('Two-sided confidence interval at ',par4), header=TRUE) a<-table.element(a,ua) a<-table.element(a,ub) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('Left one-sided confidence interval at ',par4), header=TRUE) a<-table.element(a,ul) a<-table.element(a,'+inf') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('Right one-sided confidence interval at ',par4), header=TRUE) a<-table.element(a,'-inf') a<-table.element(a,ur) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, hyperlink('http://www.xycoon.com/ht_mean_knownvar.htm#ex5', 'more information about confidence interval','example'),3,TRUE) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation