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, 10 Dec 2014 10:54:14 +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/10/t14182090382iiqxyzuiw88el2.htm/, Retrieved Sun, 19 May 2024 12:56:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264913, Retrieved Sun, 19 May 2024 12:56:54 +0000
QR Codes:

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

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]
- RMPD    [Testing Mean with unknown Variance - Critical Value] [] [2014-10-07 08:38:27] [32b17a345b130fdf5cc88718ed94a974]
-    D        [Testing Mean with unknown Variance - Critical Value] [Paper: academic M...] [2014-12-10 10:54:14] [ccc8d5d8fda28a28a4ef088d048ade85] [Current]
-    D          [Testing Mean with unknown Variance - Critical Value] [Paper: motivatie ...] [2014-12-10 11:11:52] [9378e2688aa9dcfd1390615d31e9d404]
-    D          [Testing Mean with unknown Variance - Critical Value] [TM2] [2014-12-15 11:02:03] [9378e2688aa9dcfd1390615d31e9d404]
-    D          [Testing Mean with unknown Variance - Critical Value] [TF2] [2014-12-15 11:03:12] [9378e2688aa9dcfd1390615d31e9d404]
- RM D          [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [verband mot. en num.] [2014-12-15 11:45:28] [9378e2688aa9dcfd1390615d31e9d404]
- R               [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [verband mot en cu...] [2014-12-15 11:54:02] [9378e2688aa9dcfd1390615d31e9d404]
- R               [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [verband mot en so...] [2014-12-15 11:57:06] [9378e2688aa9dcfd1390615d31e9d404]
- R  D            [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [hi en lo mot en num] [2014-12-15 12:01:33] [9378e2688aa9dcfd1390615d31e9d404]
- R  D            [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [hi en lo mot en c...] [2014-12-15 12:13:47] [9378e2688aa9dcfd1390615d31e9d404]
- R  D            [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [hi en lo mot en s...] [2014-12-15 12:15:37] [9378e2688aa9dcfd1390615d31e9d404]
- R  D            [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [Verband rfc uren ...] [2014-12-15 12:43:13] [9378e2688aa9dcfd1390615d31e9d404]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
76
119

91



125






131
143
134

126

155


129




112

129
99
114





124


123





135


143







116

108


126
116

113

139


101
110
115
116


115

109

132
102

115
128
121

99


141
124
127



97

138





142



114
114
123
126
118
132





109


122

117
91








128






130





114
123
89

110
112
109

139


88



126
121
106
109

101

99

125

127
129

113





87

115
108
97

130

120
125
131
129




130
93

120
110
111
130


126
114

112



118



134
133
131


93


116
136
142


121
110
122


118
130
114




129



140
134

105



100

131


120

82

125

147
125


128


118

87
156


133

125
127

99
128



126




121

53
121

117

129
100

122


107
117
110

114




118

108

116
131
106
132
124
114



135
106
113
119
130




124

121


122

112
115
120
116
141
137

128
91




124


112
113
137
103

121
123
126
108
129
101



115
138

140





125
106
135
133
146

109
127

128
147

118


111

138

114



137


118




140

145
130

116


109
139




109




124
117

106


130

127

120
126




161
118

139

118








129

128
140







128



128




133


108
142




121

128

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
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 & 1 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=264913&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]
[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=264913&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264913&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
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 deviation14.8288825830501
Confidence0.95
Null hypothesis100
Sample Mean120.387096774194
2-sided Confidence Interval[ 118.402981821076 , 122.371211727311 ]
Left-sided Confidence Interval[ 118.724172494929 , +inf ]
Right-sided Confidence Interval[ -inf, 122.050021053458 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 217 \tabularnewline
Sample standard deviation & 14.8288825830501 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 100 \tabularnewline
Sample Mean & 120.387096774194 \tabularnewline
2-sided Confidence Interval & [ 118.402981821076 , 122.371211727311 ] \tabularnewline
Left-sided Confidence Interval & [ 118.724172494929 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  122.050021053458 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264913&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]14.8288825830501[/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]120.387096774194[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 118.402981821076 , 122.371211727311 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 118.724172494929 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  122.050021053458 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264913&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264913&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 deviation14.8288825830501
Confidence0.95
Null hypothesis100
Sample Mean120.387096774194
2-sided Confidence Interval[ 118.402981821076 , 122.371211727311 ]
Left-sided Confidence Interval[ 118.724172494929 , +inf ]
Right-sided Confidence Interval[ -inf, 122.050021053458 ]


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')