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 computationMon, 15 Dec 2014 16:38:54 +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/15/t14186615808b16drclmbgp5h7.htm/, Retrieved Thu, 16 May 2024 19:57:41 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268735, Retrieved Thu, 16 May 2024 19:57:41 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact40
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [tsryys] [2014-12-15 16:38:54] [7de4f24d5c21ad7c83693f758b02221d] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.0077351968918655
-0.250181571499464
0.104025422750372
-2.44810671677659
-2.25124954287741
1.03180499475156
2.06079314360546
1.08765949766899
-0.322607421002819
-1.80337607823221
0.0746840440006793
-2.42072766503947
0.184638942980017
0.71536702625424
-2.08864892602426
0.443994138501408
0.62156133517063
-0.389933085354964
-0.324123648493321
-0.139827098242751
-1.980751562863
1.88368233061321
0.298541781072031
1.73718523103452
0.355052158519993
0.0656004914388199
2.29517575742163
1.07191370456041
-0.701871761283749
-0.159304373761595
-1.71401772653995
0.334547942194069
-1.14897819827947
-0.334616072527155
0.00638707577197842
0.00899128764270425
-0.0805915510476192
0.97686623196376
-0.59090569036347
0.517387569217818
-2.77291476382519
0.638178625196786
1.22159075604372
0.302308692011936
0.765234063813892
0.00402022864715285
0.432740785818703
-1.76041309584281
0.952368296746487
0.718941177951147
0.228991723652027
-2.29608195386334
0.0625504484263477
0.703875605993723
1.44658087945886
-0.505777468580927
-2.78283118338833
1.9135189462972
-1.35563896800768
1.59698523973827
-0.807708442133541
1.02554819785456
-1.60016747434286
2.52548759168254
-0.943394717203372
-0.717038206104679
0.064006072232578
1.19706815558397
1.64929060333297
0.444488412902096
0.294770329302915
-0.100826793081922
-1.45586005829509
1.65983062159355
0.34846213023636
0.968462909950528
0.219874935891045
0.557307001079376
-1.09733076763801
-2.04711401235777
-0.284204687860504
1.12777193390344
-0.0600588508228214
-3.81661965223937
-0.232500411459052
0.654665480690402
0.667606568601977
0.209870188216511
-1.11571696498946
1.31965629579929
0.791295723593934
-2.9058602797994
-0.511053032160289
-0.828042172806263
-1.15181833310366
-0.595294119197829
-1.28204533879488
1.00545885299263
1.82691291363951
-0.964980235360585
0.237327465755865
0.0273424709677046
-0.738576059776961
-0.179252816019897
2.21490322657103
-0.900228193541447
1.67907002621572
-3.03335486065295
-1.78105921817127
0.000511478297025985
1.42639699118632
0.724323231554852
-2.90309815788438
1.64503990220273
3.91943649186684
3.74789248670784
2.49300223480966
0.169490336062142
2.3277836755651
2.76809238653242
1.39073488266098
-0.184477072809342
2.076397606424
0.434406470582011
-1.7905066636764
-0.549555195550188
1.48343603146034
0.204914649716025
2.49463672864036
-0.158617469689547
0.175951530789775
0.97286205806037
0.238290051011299
0.157823384122186
-0.916544935207793
-0.866235432998793
1.5428055358291
-2.88849735314734
2.04767311520619
0.630695178820832
-1.12461567043753
1.4921661944549
0.251873289099184
1.33948019590628
0.48607879188924
1.15581730767073
-1.04507632135484
-0.399368654909921
-0.213099575445124
1.46424029892497
-2.43212358064523
0.689198450423776
1.34505941597981
0.999486349620635
-0.38476518347927
-0.618844390315108
1.73080158419761
0.104911288741593
-0.218350868999307
-1.92694845616224
1.50811892494651
0.353219148769105
0.632747945008931
0.0468951785805759
1.99851439967189
-2.52078511242374
1.25628795782681
-0.649782734062813
-0.159565631305892
-2.19942398023657
0.300659077131744
1.23826492072192
-0.230855139538798
-0.135251581602425
0.0803747818771365
1.04740608730107
-1.09791805961382
1.55569729090672
-0.200453199497027
-3.84119165271773
-0.837381254937871
-0.435711417541081
2.37607506324809
0.226185459315549
-1.08367207124427
0.470230815514375
0.917779408120751
-0.894650665330428
-1.4471318374341
-0.936230927023832
-2.00749569185171
0.487514056122357
-2.18644015770132
2.24690081215255
-0.245759877703186
0.449062831824032
0.129811945714959
-0.0596566669418472
0.452178899774522
0.841692367343598
2.14149583965517
-0.817623676448327
-0.673634820944598
0.490085505759305
-1.00450547432571
0.122558894877212
-2.38828916990759
-0.540972435355345
2.40620399651089
1.16534970637813
-1.72055886628648
0.339643561209207
-1.15402915996029
-0.246687040486256
1.03384666634838
-0.943861830967018
0.874250046398315
1.655242694075
-1.67824899564664
0.499993357934845
1.50337365532949
-3.35955102393052
-0.824437732161404
0.683042971062224
2.53546419466885
0.297134241890294
1.1405758757946
0.234111034028727
1.58291865229139
1.73487537219875
1.25681637322953
1.38436782017648
-1.62348557409992
-1.72440675243127
-3.09719857833452
-5.20847642287501
-0.605199451352756
0.293477950632997
-0.504497864261379
-0.440093734154004
0.0845476859159527
-0.855957373558083
0.964691728892936
3.02478430377821
-1.3111998087963
0.450294301162862
1.45818531075977
-0.215770497962433
0.696393335430016
-0.628366660896641
-1.16504609174582
-1.02740690816304
0.462629843138566
0.654118903233557
-0.323451720365354
1.45899119109484
-3.21457438570003
-2.91264420392715
-0.0941555988474786
-2.09186132946054
-0.286495899129999
0.0962692027087214
-0.95638161980001
1.39712724044745
2.10270520438362
0.467345426217545
0.459134960553671
1.13474946368118
1.55633713155921
-1.40520817589568
0.767212234713859
-0.982215074036315
0.767159683146049
1.88118328501049
0.605876758041626
0.283167676689784
1.07925085517129
-3.17349290530282




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=268735&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=268735&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268735&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.4403, z = -1.9442, p-value = 0.05188
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.4524, z = 1.5314, p-value = 0.1257
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.3551, p-value = 0.003422
alternative hypothesis: greater
> geary
[1] 0.7732284

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4403, z = -1.9442, p-value = 0.05188
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.4524, z = 1.5314, p-value = 0.1257
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.3551, p-value = 0.003422
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7732284
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=268735&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4403, z = -1.9442, p-value = 0.05188
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.4524, z = 1.5314, p-value = 0.1257
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.3551, p-value = 0.003422
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7732284
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=268735&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268735&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.4403, z = -1.9442, p-value = 0.05188
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.4524, z = 1.5314, p-value = 0.1257
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.3551, p-value = 0.003422
alternative hypothesis: greater
> geary
[1] 0.7732284



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