Free Statistics

of Irreproducible Research!

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 computationTue, 07 Oct 2014 08:51:34 +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/2014/Oct/07/t1412668305hhbl5zpki7m51x2.htm/, Retrieved Fri, 10 May 2024 00:19:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=239088, Retrieved Fri, 10 May 2024 00:19:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact249
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] [] [2010-10-25 13:22:46] [b98453cac15ba1066b407e146608df68]
- RMP     [Testing Mean with unknown Variance - Critical Value] [] [2014-10-07 07:51:34] [63a9f0ea7bb98050796b649e85481845] [Current]
-           [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 08:00:39] [2b9d0c54c8c845c625e475ed5f1f3af1]
-  M        [Testing Mean with unknown Variance - Critical Value] [Compendium 4, Que...] [2014-10-22 10:23:26] [be945163e51ed825733188af308451be]
- R PD      [Testing Mean with unknown Variance - Critical Value] [Hypothese 3] [2014-10-22 10:50:04] [508ad00fbaced7ad8e80ddb3167ea0fd]
- R  D      [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 11:35:04] [9b99fe494671b75fb711c2dc543f4e3e]
- R         [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 11:47:01] [9b99fe494671b75fb711c2dc543f4e3e]
-  M        [Testing Mean with unknown Variance - Critical Value] [WS4] [2014-10-22 11:48:21] [93cb0d178904cf975da218b7c929e42d]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 11:55:21] [5d70ade31d892c55b68fa1af48da4bec]
-           [Testing Mean with unknown Variance - Critical Value] [WS4 -2] [2014-10-22 12:00:42] [40df8d8b5657a9599acc6ccced535535]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 12:10:03] [5d70ade31d892c55b68fa1af48da4bec]
-    D      [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 12:20:43] [765bd0d5d4a0c852014c120c6930661d]
-           [Testing Mean with unknown Variance - Critical Value] [WS4-task1-test2] [2014-10-22 12:21:01] [81f624c2f0b20a2549c93e7c3dccf981]
-           [Testing Mean with unknown Variance - Critical Value] [hyp 2] [2014-10-22 12:32:25] [2ba32e9656c7c3fdddad3ba3f1588288]
-           [Testing Mean with unknown Variance - Critical Value] [Hypothese test 2] [2014-10-22 12:45:03] [1e921ed6280e31020168fe5cd3fc7265]
-           [Testing Mean with unknown Variance - Critical Value] [WS4 Q1] [2014-10-22 13:11:40] [bcf5edf18529a33bd1494456d2c6cb9a]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 13:21:06] [eee95947b6243a1febfcd5f41483d733]
-           [Testing Mean with unknown Variance - Critical Value] [WS4 SHW] [2014-10-22 13:21:11] [cac6c5fb035463be46c296b46e439cb5]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 13:22:20] [ae96d02647dd9ad9c105f1fa6642e295]
-  M        [Testing Mean with unknown Variance - Critical Value] [q] [2014-10-22 13:23:14] [6656361aa4da5489a6a45e803df0211c]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 13:23:26] [dacad244957cb51472792888970d4390]
-           [Testing Mean with unknown Variance - Critical Value] [Hypothese 2] [2014-10-22 13:25:53] [36781f05c04c55e165b348994b753b95]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 13:58:09] [7b576ab45e161dc8fb6fe50455a3800c]
-           [Testing Mean with unknown Variance - Critical Value] [Q2] [2014-10-22 14:14:46] [1651e47f7f65f3a10bbbb444d4b26be7]
-           [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 15:05:42] [99723d3e379f668157309b7b2091b15d]
-   P       [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 15:21:28] [5efa6717cfe6505454df834acc87b53b]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 15:40:41] [8d160a85bfd9526a7d0e42afc5fb569b]
-           [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 15:53:09] [1a6d42b46b3d01bc960fcfb45e99fecd]
-           [Testing Mean with unknown Variance - Critical Value] [hypothese 14] [2014-10-22 16:31:14] [55a850ac261e4a7d4f206113c00d6f60]
-  M        [Testing Mean with unknown Variance - Critical Value] [wS4 q2] [2014-10-22 16:47:43] [8523551e1e4e3cbe97fa25692e177b2e]
-           [Testing Mean with unknown Variance - Critical Value] [] [2014-10-22 18:58:45] [9922f47a08b670aeeb7c38448acbfea1]
-           [Testing Mean with unknown Variance - Critical Value] [2] [2014-10-23 07:58:54] [9378e2688aa9dcfd1390615d31e9d404]
-           [Testing Mean with unknown Variance - Critical Value] [1] [2014-10-23 13:31:48] [118a39334d200089014f927b57d44a19]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-23 13:48:18] [dd7a37d66cc3f8699a204e53c0324369]
-           [Testing Mean with unknown Variance - Critical Value] [] [2014-10-23 17:13:28] [02fb6cbf799bcf1e525e4e01c2f27ada]
-           [Testing Mean with unknown Variance - Critical Value] [] [2014-10-23 17:15:11] [02fb6cbf799bcf1e525e4e01c2f27ada]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-23 17:33:13] [78252ca1523d3477f114bddbfa59edb4]
-           [Testing Mean with unknown Variance - Critical Value] [] [2014-10-23 17:37:15] [044144d0728beecdb08e0d94daaff202]
-  M        [Testing Mean with unknown Variance - Critical Value] [Compendium 4] [2014-10-23 18:30:15] [006b54b8ce76f482b86cd20c6480b526]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-23 18:39:06] [69bf0eb8b9b38defaaf4848d8c317571]
-           [Testing Mean with unknown Variance - Critical Value] [] [2014-10-23 18:39:05] [82473208b72870f966ef7d4d2162cc96]
-           [Testing Mean with unknown Variance - Critical Value] [ht2] [2014-10-23 19:00:36] [4987e1e3573a375c88e9a0c129fd9e05]
-    D      [Testing Mean with unknown Variance - Critical Value] [Hypothese2 test] [2014-10-23 21:23:24] [0f2441473984dd788bd8148394ed78a8]
-   PD      [Testing Mean with unknown Variance - Critical Value] [Hypothese3 test] [2014-10-23 21:33:54] [0f2441473984dd788bd8148394ed78a8]
-   P         [Testing Mean with unknown Variance - Critical Value] [Hypothese3 test] [2014-10-23 21:36:14] [0f2441473984dd788bd8148394ed78a8]
-  M        [Testing Mean with unknown Variance - Critical Value] [] [2014-10-24 11:51:37] [6656361aa4da5489a6a45e803df0211c]
- R PD      [Testing Mean with unknown Variance - Critical Value] [] [2014-12-12 19:03:06] [67894a4ff6098ffac356bc81e6028257]
- R P         [Testing Mean with unknown Variance - Critical Value] [] [2014-12-18 17:56:37] [67894a4ff6098ffac356bc81e6028257]
- R PD      [Testing Mean with unknown Variance - Critical Value] [] [2014-12-15 10:47:25] [67894a4ff6098ffac356bc81e6028257]
- R  D      [Testing Mean with unknown Variance - Critical Value] [] [2015-07-30 03:00:21] [82473208b72870f966ef7d4d2162cc96]
Feedback Forum

