FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_hypothesisvariance1.wasp
Title produced by softwareTesting Variance - Critical Value (Region)
Date of computationTue, 26 Oct 2010 17:55:15 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Oct/26/t1288115623yisx0d6e8e9dwel.htm/, Retrieved Sat, 27 Apr 2024 18:30:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=89478, Retrieved Sat, 27 Apr 2024 18:30:56 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact104

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Testing Variance - Critical Value (Region)] [] [2010-10-26 17:55:15] [bab9730fcc23dcda9f14e2a014bd4fbb] [Current]
Feedback Forum
2010-10-29 14:11:32 [Pascal Wijnen] [reply] 
De student gebruikt de juiste methode, heeft echter de verkeerde gegevens ingevuld. critical value zou hier 13,775 moeten zijn.
2010-11-02 15:54:04 [1951de723fd2749e12bc2f1a75bd3e74] [reply] 
Voor vrouwen krijgen we wel een variantie die verschillend is van 13, namelijk 13,77 (kritieke waarde). Aangezien 13,77 > 13, verwerpen we nul hypothese. We besluiten dat de variantie voor vrouwen verschilt van 13 indien we een type 1 fout gebruiken van 35.
Uit deze berekening kunnen we niet besluiten dat de variantie van vrouwen groter is dan die van mannen. Het is een eenzijdige test en we hebben 2 spreidingen nodig om dat de testen. Deze toetsen zijn altijd deterministisch, de 13 waartegen we toetsen ligt vast, maar we kunnen geen verschil besluiten tussen de 2. We kunnen (tweezijdig) het 65% betrouwbaarheidsinterval berekenen voor de sample variance. Dan zien we dat bij vrouwen de variantie groter is dan 13.

Post a new message

Dataset

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=89478&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=89478&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=89478&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Testing Variance - Critical value (region)
Sample size63
Sample variance13
Null hypothesis (H0)0.2
Type I error (alpha)0.35
Critical value0.211928626347465
ConclusionReject the null hypothesis

\begin{tabular}{lllllllll}
\hline
Testing Variance - Critical value (region) \tabularnewline
Sample size & 63 \tabularnewline
Sample variance & 13 \tabularnewline
Null hypothesis (H0) & 0.2 \tabularnewline
Type I error (alpha) & 0.35 \tabularnewline
Critical value & 0.211928626347465 \tabularnewline
Conclusion & Reject the null hypothesis \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=89478&T=1

[TABLE]
[ROW][C]Testing Variance - Critical value (region)[/C][/ROW]
[ROW][C]Sample size[/C][C]63[/C][/ROW]
[ROW][C]Sample variance[/C][C]13[/C][/ROW]
[ROW][C]Null hypothesis (H0)[/C][C]0.2[/C][/ROW]
[ROW][C]Type I error (alpha)[/C][C]0.35[/C][/ROW]
[ROW][C]Critical value[/C][C]0.211928626347465[/C][/ROW]
[ROW][C]Conclusion[/C][C]Reject the null hypothesis[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=89478&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=89478&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Testing Variance - Critical value (region)
Sample size63
Sample variance13
Null hypothesis (H0)0.2
Type I error (alpha)0.35
Critical value0.211928626347465
ConclusionReject the null hypothesis


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 63 ; par2 = 13 ; par3 = 0.20 ; par4 = 0.35 ;
Parameters (R input):
par1 = 63 ; par2 = 13 ; par3 = 0.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('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')