Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_skewness_kurtosis.wasp
Title produced by softwareSkewness and Kurtosis Test
Date of computationThu, 20 Dec 2012 10:45:44 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/20/t1356018372ilt934w60vbnx18.htm/, Retrieved Thu, 31 Oct 2024 22:57:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=202797, Retrieved Thu, 31 Oct 2024 22:57:56 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact153
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Two-Way ANOVA] [] [2012-12-18 09:15:35] [4b0edecb327fe9610ec304ac894b5e33]
- RMPD    [Skewness and Kurtosis Test] [] [2012-12-20 15:45:44] [8a3927e82eb491f0e253fd7a7cd411e4] [Current]
Feedback Forum

Post a new message
Dataseries X:
-22174.0733186205
-65514.4201467722
-31749.2836197642
-41089.9671648775
8913.27252977982
-73285.4527940576
164155.980754944
-31956.3824633743
34623.6990660573
-25622.4644569208
14280.0440464267
13742.0144898235
-29146.6235586834
-6677.81800278516
29222.9909789321
1212.6140306245
61233.8856063561
-12281.6494038646
49507.1601527336
-65921.4798134687
-39464.6438925566
-10881.2836778774
149032.224655831
10715.4049794051
-92892.8532286331
-35688.1915019428
-7834.73741913782
24020.2347149277
23893.2089848946
996.445998931713
16733.8934399229
-13444.292008359
-61253.6462167768
16011.7384483569
-38490.0301017568
42322.9126242022
22789.6719972466
58459.784888697
129349.666392193
-3923.69770560134
3708.9350673457
24000.2115240294
6017.1263486906
54327.8924528398
79638.3386225049
-26079.6137339359
49108.0182098117
701.915141388916
-25400.2703973621
16728.0803891364
188669.860924995
-11849.5697111485
-50510.2180139764
9819.74492009268
-50895.8352886698
-18884.7764188534
-1708.51547344574
79255.7932366256
-15521.2905553635
19400.7210217661
27676.9807059796
-21146.8295017261
148368.208845863
25870.3986053112
-65410.9542739143
184.859740348075
50676.7741841598
51146.2197885908
-13536.0588062538
12159.2548910263
10804.1977790229
406.742283656147
11403.6753399316
-56655.9037215655
-14998.837210188
-32755.5012806611
-32149.4329509596
-20646.0284558503
-21679.2130149269
-4810.73399743526
-25135.9681984947
-67837.2495484588
67670.3743271276
31970.4720635137
-12016.0778730759
-43292.6407132963
-16672.2720911035
2164.97266939947
115546.453819527
28632.0537537131
-10885.5819803695
-9712.53604354982
26256.6967254796
-50488.888220711
4355.38436700417
128176.443082755
62854.5124073621
-104803.921479518
43290.1186345225
-73231.6182081281
2824.484449738
34615.5271425429
34771.1362420388
-31240.4833464949
-49723.0208183059
-48779.1075491712
-9981.26780165581
-13155.3097220372
-75.2769316203311
10973.3258078059
-38439.1752054493
3899.25475877268
-65434.8644392989
25717.6610599391
-88086.3100327001
14186.395868727
24885.7405405325
102336.017251249
-65072.5368737942
11487.8836818464
8520.24049354414
258.493830518036
9930.23067658956
-71762.1944351639
28513.1179917278
20014.6355498214
25737.2347205276
-44752.9870757414
-448.642001897418
2993.89713048288
1845.30232942032
-38471.9470745631
787.99689894524
-14006.4123396862
-51104.2476563812
49388.3934831227
6858.41055678786
47773.8791888714
-43879.9413453847
-31112.8206118184
-12572.3172169611
-8705.87009966602
18238.6937648534
50335.3830879798
-21087.5496853614
-4881.97790198983
-31377.3658191807
-55496.172899493
-5663.49935213705
-12374.6661555832
24125.8543348396
-76030.1026552092
21055.1425938814
68273.1558238773
3297.9576097012
2290.49600626874
-13072.8523040384
9087.45158297962
-40468.3536208243
42582.8941433197
77519.4999936401
-38885.4898012143
11389.2718186839
81323.1021657196
-19761.3194086614
-8084.38935389612
-31134.1752921568
-11898.787218065
-2438.6256275763
131316.755579522
102377.34835144
-76705.0364397074
88401.1389555724
7569.03796846791
-113565.91278936
52156.9188777929
-23631.3943451508
12109.7509957378
-47130.7186879767
63997.3911050083
7844.14890647522
3214.94590719668
-1625.12192002571
3662.37594364925
27127.0529558201
-8816.03048885501
13850.612663865
723.58852314165
26415.0234002462
-16773.8792938964
20629.8725326808
23975.5482476192
2193.90128575229
-30480.2483752256
-4208.94994533028
-2128.36464858608
-11517.0078917519
-42003.6388603963
-17355.6295867855
-56093.6611433497
-15828.858503493
-34951.5240440239
45094.6000074401
20512.0958023457
-5262.00477562848
-31467.061639733
-3203.81363734461
81858.9959734905
34932.8308247374
16617.3689069423
32953.8945664401
27590.3450992406
-29377.9783146962
2870.94667999696
-34443.1705068887
-31990.8031770713
-11285.8037289137
-14437.4187634379
-13077.3137519746
17670.8984670355
-19555.1505680758
-15305.9602183968
-18079.6623058575
-24433.5206301374
-30892.7924327274
33599.2600671999
10519.5391237714
-65095.703470381
-17380.945788503
-36660.4459738912
-23915.2515164412
-1609.58246893128
-13154.8715081186
-20490.1568736072
-44724.3555818464
-29818.5614425096
68758.1443165449
-39257.6273241237
-11347.1300388659
-45931.677718483
5857.42922222334
-4090.95696311474
-31297.6151854823
-27856.3862580703
-16940.8246172993
-14123.5076512191
316.512111881145
14737.8074894244
11731.1004455149
-24997.6132012423
41510.0411701551
-20152.916574643
-5045.15084928468
14118.9665222122
10762.8785843055
3052.28067892243
-27737.3787426975
15359.2120181293
194.92286943461
-9194.90742758841
-24638.0818939454
-16657.5524323952
7756.43463480719
-27846.0516585165
-31908.9482356715
25.3824457395725
-38036.3215842133
-23340.2731876647
32033.362105124
-32384.0271948151
-805.648638397822
-7287.99569912314
29161.2778818265
10779.2214583833
-1134.58632095227
-10113.9473659142
-1061.60621167305
-5851.43732656935
909.245691722282
-3147.05725780949
-14849.0946164161
13582.706935917
18671.7295102658
13959.0740133436
-1136.49336417665
-35895.2204349362
1618.36336487802
-53985.3198206092
-2727.67525559482




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 1.0418, z = 4.1091, p-value = 3.971e-05
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.8711, z = 4.9451, p-value = 7.611e-07
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 151.5462, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.707981

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 1.0418, z = 4.1091, p-value = 3.971e-05
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.8711, z = 4.9451, p-value = 7.611e-07
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 151.5462, p-value < 2.2e-16
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.707981
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=202797&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 1.0418, z = 4.1091, p-value = 3.971e-05
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.8711, z = 4.9451, p-value = 7.611e-07
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 151.5462, p-value < 2.2e-16
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.707981
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=202797&T=1

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

As an alternative you can also use a QR Code:  

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

Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 1.0418, z = 4.1091, p-value = 3.971e-05
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.8711, z = 4.9451, p-value = 7.611e-07
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 151.5462, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.707981



Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
library(moments)
agostino <- agostino.test(x)
anscombe <- anscombe.test(x)
geary <- geary(x)
jarque <- jarque.test(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Skewness and Kurtosis Test',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('agostino'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('anscombe'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('jarque'),'
',sep=''))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('geary'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')