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_hypothesismean5.wasp
Title produced by softwareTesting Population Mean with known Variance - Confidence Interval
Date of computationTue, 11 Nov 2008 03:54:19 -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/11/t1226400947mgtylstjeuj2ytb.htm/, Retrieved Sun, 19 May 2024 12:04:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23301, Retrieved Sun, 19 May 2024 12:04:05 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Testing Population Mean with known Variance - Confidence Interval] [pork quality test Q5] [2008-11-11 10:54:19] [a9e6d7cd6e144e8b311d9f96a24c5a25] [Current]
Feedback Forum
2008-11-17 08:50:34 [006ad2c49b6a7c2ad6ab685cfc1dae56] [reply] 
We gebruiken een rechtszijdig 95 % betrouwbaarheidsinterval, omdat enkel de afwijking van het vetpercentage naar boven toe een economisch voordeel voor de producent kan betekenen. Het gemiddelde (0.1546) ligt onder 0.189276559191704 en dus binnen het 95%-betrouwbaarheidsinterval.
2008-11-20 19:17:32 [Lana Van Wesemael] [reply] 
Hier heeft de student de sample mean verkeerd ingevuld. Deze is gelijk aan 0.1546 en niet aan 0.15. Via deze link kan men de juiste tabel bekijken:
http://www.freestatistics.org/blog/index.php?v=date/2008/Nov/16/t1226859331ggv7b74il2jxvmu.htm
De sample mean is hier gelijk aan 0.1546 omdat men in de vraag duidelijk verwijst naar het werkelijke vet percentage van de productie.
Het is zoals de student zegt correct om hier naar het right tail van het one-sided interval te kijken. We kijken hiernaar omdat we een vermoeden hebben van fraude, de leverancier kan enkel een finacieel voordeel behalen door te veel vet in zijn varkens te doen.
2008-11-22 10:42:21 [Jonas Scheltjens] [reply] 
De student blijft hier zeer beperkt in zijn uitspraak. Hier is het inderdaad de bedoeling om te kijken naar het eenzijdige betrouwbaarheidsinterval van de right-tail. Verder vermeldt de student de volgende (nuttige) zaken niet meer: de reden waarom we hier naar moeten kijken is elke hogere waarde van het vetpercentage van een stuk vlees een economisch voordeel geeft aan de leverancier. Ook wordt de 5% die buiten het betrouwbaarheidsinterval ligt aan de rechterkant toebedeeld. Hierdoor kan wel stellen dat de right tail inderdaad de beste methode is om te kiezen, aangezien zij dan ook nauwkeuriger is. Om dezelfde reden was dus ook de keuze voor het eenzijdige betrouwbaarheidsinterval de beste, aangezien bij een 2-zijdig betrouwbaarheidsinterval deze 5% niet enkel aan de rechterkant van het interval ligt, maar verdeeld is over zowel linker- als rechterkant. Dit zou bij een 2-zijdig betrouwbaarheidsinterval de resultaten meer extreem maken. We kunnen wel opmerken dat de sample mean, met waarde 0.1546 onder de grens van de rechterzijde en dus, zoals te verwachten valt in het 95% betrouwbaarheidsinterval ligt en niet in de 5% die er niet in ligt.
Wat de student wel verkeerd heeft gedaan is de sample mean verkeerd ingevuld: i.p.v. 0,1546 in te vullen, staat er 0,15.

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=23301&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=23301&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23301&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 Population Mean with known Variance
Population variance0.012
Sample size27
Sample mean0.15
Confidence interval0.95
Type of IntervalLeft tailRight tail
Two-sided confidence interval at 0.950.1086803311796960.191319668820304
Left one-sided confidence interval at 0.950.115323440808296+inf
Right one-sided confidence interval at 0.95-inf0.184676559191704
more information about confidence interval

\begin{tabular}{lllllllll}
\hline
Testing Population Mean with known Variance \tabularnewline
Population variance & 0.012 \tabularnewline
Sample size & 27 \tabularnewline
Sample mean & 0.15 \tabularnewline
Confidence interval & 0.95 \tabularnewline
Type of Interval & Left tail & Right tail \tabularnewline
Two-sided confidence interval at  0.95 & 0.108680331179696 & 0.191319668820304 \tabularnewline
Left one-sided confidence interval at  0.95 & 0.115323440808296 & +inf \tabularnewline
Right one-sided confidence interval at  0.95 & -inf & 0.184676559191704 \tabularnewline
more information about confidence interval \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23301&T=1

[TABLE]
[ROW][C]Testing Population Mean with known Variance[/C][/ROW]
[ROW][C]Population variance[/C][C]0.012[/C][/ROW]
[ROW][C]Sample size[/C][C]27[/C][/ROW]
[ROW][C]Sample mean[/C][C]0.15[/C][/ROW]
[ROW][C]Confidence interval[/C][C]0.95[/C][/ROW]
[ROW][C]Type of Interval[/C][C]Left tail[/C][C]Right tail[/C][/ROW]
[ROW][C]Two-sided confidence interval at  0.95[/C][C]0.108680331179696[/C][C]0.191319668820304[/C][/ROW]
[ROW][C]Left one-sided confidence interval at  0.95[/C][C]0.115323440808296[/C][C]+inf[/C][/ROW]
[ROW][C]Right one-sided confidence interval at  0.95[/C][C]-inf[/C][C]0.184676559191704[/C][/ROW]
[ROW][C]more information about confidence interval[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23301&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23301&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 Population Mean with known Variance
Population variance0.012
Sample size27
Sample mean0.15
Confidence interval0.95
Type of IntervalLeft tailRight tail
Two-sided confidence interval at 0.950.1086803311796960.191319668820304
Left one-sided confidence interval at 0.950.115323440808296+inf
Right one-sided confidence interval at 0.95-inf0.184676559191704
more information about confidence interval


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0.012 ; par2 = 27 ; par3 = 0.15 ; par4 = 0.95 ;
Parameters (R input):
par1 = 0.012 ; par2 = 27 ; par3 = 0.15 ; par4 = 0.95 ;
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)
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('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('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')