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

Thu, 27 Jan 2022 13:06:23 +0100

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/2022/Jan/27/t16432852362bvxek36kl2l3kj.htm/, Retrieved Tue, 21 May 2024 02:31:42 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319624, Retrieved Tue, 21 May 2024 02:31:42 +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

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [One Sample Tests about the Mean] [] [2022-01-27 12:06:23] [9d22051737ca820f26ab852e727e6980] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

NA
NA
130
NA
120
NA
140
NA
NA
NA
NA
130
NA
NA
150
120
120
150
NA
140
NA
NA
NA
NA
NA
160
NA
NA
140
NA
105
NA
NA
NA
NA
142
135
NA
155
160
140
NA
NA
130
NA
NA
NA
NA
128
138
130
NA
NA
108
135
NA
NA
NA
NA
128
110
NA
NA
NA
NA
138
NA
130
NA
124
NA
NA
NA
NA
122
135
NA
NA
NA
NA
NA
NA
102
NA
102
115
NA
NA
110
100
NA
NA
NA
132
112
NA
140
NA
NA
NA
NA
NA
140
NA
NA
120
NA
138
120
110
180
NA
140
NA
NA
120
NA
NA
105
138
130
NA
112
108
94
118
NA
152
136
120
160
134
NA
NA
126
130
120
NA
NA
NA
120
NA
120
106
140
NA
118
150
NA
NA
NA
112
NA
146
138
130
NA
NA
NA
NA
NA
132
NA
NA
NA
NA
NA
140
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
150
130
NA
NA
NA
NA
NA
NA
NA
130
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
160
NA
NA
150
NA
NA
NA
NA
NA
145
NA
132
130
NA
NA
NA
150
NA
NA
200
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
174
NA
NA
NA
NA
134
NA
NA
NA
NA
NA
138
NA
NA
NA
NA
NA
150
NA
178
NA
NA
108
NA
NA
180
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
136
NA
NA
NA
NA
NA
NA
NA
NA
NA
NA
128
NA
NA
170
NA
NA
NA
124
NA
140
NA
NA
NA
130

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	Big Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319624&T=0

[TABLE]
[ROW]

Summary of computational transaction[/C][/ROW] [ROW]

Raw Input[/C]

view raw input (R code) [/C][/ROW] [ROW]

Raw Output[/C]

view raw output of R engine [/C][/ROW] [ROW]

Computing time[/C]

0 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319624&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319624&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	Big Analytics Cloud Computing Center

One Sample t-test
H0	119
Alternative	greater
CI	0.975
Sample Mean	133.083333333333
T-Test	7.14551682129311
DF	95
P-Value	9.07866890423616e-11

\begin{tabular}{lllllllll}
\hline
One Sample t-test \tabularnewline
H0 & 119 \tabularnewline
Alternative & greater \tabularnewline
CI & 0.975 \tabularnewline
Sample Mean & 133.083333333333 \tabularnewline
T-Test & 7.14551682129311 \tabularnewline
DF & 95 \tabularnewline
P-Value & 9.07866890423616e-11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319624&T=1

[TABLE]
[ROW][C]One Sample t-test[/C][/ROW]
[ROW][C]H0[/C][C]119[/C][/ROW]
[ROW][C]Alternative[/C][C]greater[/C][/ROW]
[ROW][C]CI[/C][C]0.975[/C][/ROW]
[ROW][C]Sample Mean[/C][C]133.083333333333[/C][/ROW]
[ROW][C]T-Test[/C][C]7.14551682129311[/C][/ROW]
[ROW][C]DF[/C][C]95[/C][/ROW]
[ROW][C]P-Value[/C][C]9.07866890423616e-11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319624&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319624&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	119
Alternative	greater
CI	0.975
Sample Mean	133.083333333333
T-Test	7.14551682129311
DF	95
P-Value	9.07866890423616e-11

Parameters (Session):

Parameters (R input):

par1 = greater ; par2 = 0.975 ; par3 = 119 ;

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

par3 <- '139'
par2 <- '0.975'
par1 <- 'two.sided'
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
x <- as.numeric(na.omit(x))
(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