Free Statistics

of Irreproducible Research!

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, 02 Dec 2014 22:04:37 +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/02/t1417558096hdndp11g7dud587.htm/, Retrieved Thu, 31 Oct 2024 23:36:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262911, Retrieved Thu, 31 Oct 2024 23:36:01 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact140
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] [6993448de96b8662e47595bfdf466bf3] [Current]
-    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] [6b382800c0d3804662889dbce999b8c7]
Feedback Forum

Post a new message
Dataseries X:
72
110

86



117






127
139
123

122

149


124




102

125
92
102





120


119





131


139







109

104


121
101

103

131


97
101
111
106


111

102

128
98

111
124
117

89


137
117
123



83

134





138



107
104
119
121
114
128





105


118

113
84








121






124





110
119
82

106
108
105

133


84



121
116
102
103

97

90

119

123
118

103





83

106
99
92

126

110
116
124
120




123
89

116
101
107
126


122
110

108



114



130
129
127


89


112
132
130


115
93
118


113
125
108




121



136
130

89



96

126


115

63

121

140
116


124


113

83
152


129

120
123

94
120



118




110

31
117

113

125
84

118


103
113
106

110




113

100

109
127
93
128
120
110



131
101
101
111
126




120

116


118

106
111
116
112
137
133

122
87




119


108
106
132
99

117
117
120
100
123
96



106
134

136





120
98
131
129
137

105
123

124
143

114


107

134

106



133


112




136

141
125

112


105
134




105




120
113

102


126

123

116
122




157
113

135

114








125

119
136







123



119




128


104
137




113

124




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.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 & 'Sir Maurice George Kendall' @ kendall.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=262911&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]'Sir Maurice George Kendall' @ kendall.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=262911&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262911&T=0

As an alternative you can also use a 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'Sir Maurice George Kendall' @ kendall.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 deviation15.9974129586266
Confidence0.95
Null hypothesis100
Sample Mean114.599078341014
2-sided Confidence Interval[ 112.45861319911 , 116.739543482918 ]
Left-sided Confidence Interval[ 112.80511401057 , +inf ]
Right-sided Confidence Interval[ -inf, 116.393042671457 ]

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262911&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Hypothesis Test about the Mean - Confidence Interval
Sample size217
Sample standard deviation15.9974129586266
Confidence0.95
Null hypothesis100
Sample Mean114.599078341014
2-sided Confidence Interval[ 112.45861319911 , 116.739543482918 ]
Left-sided Confidence Interval[ 112.80511401057 , +inf ]
Right-sided Confidence Interval[ -inf, 116.393042671457 ]



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