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, 24 Jan 2018 10:38:26 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2018/Jan/24/t151678677451zyjtpvfhek59j.htm/, Retrieved Mon, 06 May 2024 05:58:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=312367, Retrieved Mon, 06 May 2024 05:58:13 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact26
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2018-01-24 09:38:26] [415f15797450864ceae596a4d970dcc7] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.27009699024257
-2.83938851500223
1.31112863011639
2.2653499602899
-2.45887091597574
-0.739739795629299
-0.314039824610979
-0.0455169732137868
-2.17873246542332
0.896502041399788
-1.64980590844685
-0.945354943930379
1.24064313789498
-0.90025807190402
-0.0183074896553526
-0.488747765141304
1.62751960087592
0.659959918014675
1.95087878670568
0.758440102331991
0.00558045898141498
0.694059074966073
0.0701088748879445
0.403518543704449
2.11599328335513
1.16548381140205
-0.2924014630218
-1.4253843699968
-0.0119760359294377
1.19831590686934
-1.29802214785058
2.25135333848693
1.20790475417827
-1.85958552218104
0.680545492499966
2.76757277069594
-0.676166734570098
-2.53078207599757
0.146828227028115
-1.34566659802519
-0.128291179101025
0.958141948906463
2.59146787966895
-2.80221987240544
1.38189090594168
1.17087992838978
-1.59215765057155
1.78919477515355
-1.17905197965409
-1.43077678906591
1.60575985097713
-2.50013431385325
-1.16535336854173
1.07464555049597
-1.27318667108222
-1.87431686534708
0.687385172667827
-1.86010670811008
0.254848444766776
0.525068480474704
-1.21267884068499
3.09819170854478
-1.87018587445691
-1.32686070182552
-0.916936750211592
-1.58154337049994
-0.904518641482493
1.35818265591755
-0.567753491326527
0.636087611994097
1.1642553268757
0.400124915772812
2.73284989314413
1.43465099158152
-0.717610621052914
0.762358470078675
-0.696688414925488
0.887221194502552
0.597744426220831
1.20578433457515
3.15643215457936
-4.22421919592631
1.15542532166165
1.29267880752615
0.724510103791854
-1.79708810037473
2.70548835430491
-1.457217399144
1.89921804432218
-0.00968304773334657
1.253294546374
-2.28899226089855
1.61991446446214
1.32093445698471
-2.13083341998749
-0.768663292504902
2.35934817062887
-1.19458614271828
-0.294132327419837
-0.26408649641533
-0.907218507839397
0.281176777192964
0.260260204370701
1.44927084003561
-0.612190658284914
0.469094656193618
-1.65108059389991
0.614830045804723
2.58439515354443
-1.76446275458972
-1.10263608788467
0.843061126781377
-0.442496292907784
0.36719616614806
-0.529883115013018
0.643037627374611
2.71151254830897
0.415117962300422
1.35114058953603
-2.22270780054162
0.142301781297203
1.49601558853583
0.440261439480471
0.269067458868226
-1.31907518922478
1.05072517127765
1.83464663145827
1.01449168128109
-5.21288583710781
-1.45629181792359
-1.05805493956999
-1.03350113902083
-1.01804266982608
-0.683878515330615
-3.16285247821678
-1.48710554156256
-2.14226289548859
-1.36135457292782
-1.02947728642671
2.20635862238311
0.449944068708206
-1.25682333421454
-1.62109432019935
2.57895040629415
-1.05330715786377
3.19927467189838
-1.99835556237605
1.9665332817563
1.02948979874
0.398667241171913
2.83573890122594
2.9407848900332
1.21742841087809
-3.06513919863533
-1.4336755975111
1.56443709901066
1.09304165230242
-4.26798001476471
0.42968770744045
0.310612603133165
0.0978277642258467
-1.08970390663593
2.09368317021791
-1.21276182860916
-2.2929755725138
-0.950726933133595
4.05322441520673
1.26084577837894
-0.553807850647249
2.42269500542681
-3.4024010352397
0.0813619628550185
-0.634515357715159
-1.5995767774932
-3.4316540556571
2.08624496909194
0.626488527755343
0.974527479425865
1.00355810754479




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=312367&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=312367&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=312367&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.22261, z = -1.24890, p-value = 0.2117
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.84790, z = -0.21581, p-value = 0.8291
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.6508, p-value = 0.4381
alternative hypothesis: greater
> geary
[1] 0.8245138

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.22261, z = -1.24890, p-value = 0.2117
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.84790, z = -0.21581, p-value = 0.8291
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.6508, p-value = 0.4381
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8245138
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=312367&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.22261, z = -1.24890, p-value = 0.2117
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.84790, z = -0.21581, p-value = 0.8291
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.6508, p-value = 0.4381
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8245138
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=312367&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=312367&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.22261, z = -1.24890, p-value = 0.2117
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.84790, z = -0.21581, p-value = 0.8291
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.6508, p-value = 0.4381
alternative hypothesis: greater
> geary
[1] 0.8245138



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