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 computationSun, 10 Jan 2016 09:27:14 +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/2016/Jan/10/t1452418072q5zc2fhctn76ga9.htm/, Retrieved Sat, 04 May 2024 21:39:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=287681, Retrieved Sat, 04 May 2024 21:39:03 +0000
QR Codes:

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

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] [] [2016-01-10 09:27:14] [e215c0da5dfbda5f11e882a2ec5a14ce] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
4512
3738
4261
3777
4177
3585
3785
3559
3613
3982
3443
3993
3640
4208
3832
3876
3497
3466
3095
4424
3878
4046
3804
3710
4747
4423
4036
4022
3454
4175
3787
3796
4103
4161
4158
3814
3527
3748
3334
3492
3962
3505
4315
3804
3863
4034
4308
3165
3641
3644
3891
3793
4270
4063
4012
3458
3890
4166
3935
3669
3866
3393
4442
4253
3727
3329
3415
3372
4430
4381
4008
3858
4121
4057
3824
3394
3558
3362
3930
3835
3830
3856
3249
3577
3933
3850
3309
3406
3506
3907
4160
3318
3662
3899
3700
3779
3473
3490
3654
3478
3495
3834
3876
3661
3618
3648
4032
3399
3916
4430
3695
3524
3571
3594
3383
3499
3589
3900
4114
3937
3399
4200
4488
3614
4051
3782
3391
3124
4053
3582
3666
3532
4046
3667
2857
3436
3791
3302
3104
3171
3572
3530
3175
3438
3903
3899
3401
3267
3451
3090
3413
3323
3680
3439
3853
3156
3279
3707
4006
3269
3071
3779
3548
3292
3497
3082
3248
3358
3803
3566
3145
3503
3571
3724
3615
3203
3609
3561
3979
3533
3689
3158
4005
3181
3479
3642
3632
3069
3394
3703
3165
3354
3000
3687
3556
2773
3058
3344
3493
3297
3360
3228
3277
3851
3067
3692
3402
3995
3318
2720
2937
3580
2939
2989
3586
3156
3246
3170
3268
3389
3381
2864
3740
3479
3647
3716
3284
4204
3735
3218
3685
3704
3214
3394
3233
3352
3391

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'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 & 0 seconds \tabularnewline
R Server & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=287681&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=287681&T=0

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






One Sample t-test
H020
Alternativetwo.sided
CI0.95
Sample Mean3633.99156118143
T-Test152.320199937722
DF236
P-Value1.17872292211882e-237

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=287681&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 Mean3633.99156118143
T-Test152.320199937722
DF236
P-Value1.17872292211882e-237


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')