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 computationTue, 15 Dec 2015 13:08:51 +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/2015/Dec/15/t1450184969c7ggs1rsa1o5fn0.htm/, Retrieved Sat, 18 May 2024 17:20:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=286482, Retrieved Sat, 18 May 2024 17:20:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact73
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2015-12-15 13:08:51] [33f7124a987e21c75039d3065d74d143] [Current]
Feedback Forum

Post a new message
Dataseries X:
2.29450899
1.09528627
1.77106677
-3.79139145
-2.955754
0.46124709
3.68963924
1.724922
-0.17205804
-2.35937271
-0.07350474
-3.64858621
1.49876913
-0.6051381
1.14752078
0.87592207
0.43427616
-0.46659558
-2.08876642
-0.3222284
-3.15040996
2.77062381
-0.84384112
1.42367386
1.21812236
-1.98820618
1.11849683
2.0561041
-1.06138155
0.96473392
-1.10752988
1.09792692
-0.46645466
-2.17447349
0.48854638
1.30009972
0.19666395
2.01883497
-2.18846822
-0.7486675
-4.19568275
0.41015671
1.9333607
0.07973969
2.09764388
-1.21888806
1.54759659
-3.55575409
3.10927107
1.76455671
-0.25881272
-2.21512063
0.81244016
2.12003562
3.18277649
0.13696178
-4.23092881
4.73146107
0.99345998
2.53635694
-1.84605472
1.14026002
-2.88800798
3.26427609
-0.84217759
-0.38793524
-1.54317916
-0.05683906
2.979173
1.35019691
-0.35508179
1.31744206
-0.84060979
1.61711462
1.95199703
1.66998284
1.70952674
1.71787819
-0.43120221
-2.95474994
-0.98947467
3.05106315
-0.5465059
-3.93186101
-0.91281053
0.34430977
1.22644902
-0.08483272
-2.4676307
2.31387727
3.08450339
-4.20367773
-0.76285883
-1.15957498
-3.03743637
-0.99455805
-2.39375542
0.97044001
2.86762016
-4.2414508
1.07900436
0.07934712
-0.75128845
-1.82159036
3.17468689
-1.16133912
2.74533068
-4.09058331
-2.74742213
-1.86663527
0.66544222
0.77641483
-4.49127664
1.10327763
1.73318099
1.84531942
-1.18311137
1.18299598
-1.0584988
1.50895219
-2.33844311
2.28491954
0.59853833
4.08439273
-2.37121433
-0.2684081
1.27204454
-0.68917767
0.88118834
1.0662853
0.36308362
-1.06309129
1.35808723
0.31476596
0.95412945
-0.47069467
3.17895568
-2.72135004
0.31090833
0.84387463
-0.55051081
1.21865291
-0.79453203
1.43339954
-0.02404139
0.53886871
-0.92551956
0.18089435
-1.42305627
1.085134
-5.66390523
1.09501719
1.24451179
0.44047871
2.21254639
0.18220745
0.97039284
1.69777028
-1.48844659
-0.98593703
1.04866434
1.2789011
-0.32295861
5.18695349
0.53724769
0.99902089
0.07577104
1.45693808
-0.30512451
-2.48268665
-0.36058816
2.33326007
-1.77740341
0.25827486
0.25827486
1.73393735
-1.11033913
2.36570391
-1.30519324
-2.9584143
-2.53825656
-0.92907561
1.79943142
-0.84085165
-4.07600977
-0.28721837
2.27086136
-2.69613843
-1.45329255
0.37869744
-0.03639647
1.17272859
-2.63221016
1.90114154
0.66800854
1.25189518
-2.78763581
0.82821814
2.21455893
0.21056102
1.79584757
1.45639982
-1.23364776
0.08964413
-2.23917773
2.1975563
-0.79530776
2.74933549
1.15253624
0.43437965
1.10696977
0.36427521
-1.91844511
-0.57513273
-0.85894478
-0.84649564
1.42321427
1.56915299
0.31841551
-0.93451664
1.16066951
-2.68151164
-0.13712021
0.05782969
2.75593379
1.63383946
0.81506617
3.05679238
1.88058908
1.39874446
2.3489331
1.65415706
0.45446956
-2.84953607
-0.60045896
-5.06154728
0.01016705
-2.50215341
0.46716236
-1.51963796
-1.73317544
-3.12596447
0.64076063
0.72920906
-0.79293405
0.12386283
0.34383812
-1.42025659
-1.13551021
-1.76498407
-3.62442587
-1.8571878
1.36532922
1.52534144
-2.68083597
1.12477323
-3.55249613
-4.99638301
-1.94279973
-6.41423913
0.88932868
-0.36993141
-1.19683829
0.80529895
1.33698102
0.36453968
1.57390617
-0.47132414
1.59607894
0.2733632
2.73644945
0.21063776
1.54419159
0.8378764
0.03561805
0.99379906
0.55458529
-0.12774503




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286482&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'Gertrude Mary Cox' @ cox.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.49498, z = -3.28420, p-value = 0.001023
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.16750, z = 0.75519, p-value = 0.4501
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.677, p-value = 0.002913
alternative hypothesis: greater
> geary
[1] 0.7979447

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.49498, z = -3.28420, p-value = 0.001023
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.16750, z = 0.75519, p-value = 0.4501
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.677, p-value = 0.002913
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7979447
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=286482&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.49498, z = -3.28420, p-value = 0.001023
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.16750, z = 0.75519, p-value = 0.4501
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.677, p-value = 0.002913
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7979447
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=286482&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286482&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.49498, z = -3.28420, p-value = 0.001023
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.16750, z = 0.75519, p-value = 0.4501
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.677, p-value = 0.002913
alternative hypothesis: greater
> geary
[1] 0.7979447



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