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 computationMon, 15 Dec 2014 08:46:12 +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/15/t1418633189z28r9tv3si7rcxm.htm/, Retrieved Thu, 16 May 2024 19:21:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267959, Retrieved Thu, 16 May 2024 19:21:15 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact150
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [One Sample Tests about the Mean] [Residus] [2014-12-15 08:46:12] [21b927ddce509724d48ffb8407994bd0] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,46923
1,36606
-3,47534
-2,89913
-1,50654
3,10755
3,85515
-0,203616
-3,46634
-0,0391273
-4,87992
-1,1216
0,223303
1,73095
-0,233539
-0,943214
0,811105
2,33878
-3,26949
0,940631
-3,45327
2,84757
-0,0457278
0,417186
-0,914617
-0,0715039
-0,985563
1,39428
0,528043
1,60632
-0,619856
1,94834
-0,705898
4,17762
-1,3081
1,16799
0,130515
0,251352
3,01642
0,253442
4,64622
-2,18698
1,22491
-1,01084
-2,57124
2,3186
-1,20771
1,97383
0,687828
2,40665
0,966223
-1,38651
0,472197
0,594499
-4,21268
-0,658803
2,44915
-4,30362
-1,78751
-1,16309
-0,816663
-1,11169
1,23777
-5,66383
0,882031
2,47499
1,97269
-0,350329
1,12672
-3,36727
1,79265
-1,89556
2,08237
1,44278
4,77541
-3,12845
-0,825404
0,888394
-2,38884
1,89966
0,94697
1,27055
-2,31261
1,15258
1,13686
0,323957
-0,225496
3,15018
-1,71691
1,17662
0,34972
-0,419565
2,75944
0,88401
2,36335
-0,0652071
1,52223
0,405327
0,252914
-1,20664
1,2719
-6,51597
1,82979
2,06149
-1,31551
1,86552
0,188742
1,97971
0,722507
-2,57618
-2,50956
2,39116
0,65538
0,369605
7,57766
1,72243
-0,890809
1,30362
1,91501
-0,636854
-3,28346
0,729232
2,57022
-1,21928
-1,0189
-1,02462
2,87673
-0,821116
1,99139
-0,574713
-3,68046
-1,71111
-1,61412
2,24133
0,153434
-2,40619
0,324171
2,55687
-1,85084
-1,98684
0,151709
-2,05271
1,89106
-2,05041
3,40154
0,120697
0,335348
-2,51077
-0,113755
1,58292
1,23692
-1,56225
1,35914
-1,14639
-0,73058
-0,461708
1,31137
-1,253
0,832946
3,27027
2,24115
0,0822816
0,361412
-2,53325
-1,33686
-0,993349
-0,407429
1,60689
1,76695
-1,15916
-1,25279
1,30106
-4,8393
-0,866651
2,76216
1,99686
2,45674
2,50745
1,77442
3,73404
2,95679
3,35175
2,45574
-0,136375
-2,66607
-1,94931
-6,04772
0,310603
-1,87887
0,214021
-0,43586
-1,19532
-2,48515
1,08102
1,64821
-2,35619
-1,03264
0,540648
0,341065
1,00231
-0,416175
-2,47881
-1,58639
-0,0547641
0,51898
-2,50553
0,347006
-4,06064
-6,18502
-1,68431
-5,99097
-0,853553
-1,63502
-4,01286
1,17264
1,2375
0,620227
-0,338094
1,58508
2,35076
-0,694053
0,812352
-0,801981
1,02658
0,906787
1,07402
-0,201061
0,621424
-2,43537




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267959&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'George Udny Yule' @ yule.wessa.net







One Sample t-test
H00
Alternativetwo.sided
CI0.95
Sample Mean1.10917030579912e-07
T-Test7.81140170611981e-07
DF228
P-Value0.99999937742334

\begin{tabular}{lllllllll}
\hline
One Sample t-test \tabularnewline
H0 & 0 \tabularnewline
Alternative & two.sided \tabularnewline
CI & 0.95 \tabularnewline
Sample Mean & 1.10917030579912e-07 \tabularnewline
T-Test & 7.81140170611981e-07 \tabularnewline
DF & 228 \tabularnewline
P-Value & 0.99999937742334 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267959&T=1

[TABLE]
[ROW][C]One Sample t-test[/C][/ROW]
[ROW][C]H0[/C][C]0[/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]1.10917030579912e-07[/C][/ROW]
[ROW][C]T-Test[/C][C]7.81140170611981e-07[/C][/ROW]
[ROW][C]DF[/C][C]228[/C][/ROW]
[ROW][C]P-Value[/C][C]0.99999937742334[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267959&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267959&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
H00
Alternativetwo.sided
CI0.95
Sample Mean1.10917030579912e-07
T-Test7.81140170611981e-07
DF228
P-Value0.99999937742334



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