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, 07 Dec 2016 19:25:40 +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/2016/Dec/07/t148113515398az9y6ethuh7k7.htm/, Retrieved Tue, 07 May 2024 21:16:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=298282, Retrieved Tue, 07 May 2024 21:16:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact62
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [N1316] [2016-12-07 18:25:40] [85f5800284aab30c091766186b093bb4] [Current]
Feedback Forum

Post a new message
Dataseries X:
2.2522510593653e-07 
-1.78777431068903e-05 
4.41368226939522e-05 
1.83275262334299e-05 
1.10600274703359e-05 
2.36769051694335e-06 
-2.75742920985042e-05 
-7.13903070824579e-05 
-7.95204112084819e-06 
-7.31263663778843e-07 
2.19710687341312e-07 
1.27922953893456e-05 
6.99028242543171e-06 
-5.19642544403266e-06 
-5.46221376054056e-05 
1.6052879331984e-07 
1.57709245117306e-05 
4.47231332817023e-06 
-1.15993303955238e-05 
1.75484357779654e-05 
9.3374087015458e-06 
3.44316010460007e-06 
1.37585055198135e-06 
-1.78864742280668e-07 
2.04294807712048e-06 
-1.34036681682809e-06 
4.10773396121363e-06 
9.07017239409313e-06 
3.18230955852265e-06 
6.12132565914596e-06 
4.33946063815058e-06 
1.01671349782129e-05 
1.07396978765276e-05 
6.8842147594665e-06 
2.96331802629605e-05 
1.09870720289813e-05 
-1.67655219000712e-05 
-2.62406317292932e-05 
1.8957392762348e-05 
1.64266059877505e-05 
-2.84639449070562e-05 
2.51402482895234e-05 
2.63089415748931e-06 
-2.82409605248575e-06 
-1.70083343710212e-05 
-1.59776804325553e-05 
3.47453315745831e-06 
-1.19591523809888e-05 
-1.99616299591162e-05 
7.65408452115711e-06 
2.86179755922865e-06 
-1.69557846032602e-06 
3.83272206001584e-06 
1.72772445408671e-06 
1.19492604365424e-07 
5.61772879472278e-06 
-7.43906888514822e-06 
-7.18856928322718e-06 
3.2556356866224e-06 
-2.30125991355631e-05 
1.90816658343299e-05 
-2.20919574770099e-05 
6.62939275652418e-05 
-6.27718088883707e-06 




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=298282&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]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=298282&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298282&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 time0 seconds
R ServerBig Analytics Cloud Computing Center







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.42229, z = -1.46380, p-value = 0.1433
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 6.7963, z = 3.4363, p-value = 0.0005896
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 40.333, p-value = 1.745e-09
alternative hypothesis: greater
> geary
[1] 0.6606675

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.42229, z = -1.46380, p-value = 0.1433
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 6.7963, z = 3.4363, p-value = 0.0005896
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 40.333, p-value = 1.745e-09
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.6606675
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=298282&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.42229, z = -1.46380, p-value = 0.1433
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 6.7963, z = 3.4363, p-value = 0.0005896
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 40.333, p-value = 1.745e-09
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.6606675
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=298282&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298282&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.42229, z = -1.46380, p-value = 0.1433
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 6.7963, z = 3.4363, p-value = 0.0005896
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 40.333, p-value = 1.745e-09
alternative hypothesis: greater
> geary
[1] 0.6606675



Parameters (Session):
par1 = -1.0 ; par2 = 1 ; par3 = 0 ; par4 = 1 ;
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')