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 computationThu, 18 Dec 2014 11:47:19 +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/18/t14189032519dw47ig67t4jykj.htm/, Retrieved Sun, 19 May 2024 17:11:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270823, Retrieved Sun, 19 May 2024 17:11:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact93
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-18 11:47:19] [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 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=270823&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=270823&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270823&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.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=270823&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=270823&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270823&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')