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 20:57:31 +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/t1288040179ws68cbfooxjj9ot.htm/, Retrieved Mon, 29 Apr 2024 21:09:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=88533, Retrieved Mon, 29 Apr 2024 21:09:14 +0000
QR Codes:

Original text written by user:
IsPrivate?This computation is/was private until 2010-10-27
User-defined keywords
Estimated Impact946
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 20:57:31] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
-         [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 16:01:20] [f47feae0308dca73181bb669fbad1c56]
-    D    [Testing Mean with unknown Variance - Critical Value] [Vraag 5] [2010-11-18 18:23:05] [4f1a20f787b3465111b61213cdeef1a9]
-         [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 18:26:49] [f47feae0308dca73181bb669fbad1c56]
-    D    [Testing Mean with unknown Variance - Critical Value] [] [2010-11-18 18:33:20] [adca540665f1dd1a5a4406fd7f55bdf4]
-    D    [Testing Mean with unknown Variance - Critical Value] [vraag 5 - worksho...] [2010-11-18 21:40:56] [82643889efeee0b265cd2ff213e5137b]
- R  D    [Testing Mean with unknown Variance - Critical Value] [] [2011-10-24 18:43:11] [2d3d135c7070430a7cc2b1c9a86f42b1]
- RMPD    [One Sample Tests about the Mean] [opdracht 7] [2011-10-24 19:55:34] [4b648d52023f19d55c572f0eddd72b1f]
- RMPD    [One Sample Tests about the Mean] [opdracht 7 mannen] [2011-10-24 19:57:13] [4b648d52023f19d55c572f0eddd72b1f]
- RMPD    [Variability] [opdracht 8 mannen...] [2011-10-24 20:15:13] [4b648d52023f19d55c572f0eddd72b1f]
- RMP     [Variability] [opdracht 8 vrouwe...] [2011-10-24 20:17:07] [4b648d52023f19d55c572f0eddd72b1f]
- R  D    [Testing Mean with unknown Variance - Critical Value] [Hypothese test 5:...] [2011-12-17 17:48:37] [baac05fe722f73c103cc2d713fa5bd78]
- R PD    [Testing Mean with unknown Variance - Critical Value] [2. Is de gemiddel...] [2011-12-20 18:46:49] [456cd98d071701b5f4c3a71c54fae48b]
- R  D    [Testing Mean with unknown Variance - Critical Value] [] [2012-10-05 09:56:00] [8fcd082199f7dbedf65d69a953eb5ad7]
- R  D    [Testing Mean with unknown Variance - Critical Value] [h] [2012-10-08 13:40:10] [b6dc7003e7767578f97246d87c77862e]
- RM      [Testing Mean with unknown Variance - Critical Value] [] [2012-10-08 14:47:13] [74be16979710d4c4e7c6647856088456]
- RMPD    [One Sample Tests about the Mean] [] [2012-10-09 10:06:53] [b98453cac15ba1066b407e146608df68]
-    D      [One Sample Tests about the Mean] [WS4 Q7] [2012-10-17 21:37:09] [1f7cf67333ab83c872b4a4ac77f4d937]
- R  D      [One Sample Tests about the Mean] [] [2012-11-15 10:49:26] [2592565307a7caec72ee329ff3ec5a28]
- R PD      [One Sample Tests about the Mean] [Paper 2012: één...] [2012-11-25 08:38:18] [40b341cf5fb1ddfd74e4c5704837f48c]
- R P         [One Sample Tests about the Mean] [Paper 2012: éénzi...] [2012-11-25 09:07:29] [40b341cf5fb1ddfd74e4c5704837f48c]
- R             [One Sample Tests about the Mean] [Paper 2012: één...] [2012-11-25 09:12:26] [40b341cf5fb1ddfd74e4c5704837f48c]
-   PD      [One Sample Tests about the Mean] [Paper 2012: tweez...] [2012-11-25 08:55:06] [40b341cf5fb1ddfd74e4c5704837f48c]
- RMPD      [Classical Decomposition] [Paper Classical d...] [2012-12-05 14:16:09] [71ab7261203fade6d6c8dba43c9f08be]
- RMPD      [Classical Decomposition] [Paper Classical d...] [2012-12-05 14:28:51] [71ab7261203fade6d6c8dba43c9f08be]
- RMPD      [Decomposition by Loess] [paper Seizonal de...] [2012-12-05 15:04:05] [71ab7261203fade6d6c8dba43c9f08be]
- RMPD      [Exponential Smoothing] [paper Exponential...] [2012-12-05 15:57:50] [71ab7261203fade6d6c8dba43c9f08be]
- RMP       [One Sample Tests about the Mean] [one sample T-test...] [2012-12-08 18:46:15] [f4325a5733446a4ce20d70c276c6a563]
- RM        [One Sample Tests about the Mean] [] [2012-12-12 13:13:36] [07135448e3e28ff93d39332c64d7f130]
- RM        [One Sample Tests about the Mean] [STAT PAPER] [2012-12-12 17:01:35] [d5bd0e04995387c7130bb6d4772ce488]
- RM        [One Sample Tests about the Mean] [] [2012-12-16 17:05:56] [f810c1d88ae49fd60019f9e52bf9eae3]
- R PD      [One Sample Tests about the Mean] [] [2012-12-16 17:09:06] [f810c1d88ae49fd60019f9e52bf9eae3]
- RMP       [One Sample Tests about the Mean] [] [2012-12-16 17:42:38] [f810c1d88ae49fd60019f9e52bf9eae3]
- RMPD      [Paired and Unpaired Two Samples Tests about the Mean] [paper deel 2 pair...] [2012-12-17 16:03:06] [48f852fd41a4fa7d41d1802199989991]
- RMPD      [Testing Mean with unknown Variance - Critical Value] [Paper_3] [2012-12-20 00:54:57] [bff69915b0fb59864154cab3c44a64eb]
- RMPD      [Testing Mean with unknown Variance - Critical Value] [paper_3] [2012-12-20 01:03:35] [bff69915b0fb59864154cab3c44a64eb]
- RMPD      [Testing Mean with unknown Variance - Critical Value] [paper_5] [2012-12-20 01:49:26] [bff69915b0fb59864154cab3c44a64eb]
- R PD        [Testing Mean with unknown Variance - Critical Value] [Paper_5] [2012-12-20 01:56:39] [bff69915b0fb59864154cab3c44a64eb]
- RMP         [Variability] [Paper6] [2012-12-20 02:13:06] [bff69915b0fb59864154cab3c44a64eb]
- RMPD        [Testing Variance - Critical Value (Region)] [] [2012-12-20 02:19:35] [bff69915b0fb59864154cab3c44a64eb]
- R P           [Testing Variance - Critical Value (Region)] [] [2012-12-20 02:31:02] [bff69915b0fb59864154cab3c44a64eb]
- RM D      [One Sample Tests about the Mean] [] [2014-10-22 08:13:42] [2b9d0c54c8c845c625e475ed5f1f3af1]
- RM D      [One Sample Tests about the Mean] [] [2014-10-22 10:38:20] [784816b0c716a476fc48ddde921cf7ea]
- RM D      [One Sample Tests about the Mean] [] [2014-10-22 10:43:05] [784816b0c716a476fc48ddde921cf7ea]
- RM        [One Sample Tests about the Mean] [question 7] [2014-10-22 11:11:38] [673773038936aef3a5778d7e6bda5c1e]
- RM D      [One Sample Tests about the Mean] [interval] [2014-10-22 11:26:39] [15866c21ed6246d5efde5ff3ba421193]
- RM D      [One Sample Tests about the Mean] [WS4 - 7] [2014-10-22 12:12:13] [40df8d8b5657a9599acc6ccced535535]
- RM D      [One Sample Tests about the Mean] [] [2014-10-22 12:23:29] [3cc57788b191749bdc089f5fad42e0f8]
- RM        [One Sample Tests about the Mean] [] [2014-10-22 12:25:57] [93cb0d178904cf975da218b7c929e42d]

