Wessa.net

Send output to:

Sample size


Null Hypothesis about variance


Confidence interval



R Code
par1<-as.numeric(par1) par2<-as.numeric(par2) par3<-as.numeric(par3) df <- par1 - 1 halfalpha <- (1 - par3) / 2 ua <- qchisq(halfalpha,df) * par2 / df ub <- qchisq(1-halfalpha,df) * par2 / df ua ub ul <- qchisq(1-par3,df) * par2 / df ul ur <- qchisq(par3,df) * par2 / df ur load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/ht_variance.htm','Testing Variance - Confidence Intervals for Sample Variance','learn more about Statistical Hypothesis Testing about the Variance'),3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Sample size',header=TRUE) a<-table.element(a,par1,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Null hypothesis (H0)',header=TRUE) a<-table.element(a,par2,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Confidence interval',header=TRUE) a<-table.element(a,par3,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 ',par3), 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 ',par3), 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 ',par3), header=TRUE) a<-table.element(a,'0') 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_variance.htm#ex3', 'more information about confidence interval','example'),3,TRUE) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')

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