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 computationTue, 09 Dec 2014 21:33:47 +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/09/t1418160844qc6xpk33r5sft6x.htm/, Retrieved Thu, 16 May 2024 05:58:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264854, Retrieved Thu, 16 May 2024 05:58:37 +0000
QR Codes:

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

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] [] [2014-12-02 22:04:37] [6b382800c0d3804662889dbce999b8c7]
-    D        [Testing Mean with unknown Variance - Critical Value] [] [2014-12-02 22:09:18] [6b382800c0d3804662889dbce999b8c7]
-    D            [Testing Mean with unknown Variance - Critical Value] [] [2014-12-09 21:33:47] [6993448de96b8662e47595bfdf466bf3] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
115

134
93
108

84
164
105
109
131
122



105

111

132
124

125
122
119
118

127



124
123
107
114
110

111
112

87
103
114
107
88

101
126

106
127
105
99
136
121
123

108

107
121


99

97

115
107




118
104

106

92


120



124

115
122



106
88
131

103

115
116
102
134
122

89
129
115






123
97
68
105
120

94
101

119


139
112
118
94
115
139
107
97

118
129
90
124
104
121

104
66
113
134
122



121



98

111
111

124
120
129




123

116

98

116


151

119
106
108
121
94

106



115

82




119
104
135
113


82




38
109


125

122
74
117

118
114
123



92
90

125
108



107
112



128
132



143
119
117
113

127
59
129


117

110
99
131

87

126
124

110

90

126


92
87

81
116

101


129
127

118


121


95
120
94

90
115
114
117

113


107

102


109

114
127



122

113
116
127
116

95

91






135
99
101





135
96
112
128

95

83
130

148






101


108
136
126
98

99
101




118






106
137
107


122

117
108
133
110
129





120


124


128

124
96

128

144

118
110
101

132
98

92
130
112
116

76


98

112
127


98
107
125
71

110
92
136
109


91

122
121

131

127


126
88
136
124


117

96

113
120
99
90
107
131
132
105

121


141
128
126
144
71
128
104

132
105
102

151
69
103
122

133
110


118
102
98
130

113

129
119

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'George Udny Yule' @ yule.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 & 'George Udny Yule' @ yule.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=264854&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]'George Udny Yule' @ yule.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=264854&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264854&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'George Udny Yule' @ yule.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 size281
Sample standard deviation16.8166062586953
Confidence0.95
Null hypothesis100
Sample Mean112.629893238434
2-sided Confidence Interval[ 110.65513221063 , 114.604654266238 ]
Left-sided Confidence Interval[ 110.974307288188 , +inf ]
Right-sided Confidence Interval[ -inf, 114.28547918868 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 281 \tabularnewline
Sample standard deviation & 16.8166062586953 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 100 \tabularnewline
Sample Mean & 112.629893238434 \tabularnewline
2-sided Confidence Interval & [ 110.65513221063 , 114.604654266238 ] \tabularnewline
Left-sided Confidence Interval & [ 110.974307288188 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  114.28547918868 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264854&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]281[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]16.8166062586953[/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]112.629893238434[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 110.65513221063 , 114.604654266238 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 110.974307288188 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  114.28547918868 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264854&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264854&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 size281
Sample standard deviation16.8166062586953
Confidence0.95
Null hypothesis100
Sample Mean112.629893238434
2-sided Confidence Interval[ 110.65513221063 , 114.604654266238 ]
Left-sided Confidence Interval[ 110.974307288188 , +inf ]
Right-sided Confidence Interval[ -inf, 114.28547918868 ]


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