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:12:27 +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/t1288012579cm0gkx29sgl5sqr.htm/, Retrieved Sun, 28 Apr 2024 16:31:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=88114, Retrieved Sun, 28 Apr 2024 16:31:10 +0000
QR Codes:

Original text written by user:
IsPrivate?This computation is/was private until 2010-10-27
User-defined keywords
Estimated Impact984
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:12:27] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
-   PD    [Testing Mean with unknown Variance - Critical Value] [WS4 Question 2 Hy...] [2010-10-28 09:55:53] [2843717cd92615903379c14ebee3c5df]
-    D      [Testing Mean with unknown Variance - Critical Value] [WS4 Question 2 Hy...] [2010-10-28 11:31:25] [2843717cd92615903379c14ebee3c5df]
-   PD    [Testing Mean with unknown Variance - Critical Value] [] [2010-10-29 08:53:30] [22937c5b58c14f6c22964f32d64ff823]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-10-29 08:56:34] [22937c5b58c14f6c22964f32d64ff823]
- R PD    [Testing Mean with unknown Variance - Critical Value] [ws 4 question 2 h...] [2010-10-29 08:59:40] [c1a9f1d6a1a56eda57b5ddd6daa7a288]
-   PD    [Testing Mean with unknown Variance - Critical Value] [] [2010-10-29 08:59:58] [22937c5b58c14f6c22964f32d64ff823]
-   PD    [Testing Mean with unknown Variance - Critical Value] [] [2010-10-29 10:07:30] [22937c5b58c14f6c22964f32d64ff823]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-10-29 10:10:15] [22937c5b58c14f6c22964f32d64ff823]
-   PD    [Testing Mean with unknown Variance - Critical Value] [] [2010-10-29 10:11:56] [22937c5b58c14f6c22964f32d64ff823]
-   PD    [Testing Mean with unknown Variance - Critical Value] [question 2 A] [2010-10-30 08:59:17] [04d4386fa51dbd2ef12d0f1f80644886]
-           [Testing Mean with unknown Variance - Critical Value] [question 2 A] [2010-10-30 16:24:53] [74be16979710d4c4e7c6647856088456]
-   P     [Testing Mean with unknown Variance - Critical Value] [verbetering stude...] [2010-10-31 10:18:53] [1afa3497b02a8d7c9f6727c1b17b89b2]
-   P     [Testing Mean with unknown Variance - Critical Value] [Workshop 4 questi...] [2010-10-31 16:02:37] [d946de7cca328fbcf207448a112523ab]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-01 11:07:25] [afdb2fc47981b6a655b732edc8065db9]
-   P     [Testing Mean with unknown Variance - Critical Value] [vraag 2 - Charlot...] [2010-11-02 17:19:38] [8214fe6d084e5ad7598b249a26cc9f06]
- R P     [Testing Mean with unknown Variance - Critical Value] [dit is een test] [2010-11-09 11:02:36] [63c67d2c4e43d53d437fbe4438f17920]
- RMPD    [Paired and Unpaired Two Samples Tests about the Mean] [] [2010-11-14 13:53:26] [39e83c7b0ac936e906a817a1bb402750]
- RMPD    [Paired and Unpaired Two Samples Tests about the Mean] [] [2010-11-14 14:05:25] [39e83c7b0ac936e906a817a1bb402750]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-17 18:16:56] [29e492448d11757ae0fad5ef6e7f8e86]
- R P       [Testing Mean with unknown Variance - Critical Value] [Peer Review - vra...] [2010-11-18 13:52:39] [91de8b765895d6ee0c73f0d2e284be17]
- R P       [Testing Mean with unknown Variance - Critical Value] [Peer Review - vra...] [2010-11-18 13:52:39] [91de8b765895d6ee0c73f0d2e284be17]
- R P       [Testing Mean with unknown Variance - Critical Value] [Peer Review - vra...] [2010-11-18 13:52:39] [91de8b765895d6ee0c73f0d2e284be17]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 14:37:46] [1ec36cc0fd92fd0f07d0b885ce2c369b]
-   PD    [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 15:12:08] [f47feae0308dca73181bb669fbad1c56]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 15:48:10] [f47feae0308dca73181bb669fbad1c56]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 18:12:44] [adca540665f1dd1a5a4406fd7f55bdf4]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 18:12:44] [adca540665f1dd1a5a4406fd7f55bdf4]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 18:23:53] [adca540665f1dd1a5a4406fd7f55bdf4]
-   P     [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 18:23:53] [adca540665f1dd1a5a4406fd7f55bdf4]
- RMPD    [Paired and Unpaired Two Samples Tests about the Mean] [vraag 1] [2010-11-18 20:01:59] [74be16979710d4c4e7c6647856088456]
- RMPD    [Paired and Unpaired Two Samples Tests about the Mean] [vraag2] [2010-11-18 20:31:26] [74be16979710d4c4e7c6647856088456]
- RMPD    [Paired and Unpaired Two Samples Tests about the Mean] [vraag 1] [2010-11-18 20:34:54] [74be16979710d4c4e7c6647856088456]
- RMPD    [Paired and Unpaired Two Samples Tests about the Mean] [vraag 3] [2010-11-18 20:37:08] [74be16979710d4c4e7c6647856088456]
- RMPD    [Paired and Unpaired Two Samples Tests about the Mean] [vraag 1] [2010-11-18 20:52:11] [74be16979710d4c4e7c6647856088456]
- RMPD    [Bivariate Kernel Density Estimation] [] [2010-11-26 08:39:31] [eab273d59b25a7fddba6574425ce83eb]
-    D      [Bivariate Kernel Density Estimation] [] [2010-11-26 12:03:45] [eab273d59b25a7fddba6574425ce83eb]
- RMPD    [Bivariate Data Series] [] [2010-11-26 08:43:19] [eab273d59b25a7fddba6574425ce83eb]
- RMPD    [Pearson Correlation] [] [2010-11-26 08:45:54] [eab273d59b25a7fddba6574425ce83eb]
-    D      [Pearson Correlation] [] [2010-11-26 12:08:21] [eab273d59b25a7fddba6574425ce83eb]
-   PD    [Testing Mean with unknown Variance - Critical Value] [Hypothese mannen ...] [2010-12-07 09:52:26] [95e8426e0df851c9330605aa1e892ab5]
-   P       [Testing Mean with unknown Variance - Critical Value] [Hypothese mannen ...] [2010-12-07 16:32:31] [95e8426e0df851c9330605aa1e892ab5]
-   PD    [Testing Mean with unknown Variance - Critical Value] [hypothese vrouwen...] [2010-12-07 09:54:19] [95e8426e0df851c9330605aa1e892ab5]
-   P       [Testing Mean with unknown Variance - Critical Value] [hypothese vrouwen...] [2010-12-07 16:36:47] [95e8426e0df851c9330605aa1e892ab5]
-   P       [Testing Mean with unknown Variance - Critical Value] [hypothese vrouwen...] [2010-12-07 16:36:47] [95e8426e0df851c9330605aa1e892ab5]
-   P     [Testing Mean with unknown Variance - Critical Value] [One sided t-test] [2010-12-29 13:05:57] [f1bd7399181c649098ca7b814ee0e027]
-   P     [Testing Mean with unknown Variance - Critical Value] [hypothese 1 one s...] [2010-12-29 13:06:09] [caa3ae6143f673f211f626a62938a034]
- R PD    [Testing Mean with unknown Variance - Critical Value] [ws4TimDamen] [2011-01-24 10:43:45] [74be16979710d4c4e7c6647856088456]
-    D      [Testing Mean with unknown Variance - Critical Value] [ws4TimDamen] [2011-01-24 10:55:12] [74be16979710d4c4e7c6647856088456]

