Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_onesampletests_mean.wasp

Title produced by software

One Sample Tests about the Mean

Date of computation

Mon, 19 Jan 2015 22:18:34 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Jan/19/t1421705954cime92ckfvegnam.htm/, Retrieved Fri, 24 Apr 2026 01:55:17 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=274762, Retrieved Fri, 24 Apr 2026 01:55:17 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

309

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] [ex WS4 5] [2015-01-19 21:49:05] [bb1b6762b7e5624d262776d3f7139d34]
-    D  [Testing Mean with unknown Variance - Critical Value] [ex WS4 7] [2015-01-19 21:54:45] [bb1b6762b7e5624d262776d3f7139d34]
- R       [Testing Mean with unknown Variance - Critical Value] [ex WS4 7] [2015-01-19 21:55:46] [bb1b6762b7e5624d262776d3f7139d34]
- R  D      [Testing Mean with unknown Variance - Critical Value] [ex WS4 8] [2015-01-19 22:04:37] [bb1b6762b7e5624d262776d3f7139d34]
- R           [Testing Mean with unknown Variance - Critical Value] [ex WS4 8] [2015-01-19 22:06:29] [bb1b6762b7e5624d262776d3f7139d34]
- RM            [One Sample Tests about the Mean] [ex WS4 Q7] [2015-01-19 22:15:55] [bb1b6762b7e5624d262776d3f7139d34]
- R                 [One Sample Tests about the Mean] [ex WS4 9] [2015-01-19 22:18:34] [8568a324fefbb8dbb43f697bfa8d1be6] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

NA
NA
NA
19
NA
NA
25
NA
NA
NA
17
22
NA
NA
NA
21
NA
26
20
NA
14
NA
NA
23
NA
NA
NA
NA
20
NA
22
NA
NA
15
20
22
NA
20
28
NA
NA
NA
NA
25
26
NA
17
23
NA
13
NA
NA
NA
NA
24
NA
NA
NA
14
22
NA
NA
NA
23
NA
22
24
21
NA
NA
NA
23
22
NA
NA
NA
NA
21
26
15
25
NA
NA
NA
17
25
NA
NA
NA
NA
NA
27
NA
NA
NA
NA
25
NA
19
26
NA
20
NA
NA
20
NA
18
NA
NA
NA
NA
NA
NA
NA
NA
18
NA
NA
19
NA
NA
NA
NA
NA
NA
23
NA
NA
17
23
NA
23
11
18
24
NA
NA
16
24
NA
NA
NA
NA
24
NA
NA
21
25
22
21
NA
NA
NA
24
24
21
NA
NA
NA
NA
18
NA

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.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 Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=274762&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 Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=274762&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=274762&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

One Sample t-test
H0	20
Alternative	two.sided
CI	0.95
Sample Mean	21.1587301587302
T-Test	2.47750524739568
DF	62
P-Value	0.0159694599361123

\begin{tabular}{lllllllll}
\hline
One Sample t-test \tabularnewline
H0 & 20 \tabularnewline
Alternative & two.sided \tabularnewline
CI & 0.95 \tabularnewline
Sample Mean & 21.1587301587302 \tabularnewline
T-Test & 2.47750524739568 \tabularnewline
DF & 62 \tabularnewline
P-Value & 0.0159694599361123 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=274762&T=1

[TABLE]
[ROW][C]One Sample t-test[/C][/ROW]
[ROW][C]H0[/C][C]20[/C][/ROW]
[ROW][C]Alternative[/C][C]two.sided[/C][/ROW]
[ROW][C]CI[/C][C]0.95[/C][/ROW]
[ROW][C]Sample Mean[/C][C]21.1587301587302[/C][/ROW]
[ROW][C]T-Test[/C][C]2.47750524739568[/C][/ROW]
[ROW][C]DF[/C][C]62[/C][/ROW]
[ROW][C]P-Value[/C][C]0.0159694599361123[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=274762&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=274762&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

One Sample t-test
H0	20
Alternative	two.sided
CI	0.95
Sample Mean	21.1587301587302
T-Test	2.47750524739568
DF	62
P-Value	0.0159694599361123

Parameters (Session):

par1 = 0.95 ; par2 = 0 ;

Parameters (R input):

par1 = two.sided ; par2 = 0.95 ; par3 = 20 ;

R code (references can be found in the software module):

x<-na.omit(x)
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
(tt <- t.test(x,mu=par3,alternative=par1,conf.level=par2))
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'One Sample t-test',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'H0',header=TRUE)
a<-table.element(a,tt$null.value)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Alternative',header=TRUE)
a<-table.element(a,tt$alternative)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'CI',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,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'T-Test',header=TRUE)
a<-table.element(a,tt$statistic)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'DF',header=TRUE)
a<-table.element(a,tt$parameter)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'P-Value',header=TRUE)
a<-table.element(a,tt$p.value)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code