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 Oct 2012 14:23:50 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Oct/03/t13492886397ueuk0k82uzfxxs.htm/, Retrieved Sat, 27 Apr 2024 22:54:23 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=171671, Retrieved Sat, 27 Apr 2024 22:54:23 +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] [WS4] [2012-10-03 18:20:15] [93b3e8d0ee7e4ccb504c2c04707a9358]
-         [Testing Mean with unknown Variance - Critical Value] [] [2012-10-03 18:23:50] [18a55f974a2e8651a7d8da0218fcbdb6] [Current]
-    D      [Testing Mean with unknown Variance - Critical Value] [WS4] [2012-10-03 18:33:00] [93b3e8d0ee7e4ccb504c2c04707a9358]
-    D      [Testing Mean with unknown Variance - Critical Value] [WS4] [2012-10-03 18:42:36] [93b3e8d0ee7e4ccb504c2c04707a9358]
-    D      [Testing Mean with unknown Variance - Critical Value] [WS4] [2012-10-03 18:48:53] [93b3e8d0ee7e4ccb504c2c04707a9358]
-    D      [Testing Mean with unknown Variance - Critical Value] [] [2012-10-03 19:11:17] [93b3e8d0ee7e4ccb504c2c04707a9358]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
	0	1	1	'E'	1	1	2		2	20	15	14	25	16	23	4	NA	20	NA	15	NA	14	NA	25	NA	16	NA	23	NA	4	NA	109		20		15		14		25		16		23		4		109		
