Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_skewness_kurtosis.wasp

Title produced by software

Skewness and Kurtosis Test

Date of computation

Wed, 07 Nov 2012 14:58:08 -0500

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Nov/07/t13523187324td27f7e6a9gcaa.htm/, Retrieved Thu, 02 May 2024 16:38:34 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=186563, Retrieved Thu, 02 May 2024 16:38:34 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

143

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Skewness and Kurtosis Test] [skewness] [2012-11-07 19:58:08] [18a55f974a2e8651a7d8da0218fcbdb6] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1.92284E+14
0.294968105108048
1.78239E+14
-0.528798764064595
1.59413E+14
-0.196626857213022
1.19552E+14
-0.343002706267642
1.73589E+14
1.01936E+13
0.28816784391097
1.87035E+13
-2.17629E+14
1.49386E+14
0.705690234613127
1.38602E+12
-0.188363719706505
-0.600200249281295
0.621081671147038
2.11888E+14
-2.79671E+14
0.619689462303168
1.07916E+14
0.688931397470784
0.642078237951686
0.52715673744495
0.396216093677352
-0.196870914178259
0.9237715805306
0.855401279565833
-0.546804809246844
-0.0467702322549522
0.511255493521058
0.477182306170213
0.915556992353865
-0.207663388072362
1.39616E+14
1.65056E+14
1.24106E+14
-0.881504285911194
1.20373E+14
0.486013703944818
0.793404200164013
-0.297789393243881
1.61872E+14
-0.967257793234837
-0.274128089477851
-1.05903E+14
0.137679744119193
-0.501359286301505
0.418785783593874
-0.46418749162396
-1.29617E+14
-0.565384658859462
0.824301986122837
-1.1101E+14
-0.666816231688351
-1.27883E+13
-0.561031099211263
0.174188939944474
-0.183314075737355
-0.605559659276489
0.199483736353345
0.182708481448122
0.00144146835580372
0.647464216712559
0.515699137182352
-0.172568857905004
-0.0986142887686041
0.028482422106917
-0.347520985050124
1.01558E+14
-0.245459859226715
0.686778061693284
0.721738783172442
0.501448621915213
0.167888170121379
0.560443857558282
0.914805502891852
-0.300170234787728
-0.156479504188136
-0.238924247021377
-1.41212E+14
-0.977918973427019
-0.318673106970024
-1.47856E+14
-1.29104E+14
-1.17931E+14
0.0711665392585377
-0.870874992386959
-0.104474686776165
0.266716692799392
-0.730038395664851
-0.669046312119896
-0.187898940786524
-0.672758164365316
-0.212576909938501
-0.177544090585276
-0.414501751114827
0.0118917040126762
-0.037614098283186
0.00747245355275739
0.117839244240899
-0.165968667829519
-0.0237089105446586
-0.0728407441072881
-0.542072843201889
-0.88013679694143
-0.971984149139327
-0.93907788717381
-0.869375855302048
-0.875946768080893
-0.800075319282285
-0.921697611581262
-0.875293263226346
-0.859185436495526
-0.873284686316112
-0.844085887484423
-0.879198101801539

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ jenkins.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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=186563&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=186563&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=186563&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 Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ jenkins.wessa.net

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.0854, z = -0.2640, p-value = 0.7918 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 7.2221, z = 4.2687, p-value = 1.966e-05 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 88.5329, p-value < 2.2e-16 alternative hypothesis: greater
> geary [1] 0.4961564

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

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x 
skew = -0.0854, z = -0.2640, p-value = 0.7918
alternative hypothesis: data have a skewness 
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 7.2221, z = 4.2687, p-value = 1.966e-05
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 88.5329, p-value < 2.2e-16
alternative hypothesis: greater 
[/C][/ROW]
[ROW][C]> geary
[1] 0.4961564
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=186563&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=186563&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.0854, z = -0.2640, p-value = 0.7918 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 7.2221, z = 4.2687, p-value = 1.966e-05 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 88.5329, p-value < 2.2e-16 alternative hypothesis: greater
> geary [1] 0.4961564

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code