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 computationSat, 15 Dec 2018 15:15:41 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2018/Dec/15/t15448846559mso4xkknxoeyao.htm/, Retrieved Mon, 06 May 2024 18:43:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315888, Retrieved Mon, 06 May 2024 18:43:05 +0000
QR Codes:

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

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] [H1, O1] [2018-12-15 14:15:41] [96a3b24b75e7284ce894536897ad7134] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
68402973
33983679
59425505
93704912
34384843
29509541
33174094
37038562
49120253
53313813
18042851
50764999
19823573
40400208
22736446
41445019
45863324
35782791
22396513
40448772
64533816
46895644
36176196
44330856
32207582
31435973
58345141
40917047
41015492
28025765
35252444
23804043
52076897
53371007
45811716
21871292
31072217
28742414
36523683
36471512
39241114
45328074
26734515
54850917
37136863
34139765
30313351
40105965
29924285
40692320
59642837
30450843
37840594
41503540
60756112
63005645
49511874
50828392
39259197
39703400
55333142
41998933
40560159
68235885
74472949
72801787
31230054
53131324
59363993
38839746
28592785
46658844
39106174
27753301
49787445
51592193
36187559

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315888&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=315888&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315888&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center






Hypothesis Test about the Mean - Confidence Interval
Sample size77
Sample standard deviation14047288.7437352
Confidence0.96
Null hypothesis3.5e+07
Sample Mean42665704.987013
2-sided Confidence Interval[ 39320599.2547453 , 46010810.7192807 ]
Left-sided Confidence Interval[ 39825162.1172935 , +inf ]
Right-sided Confidence Interval[ -inf, 45506247.8567325 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 77 \tabularnewline
Sample standard deviation & 14047288.7437352 \tabularnewline
Confidence & 0.96 \tabularnewline
Null hypothesis & 3.5e+07 \tabularnewline
Sample Mean & 42665704.987013 \tabularnewline
2-sided Confidence Interval & [ 39320599.2547453 , 46010810.7192807 ] \tabularnewline
Left-sided Confidence Interval & [ 39825162.1172935 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  45506247.8567325 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315888&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]77[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]14047288.7437352[/C][/ROW]
[ROW][C]Confidence[/C][C]0.96[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]3.5e+07[/C][/ROW]
[ROW][C]Sample Mean[/C][C]42665704.987013[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 39320599.2547453 , 46010810.7192807 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 39825162.1172935 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  45506247.8567325 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=315888&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315888&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 size77
Sample standard deviation14047288.7437352
Confidence0.96
Null hypothesis3.5e+07
Sample Mean42665704.987013
2-sided Confidence Interval[ 39320599.2547453 , 46010810.7192807 ]
Left-sided Confidence Interval[ 39825162.1172935 , +inf ]
Right-sided Confidence Interval[ -inf, 45506247.8567325 ]


Figures (Output of Computation)

Input Parameters & R Code

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