Home » date » 2011 » Oct » 24 »

Taak 8

*The author of this computation has been verified*

R Software Module: /rwasp_hypothesisvariance1.wasp (opens new window with default values)

Title produced by software: Testing Variance - Critical Value (Region)

Date of computation: Mon, 24 Oct 2011 15:50:03 -0400

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2011/Oct/24/t1319485817hq2s319n1qn4641.htm/, Retrieved Fri, 24 May 2013 21:24:46 +0000

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords:

System-generated keywords (parent):

t131948355859fvwxo3zpim2nb (pk = 134872)

Estimated Impact

Output produced by software:

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	'Herman Ole Andreas Wold' @ wold.wessa.net

Testing Variance - Critical value (region)
Sample size	98
Sample variance	13
Null hypothesis (H0)	20
Type I error (alpha)	0.35
Critical value	18.7808801590011
Conclusion	Reject the null hypothesis

Charts produced by software:

Parameters (Session):

par1 = 98 ; par2 = 13 ; par3 = 20 ; par4 = 0.35 ;

Parameters (R input):

par1 = 98 ; par2 = 13 ; par3 = 20 ; par4 = 0.35 ;

R code (references can be found in the software module):

par1<-as.numeric(par1)
par2<-as.numeric(par2)
par3<-as.numeric(par3)
par4<-as.numeric(par4)
df <- par1 - 1
if (par2 > par3)
{
myc <- par3 / df * qchisq(1-par4,df)
} else {
myc <- par3 / df * qchisq(par4,df)
}
myc
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 - Critical value (region)','learn more about Statistical Hypothesis Testing about the Variance'),2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample size',header=TRUE)
a<-table.element(a,par1)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample variance',header=TRUE)
a<-table.element(a,par2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Null hypothesis (H0)',header=TRUE)
a<-table.element(a,par3)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Type I error (alpha)',header=TRUE)
a<-table.element(a,par4)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Critical value',header=TRUE)
a<-table.element(a,myc)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Conclusion',header=TRUE)
if (par2 > par3)
{
if (par2 < myc) a<-table.element(a,'There is no reason to reject the null hypothesis') else a<-table.element(a,'Reject the null hypothesis')
} else {
if (par2 > myc) a<-table.element(a,'There is no reason to reject the null hypothesis') else a<-table.element(a,'Reject the null hypothesis')
}
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')