[Truncated]
Feedback Forum

Post a new message
Dataseries X:


19


25



17
22



21

26
20

14


23




20

22


15
20
22

20
28




25
26

17
23

13




24



14
22



23

22
24
21



23
22




21
26
15
25



17
25





27




25

19
26

20


20

18








18


19






23


17
23

23
11
18
24


16
24




24


21
25
22
21



24
24
21




18




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
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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
R Framework error message & 
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=88533&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]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=88533&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88533&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
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.







Hypothesis Test about the Mean - Confidence Interval
Sample size63
Sample standard deviation3.71225672258781
Confidence0.95
Null hypothesis20
Sample Mean21.1587301587302
2-sided Confidence Interval[ 20.223810410058 , 22.0936499074023 ]
Left-sided Confidence Interval[ 20.3777621085879 , +inf ]
Right-sided Confidence Interval[ -inf, 21.9396982088724 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 63 \tabularnewline
Sample standard deviation & 3.71225672258781 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 20 \tabularnewline
Sample Mean & 21.1587301587302 \tabularnewline
2-sided Confidence Interval & [ 20.223810410058 , 22.0936499074023 ] \tabularnewline
Left-sided Confidence Interval & [ 20.3777621085879 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  21.9396982088724 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=88533&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]63[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]3.71225672258781[/C][/ROW]
[ROW][C]Confidence[/C][C]0.95[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]20[/C][/ROW]
[ROW][C]Sample Mean[/C][C]21.1587301587302[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ 20.223810410058 , 22.0936499074023 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ 20.3777621085879 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  21.9396982088724 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=88533&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=88533&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 size63
Sample standard deviation3.71225672258781
Confidence0.95
Null hypothesis20
Sample Mean21.1587301587302
2-sided Confidence Interval[ 20.223810410058 , 22.0936499074023 ]
Left-sided Confidence Interval[ 20.3777621085879 , +inf ]
Right-sided Confidence Interval[ -inf, 21.9396982088724 ]



Parameters (Session):
par1 = 0.95 ; par2 = 20 ;
Parameters (R input):
par1 = 0.95 ; par2 = 20 ;
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')