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, 03 Dec 2014 16:33:07 +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/03/t141762440479s4ob7jbz9by6z.htm/, Retrieved Thu, 16 May 2024 15:41:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262982, Retrieved Thu, 16 May 2024 15:41:24 +0000
QR Codes:

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

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-03 16:33:07] [023a69c6c348bca0f1811b046758af62] [Current]
- R  D    [Testing Mean with unknown Variance - Critical Value] [Mannen] [2014-12-10 13:59:54] [1651e47f7f65f3a10bbbb444d4b26be7]
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'Sir Maurice George Kendall' @ kendall.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 & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262982&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]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262982&T=0

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






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=262982&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=262982&T=1

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