FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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, 14 Dec 2014 16:36:44 +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/14/t14185750124bl9d0nq8ndyhxg.htm/, Retrieved Thu, 16 May 2024 18:23:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267747, Retrieved Thu, 16 May 2024 18:23:42 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact99

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-14 16:36:44] [6baf0af87d9d8aa2cb91b54f39a0a5b0] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
3,83153
1,30988
4,15186
-2,65066
2,18707
-8,70896
0,854392
1,16863
0,106181
-3,43842
1,71521
-7,0421
0,162579
1,51586
-1,42932
-2,89147
0,605598
2,77178
-0,778547
-2,58998
-4,41888
2,32145
2,48838
-1,22904
2,58894
-11,1944
8,0432
1,43691
2,13627
-1,5344
-1,33941
0,225202
4,64767
-0,962516
2,69568
-0,499837
-8,80082
-6,67939
0,647314
7,67696
2,82322
2,33536
1,69396
4,75104
-2,1151
3,6966
-5,6934
-1,64651
-2,04968
4,57737
2,62112
-4,71926
-1,35669
-0,108081
-2,97543
6,8045
2,21522
-6,25105
-9,34299
8,47475
6,68614
5,25001
3,45897
-1,51428
-0,420652
0,327611
0,0425119
-2,22
-3,52356
1,58122
6,296
1,35176
2,86244
1,89566
-3,3765
6,80402
-2,03122
4,5379
1,11119
-5,94951
3,56941
4,13092
-6,00336
4,22836
-0,907153
-9,03312
1,59129
-4,15646
3,6512
6,23553
0,827701
-1,17713
-0,0032585
-0,959235
4,35348
-1,5742
1,50212
5,1171
3,18654
5,0353
0,524116
-0,0293426
0,63806
-10,3023
-3,35422
-0,889459
-7,92905
-10,6058
-2,9024
-0,625512
-0,162412
0,63146
-0,613163

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267747&T=0

As an alternative you can also use a QR Code:  
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'Gertrude Mary Cox' @ cox.wessa.net






Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.550, z = -1.574, p-value = 0.1155
alternative hypothesis: data have a skewness

> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1681, z = 0.6716, p-value = 0.5019
alternative hypothesis: kurtosis is not equal to 3

> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.8296, p-value = 0.05421
alternative hypothesis: greater

> geary
[1] 0.7718913


\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline

> agostino
	D'Agostino skewness test
data:  x
skew = -0.550, z = -1.574, p-value = 0.1155
alternative hypothesis: data have a skewness

 \tabularnewline

> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1681, z = 0.6716, p-value = 0.5019
alternative hypothesis: kurtosis is not equal to 3

 \tabularnewline

> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.8296, p-value = 0.05421
alternative hypothesis: greater

 \tabularnewline

> geary
[1] 0.7718913

 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267747&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.550, z = -1.574, p-value = 0.1155
alternative hypothesis: data have a skewness

[/C][/ROW]
[ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1681, z = 0.6716, p-value = 0.5019
alternative hypothesis: kurtosis is not equal to 3

[/C][/ROW]
[ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.8296, p-value = 0.05421
alternative hypothesis: greater

[/C][/ROW]
[ROW][C]
> geary
[1] 0.7718913

[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267747&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267747&T=1

As an alternative you can also use a QR Code:  
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.550, z = -1.574, p-value = 0.1155
alternative hypothesis: data have a skewness

> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1681, z = 0.6716, p-value = 0.5019
alternative hypothesis: kurtosis is not equal to 3

> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.8296, p-value = 0.05421
alternative hypothesis: greater

> geary
[1] 0.7718913


Figures (Output of Computation)

Input Parameters & R Code

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