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 13:59:54 +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/t1418220015b0f7u1ey2m1vlb4.htm/, Retrieved Sun, 19 May 2024 12:58:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265205, Retrieved Sun, 19 May 2024 12:58:46 +0000
QR Codes:

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

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] [bcf5edf18529a33bd1494456d2c6cb9a]
- R  D    [Testing Mean with unknown Variance - Critical Value] [Mannen] [2014-12-10 13:59:54] [6fc1b517ba5ef695988bbc0a377c4b82] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
119
138
97
117
95
168
109
115
135
130
109
117
136
132
129
131
123
125
131
128
130
112
122
115
120
119
91
107
118
111
95
108
130
110
131
113
103
140
125
127
120
111
125
104
106
119
112
122
111
112
97
124
130
122
126
114
99
137
108
123
125
106
138
127
94
133
119
127
103
72
113
125
111
105
127
143
116
123
101
119
143
114
108
122
133
94
128
108
125
112
89
117
142
128
125
108
116
116
128
125
134
127
120
116
121
155
125
114
116
127
102
110
119
97
125
108
142
117
97
66
113
130
126
86
122
124
120
128
102
97
129
115
112
120
133
136
147
123
121
119
137
63
134
121
114
106
135
101
131
129
117
106
130
97
101
97
126
107
133
132
122
125
110
127
99
98
120
118
121
118
111
107
114
120
132
129
121
123
131
122
103
95
139
106
106
139
104
117
132
102
96
134
152
106
112
140
132
107
105
114
122
115
143
111
126
122
112
137
114
134
124
128
132
128
100
132
149
125
114
105
137
103
104
135
121
128
92
102
118
131
104
112
131
75
117
101
141
114
103
128
130
136
131
130
99
140
130
121
102
120
129
104
104
111
135
136
110
125
145
138
130
148
77
132
113
136
110
116
155
73
120
126
142
117
125
112
103
134
117
135
124

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=265205&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=265205&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265205&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 size281
Sample standard deviation15.3227545604827
Confidence0.95
Null hypothesis100
Sample Mean118.857651245552
2-sided Confidence Interval[ 117.058312063843 , 120.656990427261 ]
Left-sided Confidence Interval[ 117.349134201199 , +inf ]
Right-sided Confidence Interval[ -inf, 120.366168289904 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 281 \tabularnewline
Sample standard deviation & 15.3227545604827 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 100 \tabularnewline
Sample Mean & 118.857651245552 \tabularnewline
2-sided Confidence Interval & [ 117.058312063843 , 120.656990427261 ] \tabularnewline
Left-sided Confidence Interval & [ 117.349134201199 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  120.366168289904 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265205&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]15.3227545604827[/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]118.857651245552[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 117.058312063843 , 120.656990427261 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 117.349134201199 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  120.366168289904 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265205&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265205&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 deviation15.3227545604827
Confidence0.95
Null hypothesis100
Sample Mean118.857651245552
2-sided Confidence Interval[ 117.058312063843 , 120.656990427261 ]
Left-sided Confidence Interval[ 117.349134201199 , +inf ]
Right-sided Confidence Interval[ -inf, 120.366168289904 ]


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