Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_onesampletests_mean.wasp
Title produced by softwareOne Sample Tests about the Mean
Date of computationThu, 11 Nov 2010 15:17:17 +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/Nov/11/t1289488545vcmqn0n86ha7t7n.htm/, Retrieved Thu, 25 Apr 2024 05:43:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=93449, Retrieved Thu, 25 Apr 2024 05:43:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact163
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Factor Analysis] [Sleep in Mammals ...] [2010-03-21 11:39:53] [b98453cac15ba1066b407e146608df68]
- RMPD  [Testing Mean with unknown Variance - Critical Value] [Hypothesis Test a...] [2010-10-19 11:45:26] [b98453cac15ba1066b407e146608df68]
- RMPD    [One Sample Tests about the Mean] [testjeuh] [2010-11-10 12:54:01] [a2638725f7f7c6bd63902ba17eba666b]
-             [One Sample Tests about the Mean] [Test] [2010-11-11 15:17:17] [d7e71f84f972bd09532f49e6d8781449] [Current]
Feedback Forum

Post a new message
Dataseries X:
20.17189271
20.53392781
19.64463033
19.97968779
19.45628927
19.40604948
19.88019273
19.73521726
20.12990688
20.6073619
20.77625203
20.14801868
20.66320224
19.62644661
20.59234173
19.13635621
20.96329588
20.42707069
20.98573763
19.4031677
19.83464215
20.34532079
20.94307685
20.28830145
19.65026754
19.76967336
20.53343005
20.68566962
20.57480921
19.14490759
19.6798317
19.30065147
19.62928549
19.87496654
19.19808921
19.94992879
20.29878525
20.528385
20.10014631
19.76277369
19.62146816
20.22979946
19.65651795
19.39589642
19.70374828
20.92256853
20.19172273
20.30919147
20.52290658
20.41289313
19.58850477
19.32763656
20.6035554
20.70403344
20.479693
19.49571635
20.89469416
20.66967696
20.6770873
19.26685734
20.28329282
20.66911338
20.18269596
19.55496113
20.32315182
19.87522287
19.48203452
19.66533702
19.05749373
19.18119756
19.73373111
20.03642226
20.17963736
19.53018121
19.44489319
19.77497503
19.07661744
20.07264842
19.41605412
19.79779019
20.3706997
20.65284083
19.54880554
19.3123082
19.53696962
20.64700175
19.54269692
19.36618795
19.52507445
20.30689343
20.30600349
20.41234755
20.71441045
20.39240198
20.25446332
20.15440099
19.51327547
19.4325975
19.08689042
19.51483098
20.97260074
20.4457596
20.95343817
19.2382952
19.8382021




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=93449&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=93449&T=0

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







One Sample t-test
H020
Alternativetwo.sided
CI0.95
Sample Mean20.0039143152381
T-Test0.0740798316242546
DF104
P-Value0.94108916204124

\begin{tabular}{lllllllll}
\hline
One Sample t-test \tabularnewline
H0 & 20 \tabularnewline
Alternative & two.sided \tabularnewline
CI & 0.95 \tabularnewline
Sample Mean & 20.0039143152381 \tabularnewline
T-Test & 0.0740798316242546 \tabularnewline
DF & 104 \tabularnewline
P-Value & 0.94108916204124 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=93449&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]20.0039143152381[/C][/ROW]
[ROW][C]T-Test[/C][C]0.0740798316242546[/C][/ROW]
[ROW][C]DF[/C][C]104[/C][/ROW]
[ROW][C]P-Value[/C][C]0.94108916204124[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=93449&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=93449&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
H020
Alternativetwo.sided
CI0.95
Sample Mean20.0039143152381
T-Test0.0740798316242546
DF104
P-Value0.94108916204124



Parameters (Session):
par1 = two.sided ; par2 = 0.95 ; par3 = 20 ;
Parameters (R input):
par1 = two.sided ; par2 = 0.95 ; par3 = 20 ; par4 = ; par5 = ; par6 = ; par7 = ; par8 = ; par9 = ; par10 = ; par11 = ; par12 = ; par13 = ; par14 = ; par15 = ; par16 = ; par17 = ; par18 = ; par19 = ; par20 = ;
R code (references can be found in the software module):
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')