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

Mon, 12 Nov 2012 15:25:27 -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/12/t1352751945pkztliavnji379p.htm/, Retrieved Sun, 28 Apr 2024 19:30:28 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=188377, Retrieved Sun, 28 Apr 2024 19:30:28 +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

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

-       [Skewness and Kurtosis Test] [moving averages ] [2012-11-12 20:25:27] [18a55f974a2e8651a7d8da0218fcbdb6] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

NA
NA
NA
NA
NA
-3,27408E+13
-0.141508838383838
2,30546E+14
4,5441E+14
0.839551767676767
-2,83848E+14
-1,09976E+14
-1,36226E+14
-3,29302E+14
2,32819E+14
4,26379E+14
5,59448E+14
2,51758E+14
3,10849E+14
0.680460858585858
0.710763888888888
-0.952114898989899
0.286521464646464
3,08576E+14
4,12743E+14
1,04031E+14
-0.796811868686872
-4,36121E+14
-8,69719E+14
-1,69075E+14
1,52516E+14
-0.319539141414142
-2,9559E+14
-2,28545E+14
2,41152E+14
-6,99757E+14
2,75243E+14
2,29031E+14
2,74485E+13
3,59713E+14
1,34448E+14
-0.73241792929293
-2,43318E+13
2,76379E+14
-0.414236111111111
1,21455E+14
1,07819E+14
-1,41424E+14
-0.997569444444444
0.748642676767678
-0.255145202020202
2,97213E+14
5,05281E+14
2,05925E+14
-3,14151E+14
-3,94454E+14
-3,49757E+14
-3,32711E+13
-7,42181E+14
0.169097222222223
0.0857638888888896
3,58198E+14
5,07819E+14
2,97213E+14
-0.613857323232323
-1,10742E+14
-3,30818E+13
-0.444539141414142
0.377430555555554
-0.327114898989899
-0.796811868686869
4,2941E+14
3,87743E+14
-5,50136E+14
-0.421811868686869
1,13879E+14
-0.613857323232323
1,93425E+14
3,06682E+14
1,43046E+14
0.169097222222222
-1,03545E+14
-0.963478535353536
2,00243E+14
-2,99757E+14
2,04031E+14
-0.713478535353534
2,76379E+14
3,67781E+14
0.0592487373737374
-0.0581755050505048
-1,44454E+14
-1,28924E+14
1,58955E+14
5,16152E+14
0.169097222222224
-2,62257E+14
-4,83469E+14
-1,13015E+13
-5,36121E+14
-5,03052E+14
-3,73242E+14
-0.808175505050507
-1,56954E+14
-0.497569444444444
4,33955E+14
3,32819E+14
2,7941E+14
5,12743E+14
-0.418023989898991
-2,96348E+14
-4,06954E+14
-2,40552E+14
1,30925E+14
-3,89151E+14
-1,69454E+14
-0.0392361111111121
1,21455E+14
-0.088478535353536
2,6691E+14
4,96076E+14
2,20698E+14
-0.921811868686869
2,76379E+14
0.427809343434343
1,26758E+14
4,69182E+14
0.847127525252525
1,50243E+14
-2,66045E+14
-1,54681E+14
2,83576E+14
-2,0809E+14
0.748642676767679
-4,33848E+14
-8,06954E+14
NA
NA
NA
NA
NA
NA

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	'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 & 1 seconds \tabularnewline
R Server & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=188377&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=188377&T=0

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

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.5633, z = -1.7179, p-value = 0.08581 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.4242, z = 1.1843, p-value = 0.2363 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = NA, p-value = NA alternative hypothesis: greater
> geary [1] NA

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.5633, z = -1.7179, p-value = 0.08581
alternative hypothesis: data have a skewness 
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4242, z = 1.1843, p-value = 0.2363
alternative hypothesis: kurtosis is not equal to 3 
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = NA, p-value = NA
alternative hypothesis: greater 
 \tabularnewline
> geary
[1] NA
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=188377&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x 
skew = -0.5633, z = -1.7179, p-value = 0.08581
alternative hypothesis: data have a skewness 
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4242, z = 1.1843, p-value = 0.2363
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x 
JB = NA, p-value = NA
alternative hypothesis: greater 
[/C][/ROW]
[ROW][C]> geary
[1] NA
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=188377&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=188377&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.5633, z = -1.7179, p-value = 0.08581 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.4242, z = 1.1843, p-value = 0.2363 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = NA, p-value = NA alternative hypothesis: greater
> geary [1] NA

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