Post a new message
Dataseries X:
1
1
1
1
1
0
0
1
0
1
0
0
0
0
0
0
0
1
0
0
1
1
1
1
1
1
1
1
0
0
1
0
0
0
1




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Sir Maurice George Kendall' @ kendall.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 & 0 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=239088&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=239088&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=239088&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 computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net







Hypothesis Test about the Mean - Confidence Interval
Sample size35
Sample standard deviation0.50709255283711
Confidence0.95
Null hypothesis0
Sample Mean0.514285714285714
2-sided Confidence Interval[ 0.340093327772767 , 0.688478100798662 ]
Left-sided Confidence Interval[ 0.369349349555412 , +inf ]
Right-sided Confidence Interval[ -inf, 0.659222079016016 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 35 \tabularnewline
Sample standard deviation & 0.50709255283711 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 0 \tabularnewline
Sample Mean & 0.514285714285714 \tabularnewline
2-sided Confidence Interval & [ 0.340093327772767 , 0.688478100798662 ] \tabularnewline
Left-sided Confidence Interval & [ 0.369349349555412 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  0.659222079016016 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=239088&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]35[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]0.50709255283711[/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.514285714285714[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 0.340093327772767 , 0.688478100798662 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 0.369349349555412 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  0.659222079016016 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=239088&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=239088&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 size35
Sample standard deviation0.50709255283711
Confidence0.95
Null hypothesis0
Sample Mean0.514285714285714
2-sided Confidence Interval[ 0.340093327772767 , 0.688478100798662 ]
Left-sided Confidence Interval[ 0.369349349555412 , +inf ]
Right-sided Confidence Interval[ -inf, 0.659222079016016 ]



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