0	1	0	'E'	1	0	1		2	28	28	24	28	28	27	4	NA	28	NA	28	NA	24	NA	28	NA	28	NA	27	NA	4	NA	159		28		28		24		28		28		27		4		159		
1	1	4	'E'	0	3	4		1	22	25	15	26	23	22	4	22	NA	25	NA	15	NA	26	NA	23	NA	22	NA	4	NA	129	NA	22		25		15		26		23		22		4		129			
1	1	0	'E'	0	-1	0		1	18	19	15	26	21	27	7	18	NA	19	NA	15	NA	26	NA	21	NA	27	NA	7	NA	119	NA	18		19		15		26		21		27		7		119			
1	1	4	'E'	0	3	4		1	23	20	10	23	21	26	4	23	NA	20	NA	10	NA	23	NA	21	NA	26	NA	4	NA	119	NA	23		20		10		23		21		26		4		119			
1	1	0	'E'	0	-1	0		1	20	24	14	22	26	22	6	20	NA	24	NA	14	NA	22	NA	26	NA	22	NA	6	NA	122	NA	20		24		14		22		26		22		6		122			
1	1	0	'E'	0	-1	0		2	25	26	18	24	22	21	5	NA	25	NA	26	NA	18	NA	24	NA	22	NA	21	NA	5	NA	131		25		26		18		24		22		21		5		131		
0	0	0	'E'	0	0	0		2	26	25	12	21	21	19	4	NA	26	NA	25	NA	12	NA	21	NA	21	NA	19	NA	4	NA	120		26		25		12		21		21		19		4		120		
0	1	4	'E'	1	4	5		1	15	12	9	20	18	24	16	15	NA	12	NA	9	NA	20	NA	18	NA	24	NA	16	NA	82	NA	15		12		9		20		18		24		16		82			
0	1	0	'E'	1	0	1		2	17	12	9	22	12	19	5	NA	17	NA	12	NA	9	NA	22	NA	12	NA	19	NA	5	NA	86		17		12		9		22		12		19		5		86		
1	1	0	'E'	0	-1	0		2	23	15	8	20	25	26	12	NA	23	NA	15	NA	8	NA	20	NA	25	NA	26	NA	12	NA	105		23		15		8		20		25		26		12		105		
1	1	4	'E'	0	3	4		1	21	17	18	25	17	22	6	21	NA	17	NA	18	NA	25	NA	17	NA	22	NA	6	NA	114	NA	21		17		18		25		17		22		6		114			
0	0	4	'E'	0	4	4		2	13	14	10	20	24	28	9	NA	13	NA	14	NA	10	NA	20	NA	24	NA	28	NA	9	NA	100		13		14		10		20		24		28		9		100		
0	1	0	'E'	1	0	1		1	18	16	17	22	15	21	9	18	NA	16	NA	17	NA	22	NA	15	NA	21	NA	9	NA	100	NA	18		16		17		22		15		21		9		100			
1	1	1	'E'	0	0	1		1	19	11	14	23	13	23	4	19	NA	11	NA	14	NA	23	NA	13	NA	23	NA	4	NA	99	NA	19		11		14		23		13		23		4		99			
0	1	0	'E'	1	0	1		1	22	20	16	25	26	28	5	22	NA	20	NA	16	NA	25	NA	26	NA	28	NA	5	NA	132	NA	22		20		16		25		26		28		5		132			
0	0	4	'E'	0	4	4		1	16	11	10	23	16	10	4	16	NA	11	NA	10	NA	23	NA	16	NA	10	NA	4	NA	82	NA	16		11		10		23		16		10		4		82			
0	1	0	'E'	1	0	1		2	24	22	19	23	24	24	4	NA	24	NA	22	NA	19	NA	23	NA	24	NA	24	NA	4	NA	132		24		22		19		23		24		24		4		132		
0	1	2	'E'	1	2	3		1	18	20	10	22	21	21	5	18	NA	20	NA	10	NA	22	NA	21	NA	21	NA	5	NA	107	NA	18		20		10		22		21		21		5		107			
0	1	0	'E'	1	0	1		1	20	19	14	24	20	21	4	20	NA	19	NA	14	NA	24	NA	20	NA	21	NA	4	NA	114	NA	20		19		14		24		20		21		4		114			
0	1	4	'E'	1	4	5		1	24	17	10	25	14	24	4	24	NA	17	NA	10	NA	25	NA	14	NA	24	NA	4	NA	110	NA	24		17		10		25		14		24		4		110			
0	0	4	'E'	0	4	4		2	14	21	4	21	25	24	4	NA	14	NA	21	NA	4	NA	21	NA	25	NA	24	NA	4	NA	105		14		21		4		21		25		24		4		105		
0	0	0	'E'	0	0	0		2	22	23	19	12	25	25	5	NA	22	NA	23	NA	19	NA	12	NA	25	NA	25	NA	5	NA	121		22		23		19		12		25		25		5		121		
0	1	0	'E'	1	0	1		1	24	18	9	17	20	25	4	24	NA	18	NA	9	NA	17	NA	20	NA	25	NA	4	NA	109	NA	24		18		9		17		20		25		4		109			
1	1	4	'E'	0	3	4		1	18	17	12	20	22	23	6	18	NA	17	NA	12	NA	20	NA	22	NA	23	NA	6	NA	106	NA	18		17		12		20		22		23		6		106			
1	1	0	'E'	0	-1	0		1	21	27	16	23	20	21	4	21	NA	27	NA	16	NA	23	NA	20	NA	21	NA	4	NA	124	NA	21		27		16		23		20		21		4		124			
1	0	0	'E'	-1	-1	-1		2	23	25	11	23	26	16	4	NA	23	NA	25	NA	11	NA	23	NA	26	NA	16	NA	4	NA	120		23		25		11		23		26		16		4		120		
0	0	2	'E'	0	2	2		1	17	19	18	20	18	17	18	17	NA	19	NA	18	NA	20	NA	18	NA	17	NA	18	NA	91	NA	17		19		18		20		18		17		18		91			
0	1	0	'E'	1	0	1		2	22	22	11	28	22	25	4	NA	22	NA	22	NA	11	NA	28	NA	22	NA	25	NA	4	NA	126		22		22		11		28		22		25		4		126		
0	1	0	'E'	1	0	1		2	24	24	24	24	24	24	6	NA	24	NA	24	NA	24	NA	24	NA	24	NA	24	NA	6	NA	138		24		24		24		24		24		24		6		138		
0	0	0	'E'	0	0	0		2	21	20	17	24	17	23	4	NA	21	NA	20	NA	17	NA	24	NA	17	NA	23	NA	4	NA	118		21		20		17		24		17		23		4		118		
1	1	4	'E'	0	3	4		1	22	19	18	24	24	25	4	22	NA	19	NA	18	NA	24	NA	24	NA	25	NA	4	NA	128	NA	22		19		18		24		24		25		4		128			
1	1	4	'E'	0	3	4		1	16	11	9	24	20	23	5	16	NA	11	NA	9	NA	24	NA	20	NA	23	NA	5	NA	98	NA	16		11		9		24		20		23		5		98

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 Ronald Aylmer Fisher' @ fisher.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 Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=171671&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 Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=171671&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=171671&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 Ronald Aylmer Fisher' @ fisher.wessa.net


Figures (Output of Computation)

Input Parameters & R Code

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