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, 02 Nov 2012 19:56:51 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Nov/02/t13519006224885ilscy07d4a9.htm/, Retrieved Mon, 27 Jun 2022 06:18:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=185692, Retrieved Mon, 27 Jun 2022 06:18:30 +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] [Model 3] [2012-11-02 23:56:51] [18a55f974a2e8651a7d8da0218fcbdb6] [Current]
- RM      [Skewness and Kurtosis Test] [Paper 2012 multip...] [2012-12-14 15:01:36] [33fe548a21de6aef2b38519618b03303]
Feedback Forum

Post a new message
Dataseries X:
2,95523E+14
2,85992E+14
3,56904E+14
5,18305E+14
-2,09435E+14
0.537871166893266
-1,11424E+14
2,1201E+14
0.635953435184424
-1,95845E+14
0.0676684960188663
-0.648640862841488
-2,10493E+14
-8,75262E+14
0.48136827168983
0.469257769604473
-1,90158E+14
0.910007056128391
-0.386133612172243
0.974987731700064
1,14742E+14
-4,19515E+14
1,83934E+14
1,87087E+14
1,02247E+14
2,85784E+14
-0.893855607099725
-0.890853110787265
1,18609E+14
1,76377E+14
-0.315223925016178
0.434542669783982
0.276560144464606
0.30344240188372
5,97021E+14
4,27866E+14
-2,3166E+14
1,01524E+14
-0.823692458855778
4,51119E+14
3,76878E+14
2,44199E+14
-1,11502E+14
-1,56889E+14
1,47515E+14
-0.0519563480829026
1,23946E+14
2,89215E+14
-6,11945E+14
-0.0275919999425549
-2,2141E+14
-1,01122E+14
-1,44463E+14
1,83251E+14
2,29526E+14
-0.661672767603943
-3,87812E+14
-3,24703E+14
1,43056E+14
2,78088E+14
-0.921882353391465
-1,32623E+14
-2,36266E+14
1,3347E+14
-0.905332461985056
-1,57997E+14
-2,76848E+14
-0.460284781637562
-1,98251E+13
-1,34633E+14
0.631564724214422
4,6744E+14
1,13426E+14
-0.010288595451614
-6,68262E+14
-1,15876E+14
-0.234637689670431
-0.376859906280841
0.157426995481899
-2,1908E+13
-1,4275E+14
-0.184257846087134
2,15747E+14
0.438799486623659
1,3125E+14
1,74138E+14
2,04684E+14
8,14444E+14
2,41377E+14
8,03369E+14
3,12966E+14
-1,43092E+14
4,09324E+14
-1,59413E+14
-1,71981E+14
-5,96568E+14
-1,66142E+14
-7,53541E+14
-8,44891E+14
-6,66422E+14
-9,66217E+13
-4,22322E+14
-5,70009E+14
-7,30285E+14
-8,27425E+14
1,20479E+14
0.715719566545398
0.919894562396872
-6,02608E+12
-4,36747E+13
-5,53892E+14
-2,84491E+14
-2,37486E+14
-5,75053E+14
-0.373009787726465
-0.410613910110725
-2,48075E+14
4,26018E+14
5,13508E+13
4,40458E+14
-0.00619308294894657
3,56681E+14
4,85154E+14
6,73743E+14
2,00382E+14
9,98787E+14
4,98536E+14
4,46628E+14
3,55392E+14
6,70796E+14
2,00129E+14
-0.409342978387845
-4,14478E+14
-4,87959E+14
4,47613E+14
4,75398E+14
-0.0661302586582852
3,56335E+13
0.432913216993828
0.8998481313829
-3,40459E+14
-0.384191267468243
-1,17128E+14




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=185692&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1650, z = -0.5526, p-value = 0.5806
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.7485, z = 1.7560, p-value = 0.07909
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 3.9871, p-value = 0.1362
alternative hypothesis: greater 
> geary
[1] 0.7079647

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1650, z = -0.5526, p-value = 0.5806
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.7485, z = 1.7560, p-value = 0.07909
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 3.9871, p-value = 0.1362
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7079647
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=185692&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1650, z = -0.5526, p-value = 0.5806
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.7485, z = 1.7560, p-value = 0.07909
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 3.9871, p-value = 0.1362
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7079647
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=185692&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=185692&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.1650, z = -0.5526, p-value = 0.5806
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.7485, z = 1.7560, p-value = 0.07909
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 3.9871, p-value = 0.1362
alternative hypothesis: greater 
> geary
[1] 0.7079647



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