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_hypothesismeanu.wasp
Title produced by softwareTesting Mean with unknown Variance - Critical Value
Date of computationWed, 17 Dec 2014 15:49:57 +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/2014/Dec/17/t1418831427eyjh083m86w9viu.htm/, Retrieved Thu, 12 Feb 2026 08:08:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270435, Retrieved Thu, 12 Feb 2026 08:08:59 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Percentiles] [Intrinsic Motivat...] [2010-10-12 12:10:58] [b98453cac15ba1066b407e146608df68]
- RMPD  [Kernel Density Estimation] [] [2011-10-18 22:42:23] [b98453cac15ba1066b407e146608df68]
- RMPD    [Percentiles] [] [2011-10-18 22:46:45] [b98453cac15ba1066b407e146608df68]
- RMPD      [Notched Boxplots] [] [2011-10-18 22:58:56] [b98453cac15ba1066b407e146608df68]
-    D        [Notched Boxplots] [] [2011-10-18 23:01:09] [b98453cac15ba1066b407e146608df68]
- RM            [Notched Boxplots] [] [2014-10-16 14:03:19] [4c4ebb0b36a379d1d949ba77427e658a]
- RMPD            [Testing Mean with unknown Variance - Critical Value] [] [2014-12-17 15:47:28] [6b382800c0d3804662889dbce999b8c7]
- R  D                [Testing Mean with unknown Variance - Critical Value] [] [2014-12-17 15:49:57] [6993448de96b8662e47595bfdf466bf3] [Current]
-    D                  [Testing Mean with unknown Variance - Critical Value] [] [2014-12-17 15:51:44] [6b382800c0d3804662889dbce999b8c7]
-    D                    [Testing Mean with unknown Variance - Critical Value] [] [2014-12-17 15:53:27] [6b382800c0d3804662889dbce999b8c7]
-    D                      [Testing Mean with unknown Variance - Critical Value] [] [2014-12-17 15:56:03] [6b382800c0d3804662889dbce999b8c7]
-    D                        [Testing Mean with unknown Variance - Critical Value] [] [2014-12-17 15:57:58] [6b382800c0d3804662889dbce999b8c7]
-    D                          [Testing Mean with unknown Variance - Critical Value] [] [2014-12-17 15:59:20] [6b382800c0d3804662889dbce999b8c7]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
20
25

18



24






23
24
24

24

28


26




20

25
24
20





23


24





22


25







27

18


24
26

23

23


22
18
19
19


26

25

18
22

25
26
26

22


28
22
26



23

23





26



23
23
28
24
20
23





20


20

25
19








21






25





15
23
15

20
20
20

28


22



26
21
24
21

22

14

28

22
24

21





25

21
21
19

28

23
25
26
25




22
21

23
17
25
19


22
25

25



24



23
26
26


20


20
26
26


24
21
18


23
25
20




23



21
28

14



19

21


24

25

24

26
23


24


23

21
25


26

23
21

20
23



18




21

15
16

25

19
24

23


22
24
26

28




26

20

21
28
24
24
24
22



27
24
26
18
22




28

18


20

24
20
24
25
25
26

26
14




19


21
21
24
23

21
23
25
17
27
28



23
24

26





27
20
25
23
25

23
19

28
26

25


15

24

25



23


23




28

21
21

18


21
25




25




19
24

23


20

28

19
23




28
20

25

23








26

23
24







23



23




28


28
24




26

24

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
R Framework error message & 
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=270435&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=270435&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270435&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 time0 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.






Hypothesis Test about the Mean - Confidence Interval
Sample size217
Sample standard deviation3.13740624917307
Confidence0.95
Null hypothesis21.8
Sample Mean22.9078341013825
2-sided Confidence Interval[ 22.4880469314373 , 23.3276212713277 ]
Left-sided Confidence Interval[ 22.5560025323854 , +inf ]
Right-sided Confidence Interval[ -inf, 23.2596656703795 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 217 \tabularnewline
Sample standard deviation & 3.13740624917307 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 21.8 \tabularnewline
Sample Mean & 22.9078341013825 \tabularnewline
2-sided Confidence Interval & [ 22.4880469314373 , 23.3276212713277 ] \tabularnewline
Left-sided Confidence Interval & [ 22.5560025323854 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  23.2596656703795 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=270435&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]217[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]3.13740624917307[/C][/ROW]
[ROW][C]Confidence[/C][C]0.95[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]21.8[/C][/ROW]
[ROW][C]Sample Mean[/C][C]22.9078341013825[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 22.4880469314373 , 23.3276212713277 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 22.5560025323854 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  23.2596656703795 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=270435&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270435&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 size217
Sample standard deviation3.13740624917307
Confidence0.95
Null hypothesis21.8
Sample Mean22.9078341013825
2-sided Confidence Interval[ 22.4880469314373 , 23.3276212713277 ]
Left-sided Confidence Interval[ 22.5560025323854 , +inf ]
Right-sided Confidence Interval[ -inf, 23.2596656703795 ]


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
par1 = 0.95 ; par2 = 21.80 ;
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')