FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_hypothesismeanu.wasp
Title produced by softwareTesting Mean with unknown Variance - Critical Value
Date of computationWed, 31 Jan 2018 15:46:55 +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/Jan/31/t15174100526sesk3tgq5lupiz.htm/, Retrieved Tue, 07 May 2024 04:04:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=313035, Retrieved Tue, 07 May 2024 04:04:34 +0000
QR Codes:

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

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] [ngkaegae] [2018-01-31 14:46:55] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2.59999449829348e-05
-2.85934907267594
-0.649147924253459
0.687942947998471
4.41367305458936
0.703339476768331
4.24638256769752
-0.21031024094761
-2.33429839080062
2.31222134046954
3.40165387709617
-8.26737579359373
1.11431688566685
-0.896703867832951
-13.0495075867037
-2.75089595181093
3.57020443154211
3.7574055113659
-1.21788217614298
2.88867284762329
1.59781992526686
1.00314712784885
-1.73721942289088
2.05601650683604
-1.99067699305524
3.03551740874876
-0.116987418658215
-4.51696342873869
1.06611474455578
-2.27975907041329
-0.973045894225907
1.71073449608984
-3.98154642886929
-1.79893253335613
-0.306712700875914
3.60800356989344
3.89232227923729
-1.35160545174532
1.73129042444531
-2.46556929491593
2.47177109164695
-3.57443578331029
1.45909757196057
3.95065370123303
4.34895107689336
-2.90118520309096
-2.8729126504271
-1.66760279022191
-0.0112094278202873
3.89914107395326
-2.63000567859723
-0.395056334182254
0.101751857439638
-4.69361536985854
2.02745050761376
2.65773331930163
-3.54595603574777
-0.51537429539434
-1.03553894638054
1.02295222491643
4.04383594665179
2.47508651949828
-0.941773426557631
4.8476970695209
4.74951891290952
3.44236783510802
4.67122940572583
3.73269214331178
1.94496151991533
-0.107335570699707
6.36111670027364
-2.54684223521272
1.55112357904505
-4.10530256705307
-0.45235015185568
-1.05910330146752
-4.0163355218457
-3.32246785457466
6.9331722028669
4.36185747181973
0.682239507818242
-3.11566034613615
3.22999788042059
1.02894155501679
3.47395118690476
-1.34399446866298
0.644993473163829
-10.5366449635885
4.53073123449612
-1.14799436980038
0.786329128536949
1.66500234160534
6.74668421373588
-1.49039188289985
-3.02587179236191
2.06911535064507
-0.143928297716738
0.204595718772791

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=313035&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]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=313035&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=313035&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 time1 seconds
R ServerBig Analytics Cloud Computing Center






Hypothesis Test about the Mean - Confidence Interval
Sample size98
Sample standard deviation3.39924851098269
Confidence0.99
Null hypothesis15
Sample Mean0.285307855494238
2-sided Confidence Interval[ -0.616901396155377 , 1.18751710714385 ]
Left-sided Confidence Interval[ -0.52691611917175 , +inf ]
Right-sided Confidence Interval[ -inf, 1.09753183016023 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 98 \tabularnewline
Sample standard deviation & 3.39924851098269 \tabularnewline
Confidence & 0.99 \tabularnewline
Null hypothesis & 15 \tabularnewline
Sample Mean & 0.285307855494238 \tabularnewline
2-sided Confidence Interval & [ -0.616901396155377 , 1.18751710714385 ] \tabularnewline
Left-sided Confidence Interval & [ -0.52691611917175 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  1.09753183016023 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=313035&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]98[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]3.39924851098269[/C][/ROW]
[ROW][C]Confidence[/C][C]0.99[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]15[/C][/ROW]
[ROW][C]Sample Mean[/C][C]0.285307855494238[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ -0.616901396155377 , 1.18751710714385 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ -0.52691611917175 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  1.09753183016023 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=313035&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=313035&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 size98
Sample standard deviation3.39924851098269
Confidence0.99
Null hypothesis15
Sample Mean0.285307855494238
2-sided Confidence Interval[ -0.616901396155377 , 1.18751710714385 ]
Left-sided Confidence Interval[ -0.52691611917175 , +inf ]
Right-sided Confidence Interval[ -inf, 1.09753183016023 ]


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = pearson1additivemultiplicativeDefault0.950.99 ; par2 = 2121211515 ; par3 = 0.950 ; par4 = two.sided0 ; par5 = unpaired12 ; par6 = 0.0White Noise ; par7 = 0.95 ;
Parameters (R input):
par1 = 0.99 ; par2 = 15 ;
R code (references can be found in the software module):
par2 <- '15'
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')