[Truncated]
Feedback Forum

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




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88114&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88114&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88114&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'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Hypothesis Test about the Mean - Confidence Interval
Sample size33
Sample standard deviation0.435194139889245
Confidence0.95
Null hypothesis0
Sample Mean0.757575757575758
2-sided Confidence Interval[ 0.603262625495447 , 0.911888889656068 ]
Left-sided Confidence Interval[ 0.629250852395173 , +inf ]
Right-sided Confidence Interval[ -inf, 0.885900662756342 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 33 \tabularnewline
Sample standard deviation & 0.435194139889245 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 0 \tabularnewline
Sample Mean & 0.757575757575758 \tabularnewline
2-sided Confidence Interval & [ 0.603262625495447 , 0.911888889656068 ] \tabularnewline
Left-sided Confidence Interval & [ 0.629250852395173 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  0.885900662756342 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88114&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]33[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]0.435194139889245[/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.757575757575758[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 0.603262625495447 , 0.911888889656068 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 0.629250852395173 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  0.885900662756342 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88114&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88114&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 size33
Sample standard deviation0.435194139889245
Confidence0.95
Null hypothesis0
Sample Mean0.757575757575758
2-sided Confidence Interval[ 0.603262625495447 , 0.911888889656068 ]
Left-sided Confidence Interval[ 0.629250852395173 , +inf ]
Right-sided Confidence Interval[ -inf, 0.885900662756342 ]



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