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 18:50:49 +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/t1418842256cti8mld7bqm7jy8.htm/, Retrieved Thu, 16 May 2024 20:56:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270576, Retrieved Thu, 16 May 2024 20:56:51 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact43
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-17 18:50:49] [023a69c6c348bca0f1811b046758af62] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.0113999790610915
-4.64043461423722
2.67775105253305
-0.00312802907735648
-4.5516335846932
3.23517399538318
3.89969559174823
-2.51856889863976
-3.72016018948478
-2.1175818143433
-3.02434757327744
4.54963145886519
-0.299042409889014
3.61069142560659
2.35377930861981
-1.30341931948013
5.16261031523054
2.95244961396345
-0.169604881365265
-0.471103664038715
-4.23915469558622
-0.398002842028171
-2.68862642862374
-1.49841238224865
-1.07800904289748
0.452780127428996
0.431288547778272
-1.07728841964126
1.6069322713595
-1.25226377466515
1.96809531139242
-4.47457751817901
0.98983714806568
1.65680163688393
2.88434576621009
1.25219081069712
0.315757812784823
0.220407724955029
-2.35556779352941
1.17613877636533
-0.21164506662783
0.741062559468364
-3.27096394752053
0.963128517924268
1.21134466846203
1.10226045907035
1.35033858402457
-4.84515757236085
3.43092918858886
-3.0319438212789
3.52623572796065
-2.3201456318841
0.432352651528913
-2.66438112105389
6.04856568083328
-0.819248105179855
-2.33238068218107
-1.18666070557124
3.66610587983191
3.81847190225373
-0.0588883797658079
0.826933744470306
0.564340960073743
-3.22270643563817
1.9195905487716
-3.33608159058024
2.0293439625264
2.31127027773563
0.77448902032831
0.198411551696395
-0.542533788021042
-2.98166162045304
-1.64198171187542
2.47142424080982
-0.214135822439995
-6.48846911894556
-1.71669766491359
2.67653611958851
0.102680809759859
1.22218322717204
-2.19957175914949
1.29208991089675
2.62905485136845
-4.84962373271988
-1.1418999299084
-1.87450763960975
-1.98991638415424
-0.00956421409728089
-3.93328351037806
2.87410925450482
3.41894785942613
-2.14202186419683
0.495282277768182
-1.31080695175695
-0.768401721202235
1.08943233912098
3.63790868087961
-2.12925426618672
3.75990639952737
-4.16651298101115
-4.19352350018348
0.411003905996341
1.43533751862976
1.58388113309646
-5.33500615190365
1.67817753987907
8.66898669882119
8.23229756694654
4.04503159846823
0.758558192300332
5.24160851089668
7.36155044812884
2.48697779737842
0.126333225094944
3.83891509932149
1.19348824050061
-2.91721497006613
-2.3475274471283
2.89159115761156
0.164477435311336
3.46033404088017
0.145326986752258
-0.0995426209725108
2.90652848456383
0.158176957765751
1.01107983635516
-2.76580744603725
-1.17170003391935
4.56537415518586
-6.76669396998217
3.88700780936018
1.67307531556087
-4.39498597375705
3.79291837930306
0.403495499240022
2.95480787760679
0.141628336989259
2.10328109065399
1.75293664014688
-1.07410226995245
-2.35228717047031
-0.551024601452584
-0.259172502229313
3.91771101227611
-6.19565043558189
1.62802750865329
3.62755425588321
1.99177363790197
-0.858070417825996
-0.608805849263785
3.64365770474865
1.14206362786102
0.0912782426481422
-3.1344837997374
3.00025076330912
0.651310663529023
1.65649458448763
0.322486865643909
4.08205073407225
-4.8790690447391
2.72112253315612
-0.0103845743047511
-1.43803151221919
-3.15585784757925
2.07010842354076
2.95701663821157
-1.05954704693601
-0.0590677481546424
0.116257103640085
2.13672425494632
-2.75747957477936
4.1602259980512
-0.598393235023397
-6.94398544392012
-2.10764126438771
0.320979285943726
5.32273469589697
0.432994211773076
-2.48886830123244
1.44745853008152
1.84148786163625
-2.07204674713997
-3.19637094125863
-1.1438442026389
-4.43442635057732
2.66657794037868
-4.66902970565047
5.80172409408823
-0.0976473918336715
0.378653067449313
0.668301716969461
-0.00290495946889718
0.175551939205754
1.7822253139772
4.86457358236294
-1.26683061973609
-1.20150383824327
2.62884201837698
-1.97315453209893
0.731013716762295
-4.48811682173547
-1.52214200391368
-1.76823528187181
5.39757546788883
1.54045440954643
-3.12443770773481
1.08549529962621
-1.63963875839563
-0.398531739086508
3.12184533087605
-1.35577953293348
2.01219297078879
0.913928427359352
3.68257611551507
-3.40159910151699
1.18834703345188
2.60334979280971
-7.00240398832439
-2.25224673126088
2.48434850626846
5.35341213835065
1.23316373501214
2.64657341827624
1.15288866113821
4.41640265245603
3.45345547263739
3.14628525383037
2.27792656125425
-4.09544892674721
-2.27731668701206
-6.18352547986743
-9.4516474244884
-1.92189836419723
0.56109355422234
-1.66299081088104
-0.618674836735663
0.574080255627631
-2.58660700664499
2.18741867469717
5.99555421358222
2.81824901601112
-1.99316244457682
0.782866346036145
4.15463731936166
-1.01338836469325
2.18674316748167
-1.43660945513473
-2.1709494205683
-2.03626560028816
0.164838908009669
0.848800239503916
-1.82630794293541
2.36138580053791
-5.43711487948314
-5.17748991758697
1.26690855404173
-4.87530667303878
-0.869489931587303
0.355449252123051
-1.64313523104269
3.3122798716432
3.99056496092307
0.279937562576241
-0.163500260163585
1.46113513444589
4.55683751347523
-2.51406262936078
2.21779534349183
-1.27432292299348
1.97050243169418
4.14180957698051
1.86036344757962
0.882785978278846
1.71061045752334
-6.50834476976549




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2045, z = -0.9269, p-value = 0.354
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1187, z = 0.6029, p-value = 0.5466
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.0779, p-value = 0.3538
alternative hypothesis: greater
> geary
[1] 0.791159

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2045, z = -0.9269, p-value = 0.354
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1187, z = 0.6029, p-value = 0.5466
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.0779, p-value = 0.3538
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.791159
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=270576&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2045, z = -0.9269, p-value = 0.354
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1187, z = 0.6029, p-value = 0.5466
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.0779, p-value = 0.3538
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.791159
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=270576&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270576&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.2045, z = -0.9269, p-value = 0.354
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1187, z = 0.6029, p-value = 0.5466
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.0779, p-value = 0.3538
alternative hypothesis: greater
> geary
[1] 0.791159



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