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 computationFri, 25 Oct 2013 05:34:51 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Oct/25/t1382693711f8yry2s5ugedvbc.htm/, Retrieved Sat, 27 Apr 2024 19:25:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=219431, Retrieved Sat, 27 Apr 2024 19:25:54 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Factor Analysis] [Sleep in Mammals ...] [2010-03-21 11:39:53] [b98453cac15ba1066b407e146608df68]
- RMPD  [Testing Mean with unknown Variance - Critical Value] [Hypothesis Test a...] [2010-10-19 11:45:26] [b98453cac15ba1066b407e146608df68]
- R PD      [Testing Mean with unknown Variance - Critical Value] [W4 Q4] [2013-10-25 09:34:51] [d36997adcafcba0a4d18dd87f1a174ea] [Current]
-    D        [Testing Mean with unknown Variance - Critical Value] [W4 Q4] [2013-10-25 09:36:05] [bc4116cebb320aaf00e97176fa7e6356]
-   P           [Testing Mean with unknown Variance - Critical Value] [W4 Q4] [2013-10-25 09:37:49] [bc4116cebb320aaf00e97176fa7e6356]
-    D            [Testing Mean with unknown Variance - Critical Value] [W4 Q5] [2013-10-25 09:42:34] [bc4116cebb320aaf00e97176fa7e6356]
-                   [Testing Mean with unknown Variance - Critical Value] [W4 q6] [2013-10-25 09:53:15] [bc4116cebb320aaf00e97176fa7e6356]
-                   [Testing Mean with unknown Variance - Critical Value] [W6 Q8] [2013-10-25 10:08:17] [bc4116cebb320aaf00e97176fa7e6356]
-                     [Testing Mean with unknown Variance - Critical Value] [W4 Q8] [2013-10-25 10:40:30] [bc4116cebb320aaf00e97176fa7e6356]
- RM D                  [Testing Mean with known Variance - Critical Value] [W4Q8] [2013-10-25 10:55:48] [bc4116cebb320aaf00e97176fa7e6356]
- RM D                  [Testing Mean with known Variance - Sample Size] [W4Q9] [2013-10-25 10:57:51] [bc4116cebb320aaf00e97176fa7e6356]
- R                       [Testing Mean with known Variance - Sample Size] [W4Q10] [2013-10-25 11:02:49] [bc4116cebb320aaf00e97176fa7e6356]
- RM                      [Minimum Sample Size - Testing Mean] [W4Q11] [2013-10-25 11:13:53] [bc4116cebb320aaf00e97176fa7e6356]
- R P                       [Minimum Sample Size - Testing Mean] [Workshop 4 - Task 11] [2013-10-30 15:53:16] [e1b6e5c15a370139a1f66dc7648af660]
-                 [Testing Mean with unknown Variance - Critical Value] [W4 Q6] [2013-10-25 09:48:56] [bc4116cebb320aaf00e97176fa7e6356]
-                   [Testing Mean with unknown Variance - Critical Value] [W 4 Q8] [2013-10-25 10:09:14] [bc4116cebb320aaf00e97176fa7e6356]
-                     [Testing Mean with unknown Variance - Critical Value] [W4 Q8] [2013-10-25 10:39:54] [bc4116cebb320aaf00e97176fa7e6356]
- RM D                  [Testing Mean with known Variance - Critical Value] [W4Q7] [2013-10-25 10:52:52] [bc4116cebb320aaf00e97176fa7e6356]
-                 [Testing Mean with unknown Variance - Critical Value] [W4 Q8] [2013-10-25 10:03:10] [bc4116cebb320aaf00e97176fa7e6356]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
127
108
110
104
140
115
121
112
105
111
151
100
115
124
69
113
123
123
84
121
119
98
109
129
119
119
122
82
114
100
99
132
82
107
114
110
109
106
124
91
128
98
133
124
142
96
93
92
117
130
87
92
114
81
115
123
115
117
103
113
117
133
103
117
113
127
126
119
97
105
140
112
113
92
98
122
100
84
142
137
105
104
98
120
123
90
119
105
135
101
114
122
132
114
103
115
108
105

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' @ jenkins.wessa.net

\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' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=219431&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=219431&T=0

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






Hypothesis Test about the Mean - Confidence Interval
Sample size20
Sample standard deviation17.6861527755473
Confidence0.95
Null hypothesis100
Sample Mean113.8
2-sided Confidence Interval[ 105.5226257069 , 122.0773742931 ]
Left-sided Confidence Interval[ 106.961722411504 , +inf ]
Right-sided Confidence Interval[ -inf, 120.638277588496 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 20 \tabularnewline
Sample standard deviation & 17.6861527755473 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 100 \tabularnewline
Sample Mean & 113.8 \tabularnewline
2-sided Confidence Interval & [ 105.5226257069 , 122.0773742931 ] \tabularnewline
Left-sided Confidence Interval & [ 106.961722411504 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  120.638277588496 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=219431&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]20[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]17.6861527755473[/C][/ROW]
[ROW][C]Confidence[/C][C]0.95[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]100[/C][/ROW]
[ROW][C]Sample Mean[/C][C]113.8[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 105.5226257069 , 122.0773742931 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 106.961722411504 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  120.638277588496 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=219431&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=219431&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 size20
Sample standard deviation17.6861527755473
Confidence0.95
Null hypothesis100
Sample Mean113.8
2-sided Confidence Interval[ 105.5226257069 , 122.0773742931 ]
Left-sided Confidence Interval[ 106.961722411504 , +inf ]
Right-sided Confidence Interval[ -inf, 120.638277588496 ]


Figures (Output of Computation)

Input Parameters & R Code

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