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 computationMon, 25 Oct 2010 13:22:46 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Oct/25/t12880129593si4uxy6r0eue0w.htm/, Retrieved Sat, 27 Apr 2024 09:07:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=88121, Retrieved Sat, 27 Apr 2024 09:07:06 +0000
QR Codes:

Original text written by user:
IsPrivate?This computation is/was private until 2010-10-27
User-defined keywords
Estimated Impact930
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] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-10-31 10:19:54] [1afa3497b02a8d7c9f6727c1b17b89b2]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-01 12:56:09] [afdb2fc47981b6a655b732edc8065db9]
-   P     [Testing Mean with unknown Variance - Critical Value] [vraag 2 hyp 2- Ch...] [2010-11-02 17:21:54] [8214fe6d084e5ad7598b249a26cc9f06]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-17 18:14:24] [29e492448d11757ae0fad5ef6e7f8e86]
- R P       [Testing Mean with unknown Variance - Critical Value] [Peer Review - vra...] [2010-11-18 14:04:40] [91de8b765895d6ee0c73f0d2e284be17]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 14:45:09] [1ec36cc0fd92fd0f07d0b885ce2c369b]
-   PD    [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 15:16:16] [f47feae0308dca73181bb669fbad1c56]
-   P       [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 15:52:02] [f47feae0308dca73181bb669fbad1c56]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 18:26:07] [adca540665f1dd1a5a4406fd7f55bdf4]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 18:26:07] [adca540665f1dd1a5a4406fd7f55bdf4]
-   P     [Testing Mean with unknown Variance - Critical Value] [Two sided t-test] [2010-12-29 13:07:28] [f1bd7399181c649098ca7b814ee0e027]
-   P     [Testing Mean with unknown Variance - Critical Value] [Hypothese 2 two s...] [2010-12-29 13:08:58] [caa3ae6143f673f211f626a62938a034]
- R P     [Testing Mean with unknown Variance - Critical Value] [workshop 4 mean-U...] [2011-10-22 15:10:19] [aa7c7608f809e956d7797134ec926e04]
- R P     [Testing Mean with unknown Variance - Critical Value] [WS 4 - vraag 2 hy...] [2011-10-22 16:48:34] [6a3e51c0c7ab195427042dfaef1df5a0]
- R P     [Testing Mean with unknown Variance - Critical Value] [] [2011-10-24 17:13:31] [46896e8a404bb9354f2d070359621409]
- RMP     [Testing Mean with unknown Variance - Critical Value] [] [2011-10-24 19:00:31] [74be16979710d4c4e7c6647856088456]
- R P     [Testing Mean with unknown Variance - Critical Value] [] [2011-10-25 09:42:30] [74be16979710d4c4e7c6647856088456]
- R P     [Testing Mean with unknown Variance - Critical Value] [WS 4 - Task 2] [2011-10-25 10:14:11] [43239ed98a62e091c70785d80176537f]
- R P     [Testing Mean with unknown Variance - Critical Value] [WSHP 4 - Q2 - HT2] [2011-10-25 18:16:56] [43a132f5d1d3e2c258a569e3803c6f06]
- R P     [Testing Mean with unknown Variance - Critical Value] [sdfgdsfg] [2011-10-30 12:03:15] [a9671b130b33f9fcb98554992ce4582f]
- R P     [Testing Mean with unknown Variance - Critical Value] [correctie oef 2] [2011-11-04 16:13:53] [380049693c521f4999989215fb37aeca]
- R P     [Testing Mean with unknown Variance - Critical Value] [WS4: vraag 2] [2011-11-06 17:01:03] [8ce6c7315af51b5eb6923c5fe455d382]
- R PD    [Testing Mean with unknown Variance - Critical Value] [WS4: vraag 4] [2011-11-06 17:04:42] [8ce6c7315af51b5eb6923c5fe455d382]
- R PD    [Testing Mean with unknown Variance - Critical Value] [WS4: vraag 5 (2)] [2011-11-06 17:08:25] [8ce6c7315af51b5eb6923c5fe455d382]
- R PD    [Testing Mean with unknown Variance - Critical Value] [WS4: vraag 4 mannen] [2011-11-06 17:11:01] [8ce6c7315af51b5eb6923c5fe455d382]
- R P     [Testing Mean with unknown Variance - Critical Value] [] [2011-12-14 11:55:05] [0f1ce50ec9632e206f4325c3ca8926e2]
- RMP     [Testing Mean with unknown Variance - Critical Value] [] [2011-12-14 11:55:00] [59e8d6f9dbd0564968d0bb4af7b45de5]
- R P     [Testing Mean with unknown Variance - Critical Value] [] [2011-12-14 16:03:56] [4c0148be6b1ebc4ef8d5b4e23a77fcfa]
- R  D      [Testing Mean with unknown Variance - Critical Value] [] [2011-12-19 19:11:57] [ff74c68cc78961a8924de2f2c00accbc]
-           [Testing Mean with unknown Variance - Critical Value] [] [2012-12-20 16:25:28] [74be16979710d4c4e7c6647856088456]
- R PD    [Testing Mean with unknown Variance - Critical Value] [paper] [2011-12-16 18:57:15] [a9dc51245fb8ca00f931d89893d090c8]
- R PD    [Testing Mean with unknown Variance - Critical Value] [Paper SHW Hypothese] [2011-12-16 19:52:23] [de8512d9b386046939a89973b76869e3]
- R P     [Testing Mean with unknown Variance - Critical Value] [] [2011-12-17 16:29:56] [880b2848ba77f3f5ee007f117bbf00fe]
- R P     [Testing Mean with unknown Variance - Critical Value] [Paper Deel 1 toet...] [2011-12-18 14:58:41] [aa7c7608f809e956d7797134ec926e04]
- R PD    [Testing Mean with unknown Variance - Critical Value] [] [2011-12-19 15:30:33] [30b3e197115d238a51c18bcedc33a6a5]
- R P     [Testing Mean with unknown Variance - Critical Value] [Hypothese 2] [2011-12-19 21:31:40] [c035d973aa8488be257660c2dc4ec375]
- R P     [Testing Mean with unknown Variance - Critical Value] [S1] [2011-12-20 00:38:59] [7e17e0c557325a60eb6c8af681a1c273]
- R PD    [Testing Mean with unknown Variance - Critical Value] [T1] [2011-12-20 00:47:19] [7e17e0c557325a60eb6c8af681a1c273]
- R PD    [Testing Mean with unknown Variance - Critical Value] [Hypothese test 2 ...] [2011-12-20 11:51:56] [0c0832a80cf4628193d5c1e6a08841d7]
- R P     [Testing Mean with unknown Variance - Critical Value] [WS 4 - treatment S] [2011-12-21 11:24:17] [d1852ae60c447c0faaa37b55ffb3cb2b]
- R P     [Testing Mean with unknown Variance - Critical Value] [1] [2011-12-22 05:30:52] [98f3ba974ec9d6d754dcc83206539a91]
- R  D      [Testing Mean with unknown Variance - Critical Value] [] [2012-12-09 12:24:00] [bb5a07fb953084e92bbb2844a60a85e1]
- R P     [Testing Mean with unknown Variance - Critical Value] [Deel 2 - toetsen ...] [2011-12-22 18:46:43] [43a132f5d1d3e2c258a569e3803c6f06]
- R PD    [Testing Mean with unknown Variance - Critical Value] [Hypothese T] [2011-12-23 14:51:01] [dea2223cade331092cb80c89f49545fe]
- R PD    [Testing Mean with unknown Variance - Critical Value] [Hypothese T - Good] [2011-12-23 14:53:43] [dea2223cade331092cb80c89f49545fe]
- R P     [Testing Mean with unknown Variance - Critical Value] [Hypothese S] [2011-12-23 14:54:36] [dea2223cade331092cb80c89f49545fe]
- RMPD    [Paired and Unpaired Two Samples Tests about the Mean] [Two Sample Test] [2011-12-23 15:05:49] [dea2223cade331092cb80c89f49545fe]
- R P     [Testing Mean with unknown Variance - Critical Value] [] [2012-10-05 08:49:03] [8fcd082199f7dbedf65d69a953eb5ad7]

[Truncated]
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 time1 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88121&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88121&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88121&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 time1 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







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=88121&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=88121&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88121&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 = 1 ; par2 = 2 ; par3 = 0.95 ; par4 = two.sided ; par5 = paired ; par6 = -0.5 ;
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')