FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_hypothesismeanu.wasp
Title produced by softwareTesting Mean with unknown Variance - Critical Value
Date of computationThu, 17 Jan 2008 01:08:45 -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/Jan/17/t1200557067g1awmi4kcvkm3a7.htm/, Retrieved Thu, 16 May 2024 02:52:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=8017, Retrieved Thu, 16 May 2024 02:52:09 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Testing Mean with known Variance - Type II Error] [residuals] [2007-12-03 12:09:19] [8eeeb1b102d3219870922ae6f80f1f57]
- RMPD    [Testing Mean with unknown Variance - Critical Value] [Hypothesen_x3] [2008-01-17 08:08:45] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
0.000249254412317267
0.000299603588409276
0.000322518965091164
-0.000329538636649367
-6.43325994869136e-05
0.000218734547908577
-0.000186123790106601
0.000320044464404368
0.000105079817925291
-3.21375723064676e-05
-9.31379372201002e-05
0.000863880329915967
-0.000955068293604838
0.000191654585176615
-0.000687217159304088
-0.00133295077536133
-8.40818637339591e-05
0.000480643586810492
-0.00133724173345948
-0.00078463864413933
-9.63012198662017e-05
-0.000267289029594886
-0.000415973064666258
-0.00145962546732839
0.00114159591731011
-0.00146064163655782
-0.00105351430012057
0.000585759739068242
-0.00113140931418457
-0.00138720915811827
0.000330704048772557
0.00089730707501226
-0.00282718491905784
0.00130177229774819
0.000106725469179531
0.00194958872561832
0.000635002216373137
-0.000802593879913022
0.000669740048378942
-0.00184856803744929
-0.00115402862422859
0.000720565693177494
0.00127635646932789
0.000280808847524822
-0.00124166740902709
0.00220850912079990
0.00014951799778537
0.000246824748826507
-0.000329567131906322
-0.000100055638308394
-0.000843374093922739
-0.00182816513524967
0.000762276721414934
0.000547214397100731
-0.000261835368196878
-0.000145977686326793
-0.000418138010040314
-0.000275994456749945
0.00096506287877901
-0.000122679144738069
-0.00077104475183501
-0.000772836964526374
-9.74711304966847e-05
0.00132936498148101
0.000993746723184863
-0.000451847013386047
-0.000138456169144319
-0.00109488862631829
-0.000236567991803771
0.000228265967558205
-0.000141243730919727
7.13248149721013e-05
0.000100146168015486
-0.000101542587067266
-0.00103071143157252
-0.000910687763439777
-0.00169775499641645
0.000648520060953617
-0.00081739205188841
-0.000440416182630077
-0.000143836644462325
-0.00086105174113707
0.00118491489582653
0.00092521493356959
0.000685499195885314
-0.00170870319900812
-0.000681671133016343
-0.00207056008076914
0.000710534206097013
-0.00163014844752510
-0.00123315260753790
-0.000307767159812872
-0.000896177657593727
0.000651475976366861
0.00196454841594412
0.000447156493560086

Tables (Output of Computation)





Summary of compuational 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 compuational 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=8017&T=0

[TABLE]
[ROW][C]Summary of compuational 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=8017&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=8017&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 compuational 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






Hypothesis Test about the Mean - Confidence Interval
Sample size96
Sample standard deviation0.00093794345516692
Confidence0.95
Null hypothesis0
Sample Mean-0.000164861794267291
2-sided Confidence Interval[ -0.000354906801710946 , 2.51832131763636e-05 ]
Left-sided Confidence Interval[ -0.000323871715139433 , +inf ]
Right-sided Confidence Interval[ -inf, -5.85187339514936e-06 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 96 \tabularnewline
Sample standard deviation & 0.00093794345516692 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 0 \tabularnewline
Sample Mean & -0.000164861794267291 \tabularnewline
2-sided Confidence Interval & [ -0.000354906801710946 , 2.51832131763636e-05 ] \tabularnewline
Left-sided Confidence Interval & [ -0.000323871715139433 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  -5.85187339514936e-06 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=8017&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]96[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]0.00093794345516692[/C][/ROW]
[ROW][C]Confidence[/C][C]0.95[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]0[/C][/ROW]
[ROW][C]Sample Mean[/C][C]-0.000164861794267291[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ -0.000354906801710946 , 2.51832131763636e-05 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ -0.000323871715139433 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  -5.85187339514936e-06 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=8017&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=8017&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:

Hypothesis Test about the Mean - Confidence Interval
Sample size96
Sample standard deviation0.00093794345516692
Confidence0.95
Null hypothesis0
Sample Mean-0.000164861794267291
2-sided Confidence Interval[ -0.000354906801710946 , 2.51832131763636e-05 ]
Left-sided Confidence Interval[ -0.000323871715139433 , +inf ]
Right-sided Confidence Interval[ -inf, -5.85187339514936e-06 ]


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0.95 ; par2 = 0 ;
Parameters (R input):
par1 = 0.95 ; par2 = 0 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
len <- length(x)
df <- len - 1
sd <- sd(x)
mx <- mean(x)
load(file='createtable')
delta2 <- abs(qt((1-par1)/2,df)) * sd / sqrt(len)
delta1 <- abs(qt((1-par1),df)) * sd / sqrt(len)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Hypothesis Test about the Mean - Confidence Interval',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample size',header=TRUE)
a<-table.element(a,len)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample standard deviation',header=TRUE)
a<-table.element(a,sd)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Confidence',header=TRUE)
a<-table.element(a,par1)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Null hypothesis',header=TRUE)
a<-table.element(a,par2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample Mean',header=TRUE)
a<-table.element(a,mx)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'2-sided Confidence Interval',header=TRUE)
dum <- paste('[',mx-delta2)
dum <- paste(dum,',')
dum <- paste(dum,mx+delta2)
dum <- paste(dum,']')
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Left-sided Confidence Interval',header=TRUE)
dum <- paste('[',mx-delta1)
dum <- paste(dum,', +inf ]')
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Right-sided Confidence Interval',header=TRUE)
dum <- paste('[ -inf, ',mx+delta1)
dum <- paste(dum,']')
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')