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, 01 Feb 2018 11:38:05 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2018/Feb/01/t1517481559jfw7ool5esunqkv.htm/, Retrieved Mon, 29 Apr 2024 00:35:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=314823, Retrieved Mon, 29 Apr 2024 00:35:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact40
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [One Sample Tests about the Mean] [] [2018-02-01 10:38:05] [f44dd4af88e8b85f25b182ab83c3a44e] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.00172923511431986
0.000122433003162592
0.000523768260056477
-0.000501758919313696
-0.00186385932665817
7.17421627217074e-05
-0.000380578147166437
-0.000298515816427555
0.00194316019437654
-0.00124779775369706
0.00135257140686128
0.00284406562807716
-0.426754798362472
-1.72242464490422
-2.40845079236709
0.526776305816358
0.797071260656129
1.34112485980626
0.204952410141948
-0.950490103888798
-0.107850426770656
0.417103872133906
-1.62385161779411
-2.35405984051608
-2.26184627569547
2.87545865686734
0.764088319739653
-1.04771526256838
0.634495945514389
-0.418796199961766
-1.1902248799151
1.14849135098861
-1.57161847943999
1.95623979219949
-0.55398434263153
-0.688962249098288
-0.726809652410765
0.669335596794023
0.982799352615223
0.34257161423547
2.50998459954628
0.217576622169985
0.888449557962846
0.150692384385114
-1.09007046411236
0.705696643020834
1.16229193735545
-0.416021986541757
1.74693730377451
-1.23196353846715
1.48245333704883
0.721213609721149
-0.646800283694092
-0.161484691516224
-0.949633798528551
0.95650509413685
0.350825786637744
-1.16034883081079
-0.430341336067506
-0.501837854434037
-0.420156354252605
-0.193183065005035
0.700412337278826
0.359765049513089
2.64698657842921
0.858459811264103
2.83285362667213
0.818148971404134
-1.25327126093506
-0.688989862474239
0.81053510286613
-1.65188351539344
-0.325059441933449
-1.74156920883825
-1.02917447601266
-1.21867059892351
-1.50411376964027
-0.114224549399896
-0.137411004159366
0.837355581654398
-0.911997495950576
0.970958117810633
-1.15687516494066
-2.1245225303856
-0.580674349327857
1.15085031229537
-0.856819873215907
-0.101268519247016
-0.38216289561807
-1.2792277924225
-3.29532250503173
0.276543530131056
-1.56371519659818
-0.500447409601064
-0.365398111781451
0.996642682007255
-1.11077417394413
-0.886570515544964
-0.876208342684536
-0.294620765401373
3.10567156966737
-0.24533366975015
0.624645043003861
0.414517204762159
-1.63354987528173
-1.4224362205881
-2.23923917130956
0.322826267548182
0.980828944798294
0.566596736898838
-3.50881767965765
1.65438036478527
1.50219560926857
-1.29709276470254
0.719245481491138
1.00978767768917
-0.675852958541929
-0.0927940854724613
-2.44682252394542
0.876623407379823
-0.989073764717509
-0.317510309291215
1.99685358194388
-0.130736531683781
-0.609885767018947
0.64316491972466
-0.689247020123973
0.56708595846713
1.24204620650376
-0.77518034240142
-0.77159452833421
-0.27469213671127
1.40826458694522
0.00393835205331949
-0.759021967445389
2.35582033836005
0.55248072705723
0.504559544522789
1.36513760270471
-2.40910242448905
1.25917641686089
0.811679269510166
-1.42849190356444
0.348740069244143
-1.05604023495144
0.313965779697424
0.201066360306794
0.184583721082056
-1.03398119166313
1.3494338298127
0.0316090042682793
-0.958186717436352
-0.443323344160126
-1.47536151301699
-0.614118758893232
0.173695159093513
-0.556666189918375
0.646331946244221
0.884430612308278
1.05055158013154
-2.34842467152575
1.91694934674783
-0.0369572169996855
3.39011867299807
0.871987649503829
-1.62914544173097
0.750054274590149
-1.35229419614484
0.997088371334179
0.662803785787941
1.7784339450016
0.16121516344264
-0.965435349983172
-1.45251216552657
0.86901922102742
0.352826654770835
0.77069438441223
-0.477488641475141
-0.259112488512549




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig 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 time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=314823&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]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=314823&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=314823&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 Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center







One Sample t-test
H00
Alternativetwo.sided
CI0.95
Sample Mean-0.0534754812400919
T-Test-0.596149046229046
DF178
P-Value0.551833002311344

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=314823&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 Mean-0.0534754812400919
T-Test-0.596149046229046
DF178
P-Value0.551833002311344



Parameters (Session):
par1 = 1FALSE200two.sided ; par2 = 2150.95 ; par3 = 3000 ; par4 = 1P1 P5 Q1 Q3 P95 P99 ; par5 = 12 ; par6 = 0 ; par7 = 1 ; par8 = 2 ; par9 = 1 ;
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')