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 computationMon, 21 Jan 2008 13:00:19 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Jan/21/t1200945262kaucpet6swm0s7n.htm/, Retrieved Wed, 15 May 2024 23:10:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=8042, Retrieved Wed, 15 May 2024 23:10:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKlaas Van Pelt
Estimated Impact264

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] [Hypo] [2008-01-21 20:00:19] [6abd901c2e17b7d5559c695bbff3d863] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
0.0920999483895251 
-0.661235159527426 
-0.545390217690751 
1.84083710495651 
1.46560381902488 
-0.385977545699043 
-6.66380275713979 
-0.0308537217038178 
2.99099773948675 
-6.07956277426519 
-3.32380776514134 
-2.13534220368013 
4.17726687644521 
-1.88483511225136 
4.32032586117556 
5.01955700566159 
-1.18473828988472 
-3.52102075156362 
-0.459480935761315 
1.05369157570743 
9.13157352610061 
4.26114136236761 
-7.87121212228509 
1.55581634456701 
-10.8887360210219 
8.25296805537383 
-1.83997332562592 
-7.62224825377655 
-5.40632098557146 
2.59560800098151 
3.37669355477046 
2.51051188643414 
-0.133112183983659 
1.76509973840143 
2.61993678174254 
-2.13496336723294 
-0.130859285441090 
-2.17717514581710 
3.32349169188177 
-0.203694385559729 
8.3942547620912 
0.893649606235385 
0.247317025903314 
8.78115243855602 
-1.25432061423584 
10.1471620457646 
-6.43495549200685 
1.27193139250693 
-15.6818171148577 
4.37988560711793 
11.2422582915534 
3.20258069940299 
-3.80525826075886 
6.2472017910632 
5.12525404526529 
2.63104754246909 
14.2559923818951 
3.42817218699915 
-11.3365485144944 
2.78868989805804 
5.41380690674063 
-0.795184087460314 
-0.522675955354885 
5.03638977601517 
-3.83618380577121 
-2.04668547488907 
4.77755094831181 
-5.00099216112739 
-11.0483905235327 
-8.1477486460902 
3.53824446863189 
-1.79936835143724 
0.222980922096426 
0.0730330977356317 
2.74600888141947 
4.43935066443206 
3.64533772778529 
-0.213317787182433 
1.77941996505484 
-1.43955660877853

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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=8042&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=8042&T=0

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






Hypothesis Test about the Mean - Confidence Interval
Sample size80
Sample standard deviation5.25554451615034
Confidence0.95
Null hypothesis0
Sample Mean0.455181852974646
2-sided Confidence Interval[ -0.714382287327326 , 1.62474599327662 ]
Left-sided Confidence Interval[ -0.522782381581573 , +inf ]
Right-sided Confidence Interval[ -inf, 1.43314608753086 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 80 \tabularnewline
Sample standard deviation & 5.25554451615034 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 0 \tabularnewline
Sample Mean & 0.455181852974646 \tabularnewline
2-sided Confidence Interval & [ -0.714382287327326 , 1.62474599327662 ] \tabularnewline
Left-sided Confidence Interval & [ -0.522782381581573 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  1.43314608753086 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=8042&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]80[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]5.25554451615034[/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]0.455181852974646[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ -0.714382287327326 , 1.62474599327662 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ -0.522782381581573 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  1.43314608753086 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=8042&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=8042&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 size80
Sample standard deviation5.25554451615034
Confidence0.95
Null hypothesis0
Sample Mean0.455181852974646
2-sided Confidence Interval[ -0.714382287327326 , 1.62474599327662 ]
Left-sided Confidence Interval[ -0.522782381581573 , +inf ]
Right-sided Confidence Interval[ -inf, 1.43314608753086 ]


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