Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_hypothesismeanu.wasp

Title produced by software

Testing Mean with unknown Variance - Critical Value

Date of computation

Tue, 18 Dec 2007 07:14:41 -0700

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2007/Dec/18/t1197986271wqdzqwa2bizxrje.htm/, Retrieved Sat, 04 May 2024 10:11:40 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=4528, Retrieved Sat, 04 May 2024 10:11:40 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

206

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] [Paper-testing mea...] [2007-12-18 14:14:41] [5b9249e3962a4d9b95a2c513d8084bf7] [Current]
-   PD    [Testing Mean with unknown Variance - Critical Value] [Paper-testing mea...] [2008-12-27 12:24:14] [1aad2bd7746abaf3ab17fe0d80878872] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-0.361846007532772
3.68863098861213
0.682519663180303
7.63067731671178
-1.52075037210644
5.70955581144987
13.1939928862509
-5.49940323517293
1.76500444649349
1.96677142422135
-5.60662922820024
-7.31646013152379
-1.08563548801227
-0.099103421317697
-9.39514313732207
-6.39447775845358
-2.02805473224696
0.903602088633067
7.57491469457003
-2.19407311445752
3.58898833702079
-1.68951274457543
-1.53671157669086
13.3598886375142
-3.65726657887787
0.613493186862468
9.24506908223031
11.0285738876639
-3.49893748343257
-6.55850163797107
5.54750744110568
16.5005808635365
-0.0867999869147866
-10.1895526735612
-1.56002146200367
3.61791774409454
-3.46228026897451
-0.839719033549138
-1.74844063591575
-5.59275453302008
-4.31083509741400
8.28778989827125
-14.0676602788114
-4.07578881412959
3.95794121224257
-2.54404876219145
24.3555160491049
11.7342693021934
3.81944484749606
-2.98176766619709
7.45551605729516
-6.39245158356992
11.7003155629076
2.36027611470617
-7.48442696186156
-2.54111530629837
-2.30507409276129
10.8550201878513
-2.11331989623902
3.4086895867965
11.2003605872847
-1.20537867882487
5.81786820725412
-2.61150202837964
-1.54008349441135
-5.42145151519334
11.6034074049369
-9.06789177079852

Summary of compuational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of compuational 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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4528&T=0

[TABLE]
[ROW][C]Summary of compuational 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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=4528&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=4528&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 compuational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Hypothesis Test about the Mean - Confidence Interval
Sample size	68
Sample standard deviation	7.12450054862158
Confidence	0.95
Null hypothesis	0
Sample Mean	1.06748871072908
2-sided Confidence Interval	[ -0.657007810164219 , 2.79198523162237 ]
Left-sided Confidence Interval	[ -0.373545105647259 , +inf ]
Right-sided Confidence Interval	[ -inf, 2.50852252710542 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 68 \tabularnewline
Sample standard deviation & 7.12450054862158 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 0 \tabularnewline
Sample Mean & 1.06748871072908 \tabularnewline
2-sided Confidence Interval & [ -0.657007810164219 , 2.79198523162237 ] \tabularnewline
Left-sided Confidence Interval & [ -0.373545105647259 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  2.50852252710542 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4528&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]68[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]7.12450054862158[/C][/ROW]
[ROW][C]Confidence[/C][C]0.95[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]0[/C][/ROW]
[ROW][C]Sample Mean[/C][C]1.06748871072908[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ -0.657007810164219 , 2.79198523162237 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ -0.373545105647259 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  2.50852252710542 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=4528&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=4528&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 size	68
Sample standard deviation	7.12450054862158
Confidence	0.95
Null hypothesis	0
Sample Mean	1.06748871072908
2-sided Confidence Interval	[ -0.657007810164219 , 2.79198523162237 ]
Left-sided Confidence Interval	[ -0.373545105647259 , +inf ]
Right-sided Confidence Interval	[ -inf, 2.50852252710542 ]

Parameters (Session):

par1 = 0.95 ; par2 = 0 ;

Parameters (R input):

par1 = 0.95 ; par2 = 0 ;

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code