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, 16 Dec 2014 13:50:56 +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/16/t14187378738dk9q77r1v8ba6b.htm/, Retrieved Thu, 16 May 2024 21:24:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=269555, Retrieved Thu, 16 May 2024 21:24:07 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact88
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Histogram] [Frequency Plot (C...] [2010-09-25 09:09:15] [b98453cac15ba1066b407e146608df68]
- RM D  [Histogram] [WS1 - Task 1 - Fr...] [2014-09-26 11:11:25] [3cc57788b191749bdc089f5fad42e0f8]
- RMPD      [Skewness and Kurtosis Test] [] [2014-12-16 13:50:56] [afff6d6b458ee8576605d3685f592a9b] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,58777
0,894374
1,08524
-3,37966
-4,04156
2,35885
3,20621
0,578872
0,361558
-3,60175
-0,296814
-3,75612
0,584704
0,355166
-3,98527
-0,121339
1,0439
-1,46717
-1,19671
-0,258667
-4,14568
2,19059
0,784684
3,69244
0,0916118
1,65428
3,45853
1,63536
-1,19723
0,850939
-2,24064
1,17705
-1,69223
-2,1916
-1,08082
-1,8241
-0,176163
2,29916
-2,6199
-0,147048
-5,91967
-0,230362
2,04792
0,320168
0,814647
-1,03733
0,805378
-3,44719
2,37089
0,209766
0,234622
-4,45783
0,0888374
3,23685
2,13838
-1,10705
-4,49891
4,57964
-2,08759
2,07828
-1,90151
1,61633
-3,76735
4,61803
-0,702975
-2,29445
-0,391575
2,31467
2,79084
1,63667
0,356274
-0,253687
-2,1938
1,89949
1,79016
1,66019
1,10931
1,98531
-1,13758
-3,19352
-1,15974
3,30475
-0,651195
-4,3555
-0,777438
0,796294
-0,252938
-1,3964
-3,08111
4,14259
1,35188
-3,77216
1,3503
-1,35561
-2,80895
-0,585466
-1,78766
0,306685
2,6763
-3,66316
-0,651065
-0,785887
-1,47897
-0,460739
3,36181
-2,13578
2,72755
-5,36543
-5,14884
-1,19034
0,459711
0,610235
-6,4105
0,318047
1,85771
1,4583
0,553611
1,25263
-0,600377
1,80671
-0,618679
1,7604
0,948561
2,28941
-3,10653
-0,178579
1,20107
-0,909756
2,72944
0,0199262
-0,719309
-0,198434
0,757281
0,127956
-0,352388
-1,10828
2,52533
-4,85625
1,11235
0,0296383
-0,514975
1,46694
-0,235437
1,88203
0,798186
0,415953
-1,36476
-0,317687
-1,53098
0,850506
-5,17372
0,0689905
0,886239
1,12842
1,43499
1,0846
1,48143
1,49616
0,181965
-1,09565
3,04373
1,68859
-0,895375
2,43236
2,22523
0,627327
2,39724
0,956733
-0,112334
-1,4734
1,20727
3,08683
-0,819356
-0,384547
-0,32669
3,49023
-1,18219
2,65363
0,238085
-3,52987
-1,3981
-0,0534992
1,54002
0,221166
-3,01441
0,537345
2,50702
-2,01905
-1,37976
0,0298594
-0,671125
2,73345
-2,84994
3,31682
1,32298
0,894702
-2,35772
1,23686
2,53385
1,3496
1,81504
0,78892
-0,958549
0,659933
-2,11768
1,83173
-1,62848
1,44804
3,9308
2,01046
0,146633
0,291297
-1,55084
0,956693
0,177238
-0,882652
1,87085
1,73081
0,0761921
0,347785
1,84388
-1,69293
-1,37475
0,0446062
2,57183
1,61542
0,648704
2,92169
2,375
1,62463
1,79304
2,4202
0,999764
-3,01555
-1,74327
-7,28369
-0,0447405
-1,95227
-1,52849
-1,25464
-1,72148
-1,5407
1,09395
2,85232
-0,420913
1,89689
0,830543
-1,79119
-0,153164
-1,91122
-3,3462
-2,69769
1,87531
2,70995
-2,39619
2,01484
-3,77983
-5,86712
-0,342975
-5,30721
-0,0555736
0,0173731
-1,53438
1,32688
1,97648
0,212268
0,709732
1,54823
1,96366
-0,851864
2,99451
-0,690825
2,492
2,42894
1,16276
-0,425294
1,91943
-2,31572




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.6304, z = -2.6834, p-value = 0.007288
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.2815, z = 1.0862, p-value = 0.2774
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 19.3291, p-value = 6.35e-05
alternative hypothesis: greater
> geary
[1] 0.7909322

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.6304, z = -2.6834, p-value = 0.007288
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.2815, z = 1.0862, p-value = 0.2774
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 19.3291, p-value = 6.35e-05
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7909322
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=269555&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.6304, z = -2.6834, p-value = 0.007288
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.2815, z = 1.0862, p-value = 0.2774
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 19.3291, p-value = 6.35e-05
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7909322
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=269555&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269555&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.6304, z = -2.6834, p-value = 0.007288
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.2815, z = 1.0862, p-value = 0.2774
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 19.3291, p-value = 6.35e-05
alternative hypothesis: greater
> geary
[1] 0.7909322



Parameters (Session):
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
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')