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 computationFri, 12 Dec 2014 12:01:41 +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/12/t1418385705hj80l6b5oz0vgqj.htm/, Retrieved Thu, 16 May 2024 04:45:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266574, Retrieved Thu, 16 May 2024 04:45:35 +0000
QR Codes:

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

Post a new message
Dataseries X:
0.441223
-0.104706
0.625587
-5.86138
-4.90731
-1.03239
1.63862
-0.854869
-2.82197
-4.1705
-1.4008
-6.39428
-0.808615
-2.38777
-2.94673
-0.841514
-1.49298
-2.47311
-3.2034
-2.3021
-5.01252
0.85588
-1.7692
0.408324
-1.09819
-3.25617
0.0464344
0.796597
-2.82848
-0.670504
-3.835
-0.604706
-2.44021
-3.99949
-1.7034
-1.34151
-1.60471
0.520375
-3.9337
-1.56529
-5.84151
-1.10471
-0.0981913
-1.4337
0.059789
-1.835
-1.13109
-5.2034
1.0334
0.750668
-1.03891
-4.64412
-0.808615
0.757183
0.6979
-1.47311
-5.74282
2.3295
-1.51904
1.1979
-3.72327
0.619072
-4.63761
2.07282
-2.53891
-2.14412
-2.96008
-1.61155
1.75718
0.02689
-1.66399
-0.275716
-2.7363
0.737314
0.0334048
-0.262686
0.790082
0.171516
-2.24282
-4.99949
-1.97311
1.72428
-1.9008
-5.64412
-2.7692
-1.42718
-0.874413
-0.979625
-3.24282
1.55979
1.15849
-5.67702
-2.22979
-2.57832
-4.01252
-2.01252
-3.40731
0.151971
2.52038
-5.03891
-0.97311
-1.40731
-2.70992
-3.1705
1.86239
-3.47311
1.25718
-5.87441
-4.54542
-2.7692
-0.209918
0.119072
-4.71643
1.1979
2.96109
3.46109
0.125262
1.84937
0.941223
2.80963
-2.5262
3.38226
2.36891
4.11907
-2.03891
0.290082
1.96109
-1.22979
2.50702
1.98748
1.55327
0.112232
2.02689
0.599203
1.29008
-0.236302
4.19139
-3.14412
1.90832
0.809626
0.421678
3.25067
-0.828484
2.7637
1.50051
1.97412
-0.506009
0.730799
-0.8021
3.05979
-4.00601
1.30963
2.89529
2.2637
3.35588
0.836011
2.54643
2.86239
0.276727
0.059789
3.30963
2.2966
1.17152
4.42168
3.24383
1.15197
2.50702
3.38226
1.3295
-1.69689
1.5992
3.50051
0.434708
1.72428
1.72428
2.86891
-0.598191
3.7637
0.500506
-2.47962
-1.42067
0.895294
3.17152
0.36891
-2.30861
1.36891
4.45458
-0.538908
1.11256
0.428193
0.790082
1.83601
-1.64412
3.39529
2.09269
2.2637
-1.19689
0.763698
3.42168
1.7308
3.40181
2.25718
-0.00600906
1.89529
-0.348029
3.42168
-1.63761
2.88878
2.11223
1.80311
1.46109
1.79008
-1.82848
1.29008
0.908324
-0.440211
2.2308
3.55979
0.895294
1.50051
2.55979
-2.34151
1.25067
1.28357
4.00051
2.88878
2.55327
4.19139
2.51354
3.2966
3.45458
2.38194
1.79008
-1.14412
-1.04542
-4.94673
1.21777
-1.8021
-0.8021
-0.742817
-0.499494
-2.1705
2.15849
3.24383
1.05327
1.50051
1.27673
-0.111221
0.171516
-0.578322
-1.78223
-1.59819
2.50051
1.63862
-1.00601
2.73731
-2.61122
-4.17702
-0.598191
-5.60471
1.15197
1.49399
-1.34151
2.15849
2.7966
1.39529
2.85588
1.15849
3.42819
0.658486
4.11907
0.454577
1.36891
2.63862
1.50051
2.19139
2.5663




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266574&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'Gwilym Jenkins' @ jenkins.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4804, z = -2.1024, p-value = 0.03552
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5616, z = -1.7412, p-value = 0.08165
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 12.8706, p-value = 0.001604
alternative hypothesis: greater
> geary
[1] 0.8276305

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4804, z = -2.1024, p-value = 0.03552
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5616, z = -1.7412, p-value = 0.08165
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 12.8706, p-value = 0.001604
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8276305
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=266574&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4804, z = -2.1024, p-value = 0.03552
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5616, z = -1.7412, p-value = 0.08165
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 12.8706, p-value = 0.001604
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8276305
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=266574&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266574&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.4804, z = -2.1024, p-value = 0.03552
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5616, z = -1.7412, p-value = 0.08165
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 12.8706, p-value = 0.001604
alternative hypothesis: greater
> geary
[1] 0.8276305



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