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, 28 Nov 2012 05:17:04 -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/28/t1354097861sjnva73zb22qa40.htm/, Retrieved Tue, 16 Apr 2024 18:44:27 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=194104, Retrieved Tue, 16 Apr 2024 18:44:27 +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

119

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

-       [Skewness and Kurtosis Test] [S/K/N - test - MR] [2012-11-28 10:17:04] [64435dfec13c3cda39d1733fd4b6eb52] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-12680887552735.00
-840264700271269.00
-14715673652815.00
-134737445134088.00
-321558489895916.00
-49741213957414.00
-881355839828744.00
-846904098699172.00
-114649219135902.00
-156364783567842.00
-108126566789294.00
305306258751603.00
152771004483703.00
386284779923386.00
-60686357971692.00
-253816153169688.00
-291691339454685.00
924291560648886.00
171173979848139.00
219573982032771.00
203388465590252.00
13538612198438.00
123622951063472.00
25557105560206.00
190591931727137.00
658256161398678.00
577672871031933.00
-658878233498179.00
-0.621837872594722
-633631208460878.00
577821424564428.00
-11374116919818.00
548464657037024.00
-447876235080021.00
128751990680394.00
474920885761829.00
416947710178924.00
-701012162013339.00
-316294495056006.00
524504589375398.00
-118388503834381.00
359466597448785.00
933525656774188.00
790734812730107.00
-151731781009696.00
584388362682217.00
-720807557447392.00
986406130689028.00
12739556483387.00
-188132103627832.00
-388743749970956.00
-490551092029949.00
-121500125725083.00
-171440077234077.00
-317201363307651.00
-36166691146726.00
-341952876145317.00
-345646442706535.00
-474263952093036.00
143406937730788.00
-384409066394401.00
-150392193145671.00
-150385322672287.00
-536757683800812.00
369660842154957.00
-638160072615728.00
241111423583492.00
360041617985144.00
580202070323282.00
-197928928887295.00
-98945660014263.00
-912528062645424.00
559422776070702.00
-345811190113686.00
10509821741095.00
-106715131870618.00
166450882061717.00
-802334924165347.00
-567126051547433.00
154859393537863.00
144317911424124.00
-106024544877268.00
365956435293107.00
-207475242052648.00
-18441035063015.00
-479936345978577.00
63790596981476.00
-847646202771221.00
-282867310157428.00
-698009888879449.00
586094229668937.00
-859384409084922.00
39851149096803.00
436200777541166.00
-39303789549026.00
-272888027184667.00
521025086093708.00
-634698585757659.00
125043424652911.00
-313666909498944.00
12643480622186.00
-363230962593505.00
117164423492774.00
782872937942147.00
-677446952980938.00
-185214424436253.00
-367122512627499.00
157662531712066.00
-198519669953394.00
416263825530174.00
-0.173750331042818
-320835785841988.00
-316693920559257.00
275326756909892.00
102719757658242.00
-355957296726312.00
54681541584866.00
-615564115562869.00
217302029365275.00
-543049325006818.00
-11208524983599.00
-904345739204921.00
345048597486472.00
178290819014091.00
166354038481074.00
-884887537898897.00
412385521350101.00
162575465039248.00
843301730198412.00
-408892797423077.00
228611891385534.00
-115866232396596.00
-266064822799891.00
572306056496531.00
114607971813331.00
-331929824498633.00
175955459858633.00
396827280725319.00
-272100324759534.00
-630796281693284.00
417053963694008.00
12774738435087.00
109538409025592.00
-195515706031395.00

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	'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=194104&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=194104&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=194104&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	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = 0.0450, z = 0.1521, p-value = 0.8791 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.6002, z = -0.9876, p-value = 0.3233 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 1.0076, p-value = 0.6042 alternative hypothesis: greater
> geary [1] 0.8024693

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0450, z = 0.1521, p-value = 0.8791
alternative hypothesis: data have a skewness 
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.6002, z = -0.9876, p-value = 0.3233
alternative hypothesis: kurtosis is not equal to 3 
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.0076, p-value = 0.6042
alternative hypothesis: greater 
 \tabularnewline
> geary
[1] 0.8024693
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=194104&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0450, z = 0.1521, p-value = 0.8791
alternative hypothesis: data have a skewness 
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.6002, z = -0.9876, p-value = 0.3233
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.0076, p-value = 0.6042
alternative hypothesis: greater 
[/C][/ROW]
[ROW][C]> geary
[1] 0.8024693
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=194104&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=194104&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.0450, z = 0.1521, p-value = 0.8791 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.6002, z = -0.9876, p-value = 0.3233 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 1.0076, p-value = 0.6042 alternative hypothesis: greater
> geary [1] 0.8024693

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