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 computationWed, 17 Dec 2014 13:08:01 +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/17/t1418821689yn2sriipo4tm024.htm/, Retrieved Thu, 16 May 2024 23:24:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270167, Retrieved Thu, 16 May 2024 23:24:07 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact46
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [paper] [2014-12-17 13:08:01] [f37066d0c2d3549c99d3204e671bd762] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,13317001
-3,72264837
1,36598301
1,07507301
-3,20915237
-4,24472353
2,26801581
3,82541944
2,66089735
0,77106553
-3,6958946
0,99571481
-4,52771565
0,7884939
0,69538837
-5,09033995
0,82750802
1,48772153
-2,10282906
-0,59634972
-1,11612414
-4,17425853
3,39724402
-0,53701508
3,40968723
1,30921098
0,49073405
6,25313371
2,57501207
-0,8342933
0,41573423
-2,46275013
0,33905968
-3,96377916
-1,23874752
-0,52282981
0,69534786
-0,40789194
-0,96793522
2,80577372
-1,61227418
0,82041573
-5,06367671
0,58989399
2,55433396
0,97100109
2,7910892
-0,44530333
1,14145925
-2,14129571
1,37147739
2,2367386
1,91216141
-3,19025259
0,221499
2,13150448
2,42311884
-0,37905362
-4,49834502
4,14650456
-2,96958992
3,21929168
-1,51506382
1,15350833
-2,69956191
5,32220681
-2,25616819
-0,67360412
-0,1188374
2,10416567
4,09171817
1,41435584
0,77801784
-0,181817
-2,15659293
3,89465422
-2,97816013
1,88362574
1,87732868
2,57261656
1,44522009
-0,65582172
-2,66489553
-0,40626632
2,69964513
0,25995621
-5,50498625
-0,42181268
1,7582051
1,04303995
0,7819219
-2,17064173
2,51709205
2,63048315
-3,75334891
-0,21256668
-1,29066526
-2,45748219
-1,99845872
-2,64108708
1,66580849
3,66834361
-1,97178435
0,76738243
-0,45915969
-1,11868664
-0,30818444
4,2269857
-2,40525925
2,51648356
-5,71312029
-4,64184502
-1,60587643
0,5825881
0,92559303
-10,62743755
-1,54017121
4,04984548
3,54510499
1,38680385
-1,0362989
2,2222632
3,47898196
1,80558865
-2,06014878
2,49977114
0,45744447
-3,91329684
-1,73181852
2,11741908
-0,90382025
4,90027377
-0,27120818
0,27337087
0,90239932
0,62656037
0,3610096
-1,86491668
-2,25811186
2,85264382
-5,63759772
3,24662012
1,07821498
-1,31444239
3,59016027
1,06478893
3,781823
-0,12871206
1,02062174
1,84648231
-1,81212716
-3,95892439
-1,28200088
-0,89147747
3,78158146
-4,91586343
1,29577119
3,54577119
1,57490778
0,30562148
-0,5211524
3,99354403
0,46007039
-0,51622176
-2,85449935
3,72038266
2,05578977
1,53628052
1,2078288
4,58660392
-2,0990227
4,05940538
1,29317398
-0,2799713
-3,13778203
1,98818013
3,46412722
0,90335838
0,77604252
0,86478336
4,17755124
-1,25004649
4,02780672
1,43148332
-7,24629864
-1,45224494
-0,98567842
4,78163176
0,59767868
-0,23381281
1,3419988
2,63387884
-1,53620809
-2,57409149
-0,9111896
-3,59544018
1,83400222
-4,74973179
3,34578681
-1,45768015
0,78892711
-0,27976815
-0,53986942
0,08463139
1,10313997
4,17936611
-1,17448283
-1,78171901
1,15319467
-1,02395621
0,07627117
-4,40504464
-1,32635163
-1,98609027
4,81885902
3,22989199
-2,59485905
1,01639892
-3,25039031
-1,13375804
1,31376778
-2,21100639
2,1418534
-1,56868285
3,78079727
-2,31583506
0,80921414
2,81198521
-6,39008117
-2,34625848
1,73680376
4,24182503
1,07264704
1,47898196
1,83108033
4,15593821
3,80237638
3,03119603
3,66941474
-0,41315784
-1,22906921
-4,91507941
-10,13841483
-2,49770751
-0,32348437
-3,86676509
-1,51000126
-2,21415851
-2,58030092
0,85138458
5,49445754
3,02432764
-2,72698619
1,17257048
1,9919101
0,11451146
0,68738379
-1,12139385
-2,27741332
-3,20888278
1,12563643
1,43838347
-0,40096166
1,91400923
-5,73746429
-7,07546669
-1,68339979
-6,27990808
-3,11356327
-2,14379281
-3,68383147
1,10217433
1,8306577
-0,72440518
-1,25026801
1,08859755
2,77747359
-2,86329009
0,76897261
-1,18607161
0,46761598
2,96456741
1,14341425
-1,05794027
2,19610473




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270167&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'Gwilym Jenkins' @ jenkins.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5707, z = -2.4886, p-value = 0.01283
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.6232, z = 1.9430, p-value = 0.05201
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.0847, p-value = 4.352e-05
alternative hypothesis: greater
> geary
[1] 0.8008497

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5707, z = -2.4886, p-value = 0.01283
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.6232, z = 1.9430, p-value = 0.05201
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.0847, p-value = 4.352e-05
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8008497
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=270167&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5707, z = -2.4886, p-value = 0.01283
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.6232, z = 1.9430, p-value = 0.05201
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.0847, p-value = 4.352e-05
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8008497
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=270167&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270167&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 = -0.5707, z = -2.4886, p-value = 0.01283
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.6232, z = 1.9430, p-value = 0.05201
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.0847, p-value = 4.352e-05
alternative hypothesis: greater
> geary
[1] 0.8008497



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