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 21:25:58 +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/t1418851687ffuixzmfbhgflks.htm/, Retrieved Thu, 16 May 2024 16:45:31 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270705, Retrieved Thu, 16 May 2024 16:45:31 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact81
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 21:25:58] [a3de03a8fa2b95b1b988206b9ba33408] [Current]
Feedback Forum

Post a new message
Dataseries X:
-4.84007
0.823207
1.34075
1.77579
-0.331453
1.39848
-1.00555
1.6881
-3.09575
2.50918
0.845918
3.63996
-2.99757
-1.01354
0.416632
-1.10793
1.36561
0.907072
0.218848
-1.04042
1.3347
-0.333169
0.461807
-0.950616
2.77823
-3.55346
0.472766
-0.0944869
-0.00344538
1.74655
-2.07521
1.38399
0.451083
0.617575
-1.668
-0.297765
-2.77541
1.13202
-5.94243
0.508139
1.22255
0.281204
2.56787
-0.0440416
1.14769
1.71581
-0.676116
-0.968854
2.40985
1.22089
-0.913893
4.34049
2.05435
0.477562
1.46727
2.26834
0.382109
-2.37195
0.674201
2.50457
-0.807056
0.138655
0.138655
1.88823
-1.64594
2.00015
-0.923692
-2.95483
-1.83055
-0.75578
1.64744
-0.601272
-4.01812
0.428937
3.25965
-1.62773
-0.0864379
-0.167192
0.20408
0.384178
-2.45469
2.30282
1.30954
1.64274
-2.72508
-0.495409
2.34206
0.739062
1.24083
1.55078
-1.55864
0.583494
-2.16215
2.93142
-1.95026
2.32232
0.916592
0.608463
1.15806
-0.348586
-2.65163
-0.117431
-0.543592
-1.47231
1.39863
1.51531
0.439926
0.119215
1.08717
-2.89389
-0.463462
-0.398125
2.21135
2.32223
0.782051
3.12529
1.51713
1.6349
1.6483
0.82678
0.866804
-3.011
-2.19369
-5.51709
0.614788
-3.12961
-1.37385
-1.54785
-1.61916
-2.77023
1.24319
2.05435
-0.174897
0.406264
-0.454424
-1.69543
-1.15817
-1.71273
-2.99068
-2.31425
1.60577
1.02911
-2.89106
1.43103
-3.2089
-5.66698
-0.875543
-6.51831
0.477562
0.607921
-2.04468
1.24319
1.41981
0.739257
1.55959
0.20936
2.21684
0.136969
2.76693
-0.251307
0.58592
2.115
0.566113
0.986065
1.80614
-0.730779




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270705&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'Gertrude Mary Cox' @ cox.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.7930, z = -2.5666, p-value = 0.01027
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.6821, z = 1.7268, p-value = 0.0842
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.6163, p-value = 3.336e-05
alternative hypothesis: greater
> geary
[1] 0.7900262

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.7930, z = -2.5666, p-value = 0.01027
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.6821, z = 1.7268, p-value = 0.0842
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.6163, p-value = 3.336e-05
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7900262
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=270705&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.7930, z = -2.5666, p-value = 0.01027
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.6821, z = 1.7268, p-value = 0.0842
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.6163, p-value = 3.336e-05
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7900262
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=270705&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270705&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.7930, z = -2.5666, p-value = 0.01027
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.6821, z = 1.7268, p-value = 0.0842
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.6163, p-value = 3.336e-05
alternative hypothesis: greater
> geary
[1] 0.7900262



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