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 20:05:02 +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/t14181557088jvnz61jtejqd0e.htm/, Retrieved Thu, 16 May 2024 10:41:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264841, Retrieved Thu, 16 May 2024 10:41:27 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Testing Mean with unknown Variance - Critical Value] [] [2014-12-09 20:05:02] [18673d63f90870b9c004059cd6229007] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
139
158
105
54
91
163
137
153
188
150
94
156
131
111
109
83
138
96
99
202
66
214
177
126
76
99
108
74
110
116
87
97
106
91
133
74
98
126
86
100
94
52
98
118
99
149
148
128
224
159
159
167
165
159
119
176
124
121
148
221
149
244
148
92
153
132
161
105
97
151
166
157
145
162
163
59
187
90
105
116
42
148
155
125
116
128
49
164
162
186
183
188
104
139
162
159
96
127
80
74
114
140
95
121
98
95
110
70
102
130
96
102
68
159
147
39
114
117
149
145
120
109
132
172
114
68
115
78
118
87
2
49
96
82
100
141
146
90
121
155
147
108
113
115
61
77
73
89
78
110
220
117
122
44
101
77
154
103
175
143
49
110
56
137
86
168
140
88
145
63
102
119
132
94
166
64
104
105
95
63
109
117
73
108
105
119
31
48
50
150
154
109
194
158
67
100
111
138
101
131
101
114
165
111
75
82
121
32
150
71
165
154
126
169
156
172
89
167
113
173
162
122
100
115
165
165
110
118
158
49
104
110
60
109
68
111
151
65
141
63
52
131
42
152
107
96
57
112
131
167
121
149
168
94
51
48
66
85
109
162
86
114
164
126
142
83
81
110
93
49
88
102
99
76
57
120
91
117

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

\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
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264841&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]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264841&T=0

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






Hypothesis Test about the Mean - Confidence Interval
Sample size278
Sample standard deviation39.8343536631531
Confidence0.95
Null hypothesis100
Sample Mean116.402877697842
2-sided Confidence Interval[ 111.699767589704 , 121.10598780598 ]
Left-sided Confidence Interval[ 112.459961674753 , +inf ]
Right-sided Confidence Interval[ -inf, 120.34579372093 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 278 \tabularnewline
Sample standard deviation & 39.8343536631531 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 100 \tabularnewline
Sample Mean & 116.402877697842 \tabularnewline
2-sided Confidence Interval & [ 111.699767589704 , 121.10598780598 ] \tabularnewline
Left-sided Confidence Interval & [ 112.459961674753 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  120.34579372093 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264841&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]278[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]39.8343536631531[/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]116.402877697842[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 111.699767589704 , 121.10598780598 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 112.459961674753 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  120.34579372093 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264841&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264841&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 size278
Sample standard deviation39.8343536631531
Confidence0.95
Null hypothesis100
Sample Mean116.402877697842
2-sided Confidence Interval[ 111.699767589704 , 121.10598780598 ]
Left-sided Confidence Interval[ 112.459961674753 , +inf ]
Right-sided Confidence Interval[ -inf, 120.34579372093 ]


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
par1 = 0.95 ; par2 = 100 ;
R code (references can be found in the software module):
par2 <- '12'
par1 <- '0.95'
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')