FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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 computationTue, 16 Dec 2014 11:11:15 +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/2014/Dec/16/t1418728355793nnzpsgq0qhbb.htm/, Retrieved Thu, 16 May 2024 18:57:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=269324, Retrieved Thu, 16 May 2024 18:57:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact78

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [One Sample Tests about the Mean] [DAM] [2014-12-16 11:11:15] [c98c6a6156d025200627852118e8b268] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2.1174
1.28796
1.81593
-3.18632
-3.81947
1.98546
3.87148
2.58662
0.854479
-2.36043
0.807574
-4.06769
0.0683104
1.32095
-4.41575
0.427036
1.07644
-1.3122
-1.16282
-0.855559
-3.99003
3.37186
0.24946
3.05836
0.899994
0.0246647
5.25433
2.99164
-0.712203
1.17682
-2.54567
0.955546
-1.58254
-0.639182
0.37186
-0.668997
-0.393415
2.07039
-1.30843
1.2956
-4.97534
0.710135
2.53231
0.0950621
1.98059
0.74383
1.0061
-2.94945
2.14383
1.39878
1.08053
-4.16167
0.195062
1.3541
2.79135
-0.53809
-5.23841
3.24064
-2.97889
2.35782
-1.07496
1.79414
-3.05876
5.47422
-1.31191
-1.54042
0.38284
2.00604
4.08316
1.35055
1.90764
0.76191
-1.7378
3.83247
1.66207
2.18022
1.68278
2.5878
-0.73809
-2.76769
-0.493958
2.6174
0.313685
-6.10696
-0.345608
1.24335
0.85093
0.302492
-2.17882
2.39151
2.06831
-5.25789
-0.707499
-1.97645
-2.95409
-1.58632
-3.0354
0.878199
2.80658
-2.96026
0.123573
-0.167693
-2.43175
-1.17179
2.67978
-2.2939
2.93631
-5.97534
-4.3986
-1.47162
0.987797
0.162075

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ jenkins.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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=269324&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=269324&T=0

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

As an alternative you can also use a QR Code:  
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 time0 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net






One Sample t-test
H020
Alternativetwo.sided
CI0.95
Sample Mean0.000285716071428576
T-Test-85.9257046102904
DF111
P-Value2.23650263207342e-103

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

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

As an alternative you can also use a QR Code:  
QR Code


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

One Sample t-test
H020
Alternativetwo.sided
CI0.95
Sample Mean0.000285716071428576
T-Test-85.9257046102904
DF111
P-Value2.23650263207342e-103


Figures (Output of Computation)

Input Parameters & R Code

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