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, 10 Dec 2014 16:38:38 +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/10/t1418229570gek10v33tzhk9gz.htm/, Retrieved Sun, 19 May 2024 15:21:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265486, Retrieved Sun, 19 May 2024 15:21:12 +0000
QR Codes:

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

Post a new message
Dataseries X:
-0,191852
-0,783871
-0,157956
-5,64434
-6,21476
-0,418425
1,82045
0,320448
-1,91843
-4,64134
-1,51476
-6,59251
-2,30181
-0,979552
-6,65364
-1,61044
-1,03636
-3,71843
-3,36228
-2,96228
-6,48453
0,876598
-2,13204
0,846363
-1,25796
-2,03204
3,12477
0,442044
-3,08387
-1,42772
-4,67523
-1,37889
-3,97091
-3,28387
-2,15364
-2,71843
-2,58387
-0,275233
-3,67091
-1,16228
-7,04068
-1,60115
-0,035702
-2,19683
-0,688191
-1,75298
-1,27457
-5,01044
-0,29251
-0,640679
-1,31476
-6,30115
-2,06228
-0,888191
0,281575
-2,81476
-7,23636
1,34204
-5,02706
0,329086
-3,70979
-0,496829
-5,34068
2,93772
-3,82706
-3,91843
-1,87523
-0,014106
1,58092
-0,753637
-0,705468
-1,64434
-4,18387
1,61613
-0,362275
-0,00978676
-0,44434
0,250682
-3,12274
-5,34002
-2,41908
0,342702
-2,07523
-8,69251
-2,66659
-1,19251
-1,74932
-1,63138
-4,35364
0,255001
-0,332041
-7,36228
-3,07091
-4,17955
-5,3573
-3,90613
-5,76594
-1,59683
0,685236
-5,05364
-2,25796
-2,72274
-4,62772
-3,35364
1,28092
-4,59185
0,559321
-8,07955
-6,58387
-3,36659
-1,38819
-1,845
-8,61228
-0,232041
5,15932
4,87045
3,46496
-0,405468
4,13772
6,12045
3,13341
0,361809
5,45068
1,755
-2,37955
-0,414106
3,28524
0,620448
5,93341
1,05566
1,52909
3,25683
1,76613
1,80317
-0,494999
-0,338191
4,41796
-4,46162
5,48524
3,09453
-1,37091
4,80068
2,30932
4,58838
3,34885
4,74387
0,620448
1,38341
1,78341
5,22294
-2,98885
3,01613
5,27045
3,86181
1,61613
0,905001
5,98772
2,63772
1,77111
-1,16908
5,53092
3,01115
4,13341
3,17228
6,86862
-2,05547
5,49636
2,08157
2,05932
-1,63387
2,96181
5,12045
1,62909
2,48092
2,45932
4,74139
0,366129
6,13772
2,38772
-5,36228
0,424767
0,898852
6,00383
2,24885
-0,105468
3,11181
4,3143
0,166129
-0,803637
-0,452979
-2,60364
2,455
-3,33636
5,26796
0,624767
1,84453
1,83524
1,15068
1,97228
3,20998
6,26181
0,603171
0,603171
2,64885
-0,169083
1,59885
-3,08204
-0,303637
6,18589
3,61613
-1,81843
2,28341
-1,14002
0,237725
3,34021
-0,588191
2,87909
5,19204
-1,795
2,68341
4,78772
-5,34251
-0,69434
2,58157
6,35068
2,19453
4,11613
2,64636
5,47228
6,07477
5,55317
6,11613
0,0988517
-0,0993178
-3,43636
-8,43636
-1,13387
0,672278
-1,27955
-0,514764
0,361809
-1,57091
1,94636
6,93772
-1,73204
1,52974
4,6766
1,15251
3,11181
0,392044
-1,15115
-1,02091
1,74885
2,19204
0,181575
3,82294
-5,08204
-5,23204
-0,362275
-5,13387
-2,03819
-0,759129
-3,07706
1,95068
3,68772
0,480917
0,974767
2,67726
3,87045
-2,02091
2,33589
-0,73636
2,12477
4,76181
2,15134
1,72411
3,73092
-4,83636




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265486&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'Sir Maurice George Kendall' @ kendall.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.1701, z = -0.7772, p-value = 0.437
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5887, z = -1.5936, p-value = 0.111
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.3001, p-value = 0.192
alternative hypothesis: greater
> geary
[1] 0.8046923

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.1701, z = -0.7772, p-value = 0.437
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5887, z = -1.5936, p-value = 0.111
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.3001, p-value = 0.192
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8046923
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=265486&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.1701, z = -0.7772, p-value = 0.437
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5887, z = -1.5936, p-value = 0.111
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.3001, p-value = 0.192
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8046923
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=265486&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265486&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.1701, z = -0.7772, p-value = 0.437
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5887, z = -1.5936, p-value = 0.111
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.3001, p-value = 0.192
alternative hypothesis: greater
> geary
[1] 0.8046923



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