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 computationSun, 24 Dec 2017 18:13:23 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Dec/24/t151413566026xh9g66ldvvvcy.htm/, Retrieved Tue, 14 May 2024 06:20:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=310903, Retrieved Tue, 14 May 2024 06:20:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact108
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [SkewKurtTestLen] [2017-12-24 17:13:23] [e1a644ffb3e7fe05667121800e4d9fd5] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.639331159594218
-0.663249304852279
-1.57703238363959
-0.291086233440849
-0.383249304852277
1.81166884040579
-0.417032383639588
-0.542032383639588
0.443967616360412
-0.575249304852277
-0.529086233440849
0.702668840405791
0.428750695147722
-1.21095052889766
1.87666884040579
-1.16303238363959
-0.351950528897657
0.367995621301082
0.551750695147723
0.514750695147723
0.764967616360411
-0.663331159594209
0.0346149906045305
0.352913766559151
-1.14703238363959
-1.04003238363959
-0.515331159594208
1.18396761636041
-0.700249304852277
0.22891376655915
0.265750695147723
-0.183950528897657
-0.236249304852278
-0.222950528897657
-0.103249304852278
0.629750695147723
-0.551950528897657
-0.540249304852277
1.68991376655915
0.14561499060453
1.52796761636041
0.203750695147723
-0.982331159594209
0.297750695147723
0.456967616360411
-0.0242493048522772
-0.217331159594208
0.811967616360412
0.389967616360411
-0.488385009395469
-1.19638500939547
-0.35438500939547
-0.303950528897657
0.276967616360412
1.53096761636041
0.0926688404057911
-0.251249304852278
0.328750695147723
0.135750695147723
-0.290032383639588
0.656967616360411
0.338750695147722
0.44691376655915
0.342696845346462
0.652668840405792
-0.751331159594208
0.383967616360411
0.357049471102342
-1.02333115959421
0.612696845346462
-0.41738500939547
-0.0463311595942091
-0.385385009395469
-0.132249304852278
-0.282249304852277
-0.0222493048522774
-0.508249304852277
0.919668840405792
0.495668840405792
-0.272249304852277
0.741750695147723
0.391750695147722
-0.813032383639588
1.15199562130108
-0.0380862334408494
-0.141249304852277
-1.67408623344085
-0.677032383639589




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310903&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=310903&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=310903&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = 0.29962, z = 1.20920, p-value = 0.2266
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.15740, z = 0.64728, p-value = 0.5175
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.4075, p-value = 0.4947
alternative hypothesis: greater
> geary
[1] 0.8004131

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 0.29962, z = 1.20920, p-value = 0.2266
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.15740, z = 0.64728, p-value = 0.5175
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.4075, p-value = 0.4947
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8004131
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=310903&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = 0.29962, z = 1.20920, p-value = 0.2266
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.15740, z = 0.64728, p-value = 0.5175
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.4075, p-value = 0.4947
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8004131
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=310903&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=310903&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.29962, z = 1.20920, p-value = 0.2266
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.15740, z = 0.64728, p-value = 0.5175
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.4075, p-value = 0.4947
alternative hypothesis: greater
> geary
[1] 0.8004131



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