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 17:55:58 +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/t1418925801qsnc01hs8edo63k.htm/, Retrieved Fri, 17 May 2024 15:12:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271185, Retrieved Fri, 17 May 2024 15:12:04 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact106
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [] [2013-11-04 07:18:26] [0307e7a6407eb638caabc417e3a6b260]
- RMPD  [Skewness and Kurtosis Test] [WS7 2] [2014-11-12 19:42:42] [81f624c2f0b20a2549c93e7c3dccf981]
- R  D      [Skewness and Kurtosis Test] [SK TE] [2014-12-18 17:55:58] [64070895b9a6ba473199a431c837c7d3] [Current]
Feedback Forum

Post a new message
Dataseries X:
2,30928
1,44306
3,30928
-2,55694
2,44306
-8,55694
1,30928
1,44306
0,443064
-1,55694
1,44306
-5,55694
-0,556936
0,30928
-0,69072
-4,24631
-0,556936
2,30928
-0,11253
-3,69072
-4,55694
2,44306
2,30928
-2,55694
4,44306
-11,5569
8,88747
0,753686
2,44306
-2,69072
-2,69072
0,30928
4,44306
-2,55694
2,44306
0,443064
-8,69072
-7,11253
1,44306
7,30928
2,44306
2,44306
3,44306
3,44306
-3,11253
4,30928
-5,55694
-2,11253
-2,69072
3,88747
1,88747
-4,11253
-1,55694
-0,11253
-2,55694
6,44306
1,75369
-7,55694
-11,2463
7,88747
7,44306
4,30928
2,30928
-1,55694
0,30928
-1,11253
-0,69072
-1,55694
-3,55694
-0,246314
6,30928
0,30928
2,75369
1,88747
-4,69072
7,44306
-2,69072
2,88747
1,30928
-7,24631
3,44306
2,75369
-7,24631
2,75369
-1,11253
-9,24631
1,88747
-4,11253
2,75369
4,75369
-1,24631
-0,11253
-1,11253
-1,11253
2,75369
-2,11253
0,753686
4,88747
1,88747
2,88747
-0,11253
-0,11253
-0,246314
-13,1125
-4,11253
-1,11253
-8,24631
-11,2463
-4,24631
-1,24631
-1,24631
-0,246314
-2,11253
2,44306
1,44306
0,443064
4,44306
10,7537
-4,11253
6,44306
4,30928
2,44306
-0,69072
-0,69072
2,44306
-1,55694
-5,55694
-0,556936
-4,55694
2,88747
4,44306
4,44306
0,30928
-1,55694
-4,55694
-1,55694
-1,55694
2,44306
0,443064
3,30928
-1,55694
-1,11253
-0,556936
-17,5569
2,44306
4,30928
1,30928
-5,55694
-2,69072
-11,6907
3,44306
-1,69072
3,44306
3,44306
0,30928
3,88747
-1,11253
7,44306
4,30928
7,75369
-1,24631
8,75369
-0,11253
0,30928
2,44306
7,75369
0,88747
8,75369
3,88747
1,75369
2,75369
6,88747
0,753686
7,88747
4,44306
4,44306
-1,11253
-0,556936
-2,69072
-1,11253
1,30928
3,75369
-1,24631
4,44306
-1,24631
-2,11253
5,75369
5,75369
5,75369
4,75369
-2,11253
4,88747
-11,1125
-4,11253
-6,24631
-2,24631
8,88747
6,30928
-15,2463
-3,24631
1,75369
2,44306
0,88747
-1,69072
0,753686
-0,556936
2,75369
-4,55694
1,88747
-19,2463
-3,11253
3,88747
2,44306
-6,69072
-1,24631
5,30928
-9,55694
-3,11253
2,44306
2,88747
9,75369
-0,69072
-4,24631
8,44306
-4,55694
0,30928
2,75369
-2,69072
1,88747
2,44306
0,30928
-14,6907
1,30928
2,88747
-0,556936
-16,5569
3,44306
2,75369
-4,55694
-17,5569
-6,11253
5,30928
-2,24631
-1,11253
7,75369
4,88747
1,88747
-1,69072
-0,556936
3,30928
-1,55694
3,44306
0,30928
1,88747
-4,24631
6,44306
6,75369
0,88747
3,30928
-1,24631
-6,11253
0,88747
7,75369
-11,1125
-1,11253
-2,24631
1,88747
-0,246314
-6,24631
5,88747
1,88747
-3,24631
3,88747
-17,2463
6,75369
-1,11253
4,30928
2,75369
2,88747




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271185&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'George Udny Yule' @ yule.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -1.0563, z = -4.0840, p-value = 4.427e-05
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 5.0248, z = 4.0757, p-value = 4.588e-05
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 99.5465, p-value < 2.2e-16
alternative hypothesis: greater
> geary
[1] 0.7385842

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -1.0563, z = -4.0840, p-value = 4.427e-05
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 5.0248, z = 4.0757, p-value = 4.588e-05
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 99.5465, p-value < 2.2e-16
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7385842
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=271185&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -1.0563, z = -4.0840, p-value = 4.427e-05
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 5.0248, z = 4.0757, p-value = 4.588e-05
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 99.5465, p-value < 2.2e-16
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7385842
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=271185&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271185&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 = -1.0563, z = -4.0840, p-value = 4.427e-05
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 5.0248, z = 4.0757, p-value = 4.588e-05
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 99.5465, p-value < 2.2e-16
alternative hypothesis: greater
> geary
[1] 0.7385842



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