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 computationSun, 14 Dec 2014 11:28:53 +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/14/t14185567285p13e4h6zttvuh8.htm/, Retrieved Thu, 16 May 2024 21:12:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267449, Retrieved Thu, 16 May 2024 21:12:33 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact80
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-14 11:28:53] [f235c2d73cdbd6a2c0ce149cb9653e7d] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.407477
1.39884
2.45985
1.51824
-1.35788
0.966994
-1.84344
1.60045
-3.69478
2.16643
1.82588
4.70701
-2.65597
-0.857785
1.09633
0.883856
2.81284
1.26991
0.665021
-1.65735
1.40084
1.45506
0.728891
6.79174e-06
2.97147
-1.18045
1.34422
1.29748
-0.800076
2.33736
-0.0300339
2.78192
0.947053
-0.308442
0.597977
-0.427582
-2.94975
0.267412
-0.305597
1.41881
-6.88766
0.917018
2.00047
-0.597869
2.28878
-0.847732
0.587874
1.02882
-2.0883
-1.66836
1.32817
2.1166
-0.798143
7.6876
0.993124
0.243607
1.41495
2.16079
0.26422
-3.14801
1.29287
2.29232
-2.15386
-1.10527
-1.10527
2.1331
-0.831098
2.48006
-1.51383
-2.37116
-2.28578
-1.58171
2.19619
-0.264699
-3.34977
0.157621
2.67737
-2.43595
-1.83807
0.373219
-1.94852
0.367665
-2.65548
3.24677
0.237918
1.77238
-2.35353
0.360279
2.15065
0.887959
0.0167948
1.10867
-2.1897
0.0172276
-0.743422
2.32126
-0.174769
0.881587
-0.00973062
2.21173
1.68973
-0.48507
-0.582208
-2.62052
-0.0474983
-1.28329
-0.309158
1.61406
-1.06988
1.22716
-1.21922
-0.459462
2.33369
-4.15337
-1.01106
1.60876
1.84029
3.02466
2.18774
2.39003
2.14432
2.72879
3.07559
1.69311
0.0484295
-3.13146
-2.45142
-5.96186
0.655895
-1.6498
0.563591
-0.610965
-1.45069
-1.26053
0.865016
0.993124
3.14686
-1.67119
-1.16328
-0.683087
0.407477
-0.24447
-1.25359
-2.79524
-1.62338
0.0275217
0.599323
-3.69329
0.796115
-4.34079
-4.91634
-2.59076
-6.47706
0.243607
-2.04116
-3.15911
0.865016
2.0016
0.505922
0.846807
1.48766
1.52583
-1.28513
0.991614
-0.406582
0.881802
1.59426
0.452082
0.426796
0.553659
-2.41551




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4022, z = -1.4234, p-value = 0.1546
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.2832, z = 2.6136, p-value = 0.008959
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 16.3414, p-value = 0.0002828
alternative hypothesis: greater
> geary
[1] 0.7816662

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4022, z = -1.4234, p-value = 0.1546
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.2832, z = 2.6136, p-value = 0.008959
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 16.3414, p-value = 0.0002828
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7816662
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=267449&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4022, z = -1.4234, p-value = 0.1546
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.2832, z = 2.6136, p-value = 0.008959
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 16.3414, p-value = 0.0002828
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7816662
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=267449&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267449&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.4022, z = -1.4234, p-value = 0.1546
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.2832, z = 2.6136, p-value = 0.008959
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 16.3414, p-value = 0.0002828
alternative hypothesis: greater
> geary
[1] 0.7816662



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