FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_hypothesisvariance2.wasp
Title produced by softwareTesting Variance - p-value (probability)
Date of computationThu, 13 Nov 2008 10:56:40 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Nov/13/t1226599055v8ytlpil8u4lra0.htm/, Retrieved Sun, 19 May 2024 08:52:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=24740, Retrieved Sun, 19 May 2024 08:52:01 +0000
QR Codes:

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

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 - p-value (probability)] [the pork quality ...] [2008-11-13 17:56:40] [1a15026c70cce1c14dcfcc267c5d8133] [Current]
Feedback Forum
2008-11-20 17:39:53 [Toon Wouters] [reply] 
Uw conclusie is verkeerd omdat je de berekening verkeerd hebt uitgevoerd. De p-waarde geeft een zeer hoge waarde (41%). Dit betekent dat er een grote kans is dat we ons vergissen en dus onze advocaat niet gaan inzetten. Als de p-waarde kleiner was dan de type 1 fout, dan was het wel aanbevolen om klacht in te dienen.http://www.freestatistics.org/blog/date/2008/Nov/11/t1226412806rghq18lsrmlyv2j.htm
2008-11-21 15:17:45 [Thomas Plasschaert] [reply] 
weer verkeerde sample mean, hier had je tot de conclusie moeten komen dat de kans dat we ons vergissen 41% bedraagt en het risico dus te groot is. gebruik hier een one sided interval omdat het hier gaat om teveel vet en niet te weinig.
2008-11-21 15:22:06 [Stephanie Vanderlinden] [reply] 
Ook hier is er gebruik gemaakt van een foutieve test, want de studente bekomt een p-value van 2,6482. Deze p-value is foutief en veel te hoog. De studente leidt hieruit af dat je best een klacht kan indienen alwaar een hoge p-waarde net het tegenovergestelde zegt.
2008-11-22 16:12:21 [Carole Thielens] [reply] 
Ook bij deze vraag gebruikte de studente de verkeerde berekeningen. Zij gebruikte de berekening ‘ Testing variance- p-value’, terwijl de juiste uitkomst bekomen wordt via de berekening ‘ Testing mean with known variance- p-value’. Eveneens vergat de studente de nulhypothese van 15% te schrijven als als het kommagetal 0.15. Vanuit haar verkeerde berekening, nam de studente ook de foute conclusies. Zij beweerde dat de nulhypothese verworpen moet worden en dat de klacht tegen de leverancier gerechtvaardigd is.

Juiste berekening:
http://www.freestatistics.org/blog/index.php?v=date/2008/Nov/12/t12264918213p8hgikilyvoalf.htm

Gebruik makend van de juiste berekeningen, kan besloten worden dat de nulhypothese niet verworpen mag worden.
De p-waarde (0.827275…) is immers groter dan Type I error( 0.05). Hoe groter de p-waarde, des te meer kans op een toevallig resultaat. Met andere woorden, de eventuele productie van vlees met een mindere kwaliteit, zal eerder aan het toeval toegeschreven kunnen worden. De p-waarde geeft immers ook de kans weer dat de nulhypothese waar is.
2008-11-24 19:14:41 [Angelique Van de Vijver] [reply] 
de student heeft de verkeerde berekening gemaakt waardoor ze ook tot een verkeerde oplossing komt. hier moest je 'testing mean with known variance-p-value' gebruiken. Dan kwam je tot de conclusie dat er 41% kans is dat u klacht ongerechtvaardigd is. Deze is veel groter dan de type I error(5%) dus de nulhypothese mag niet verworpen worden. Hier moet je kijken naar de eenzijdige p-waarde omdat het over goedkoop vlees gaat wat dus wil zeggen dat er te veel vet in zit en niet te weinig.
Op deze link vind je de juiste berekening: http://www.freestatistics.org/blog/date/2008/Nov/24/t1227553989vi5oqnq7zdhp1o1.htm

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'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24740&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24740&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24740&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'Sir Ronald Aylmer Fisher' @ 193.190.124.24






Testing Variance - p-value (probability)
Sample size27
Sample variance0.012
Null hypothesis (H0)15
Type I error (alpha)0.05
p-value (probability)2.64825105844268e-36
ConclusionReject the null hypothesis

\begin{tabular}{lllllllll}
\hline
Testing Variance - p-value (probability) \tabularnewline
Sample size & 27 \tabularnewline
Sample variance & 0.012 \tabularnewline
Null hypothesis (H0) & 15 \tabularnewline
Type I error (alpha) & 0.05 \tabularnewline
p-value (probability) & 2.64825105844268e-36 \tabularnewline
Conclusion & Reject the null hypothesis \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24740&T=1

[TABLE]
[ROW][C]Testing Variance - p-value (probability)[/C][/ROW]
[ROW][C]Sample size[/C][C]27[/C][/ROW]
[ROW][C]Sample variance[/C][C]0.012[/C][/ROW]
[ROW][C]Null hypothesis (H0)[/C][C]15[/C][/ROW]
[ROW][C]Type I error (alpha)[/C][C]0.05[/C][/ROW]
[ROW][C]p-value (probability)[/C][C]2.64825105844268e-36[/C][/ROW]
[ROW][C]Conclusion[/C][C]Reject the null hypothesis[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24740&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24740&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 - p-value (probability)
Sample size27
Sample variance0.012
Null hypothesis (H0)15
Type I error (alpha)0.05
p-value (probability)2.64825105844268e-36
ConclusionReject the null hypothesis


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 27 ; par2 = 0.012 ; par3 = 15 ; par4 = 0.05 ;
Parameters (R input):
par1 = 27 ; par2 = 0.012 ; par3 = 15 ; par4 = 0.05 ;
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
myc <- df * par2 / par3
myc
if (par2 > par3)
{
myp <- 1 - pchisq(myc,df)
} else {
myp <- pchisq(myc,df)
}
myp
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('ht_variance.htm','Testing Variance - p-value (probability)','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,'p-value (probability)',header=TRUE)
a<-table.element(a,myp)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Conclusion',header=TRUE)
if (myp > par4) 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')