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

Tue, 19 Dec 2017 20:48:39 +0100

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/2017/Dec/19/t15137129343v6p2z9xinec2ss.htm/, Retrieved Wed, 15 May 2024 17:49:19 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=310410, Retrieved Wed, 15 May 2024 17:49:19 +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] [Skewness and Kurt...] [2017-12-19 19:48:39] [cbdc27eb3c0ce1e50616f96e5af4492f] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-0.367681379438821
-0.982675009189625
0.461736608601953
0.110356411079305
0.880634789664286
-1.07901770299319
0.337846366617654
0.184613685444644
-0.0430196748710048
0.189589157767651
-0.418082477116686
0.22435094075853
0.216305573725047
0.866760066480486
-0.526703095019694
0.0519699174109175
0.748117871384502
-0.440929613539182
-0.925103870307775
1.18047894159078
-0.785827338364776
-0.156844550514545
-1.24191497242136
-0.495867561970204
0.689933148531823
0.516216770873805
-0.928476494527545
0.291241821734151
0.659631192747841
-0.420599221090862
0.993452492995499
0.162912536723515
-0.253212225051164
1.19082741415112
-0.567827945744613
-0.659024359899766
0.605200077378839
0.553686449743648
-0.146391366701988
0.489906855253442
-0.324235440280127
0.768209460213393
-0.343280439317291
-0.0233158831921649
0.756518114115643
-0.260146793967426
-0.260289552872651
-1.13286870970289
0.240110749680005
-0.314985280818227
-0.982429808218041
1.38012771419973
-0.603185220487887
-0.822445965049552
-0.0776807957741802
-0.382605670492436
0.258203029311264
-0.484677918052572
0.209848373151658
-0.403320794382607
-0.206011894972138
0.483970145640074
-0.608411443281677
-0.181611088327216
-1.02200329644411
0.0289681615353665
0.575132969190122
0.0942326147649756
0.16319213242849
-0.141195911041553
0.134879567297117
-0.229235744202593
0.113634688208385
-0.659720932900383
0.253005624183915
-1.29949625043305
-0.368029536865243
-0.899250915344137
-0.0935062622839783
0.525983172189495
0.123764152506956
0.173331337686216
-0.116142639540536
0.0429616199740723
0.974725687992026
-0.0998408222418784
-0.373420971053539
-0.0513423584743284
0.618624333103423
-0.202743475700424
-0.106066888728605
0.050993671696758
0.512974127796198
0.636076957367032
0.909308594134588
-0.288224110365441
1.26018767535973
0.0989901456170693
0.625669186510962
0.663258075147877
0.169395750032654
0.304016993564586
0.475940619339492
0.164279570770573
-1.01212241149792
-0.445428746856158
0.242513967897837
0.682090871801901
-1.0541038989507
0.718194394518511
-0.138400469490861
-0.167354283199731
1.2105244181081
-0.61188009658105
0.244073210629982
-0.458518224836547
1.36918056832878
0.382349308902754
-0.698731806837338
-0.0433369581532566
-1.02870029945265
-0.367111255017468
0.290762605255111
-0.221347642743516
0.0530768398164975
-0.97916866585148
0.92407202680997
-0.708946346928565
0.742011532761892
-0.635176056508554
-0.0626384528334733
0.897229601246957
-0.224308349624217
-1.09161366055888
0.288248530039123
0.0418840177769849
0.106839948939349
0.646350716291337
0.92751213629459
-0.323006758185988
-1.030892748043
0.220783671594843
-0.280273666660781

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	Big Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310410&T=0

[TABLE]
[ROW]

Summary of computational transaction[/C][/ROW] [ROW]

Raw Input[/C]

view raw input (R code) [/C][/ROW] [ROW]

Raw Output[/C]

view raw output of R engine [/C][/ROW] [ROW]

Computing time[/C]

1 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=310410&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=310410&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	Big Analytics Cloud Computing Center

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = 0.034557, z = 0.176570, p-value = 0.8598 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.4616, z = -1.5663, p-value = 0.1173 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 1.7558, p-value = 0.4156 alternative hypothesis: greater
> geary [1] 0.8116337

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 0.034557, z = 0.176570, p-value = 0.8598
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.4616, z = -1.5663, p-value = 0.1173
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.7558, p-value = 0.4156
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.8116337
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310410&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = 0.034557, z = 0.176570, p-value = 0.8598
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.4616, z = -1.5663, p-value = 0.1173
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.7558, p-value = 0.4156
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.8116337
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=310410&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=310410&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.034557, z = 0.176570, p-value = 0.8598 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.4616, z = -1.5663, p-value = 0.1173 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 1.7558, p-value = 0.4156 alternative hypothesis: greater
> geary [1] 0.8116337

Parameters (Session):

par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ; par4 = 0 ; par5 = 0 ; par6 = 12 ;

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