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

Sun, 14 Dec 2014 15:36:35 +0000

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/2014/Dec/14/t1418571440fbxbji0rsnv8bnv.htm/, Retrieved Thu, 16 May 2024 21:34:36 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267693, Retrieved Thu, 16 May 2024 21:34:36 +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)

-     [ARIMA Backward Selection] [Kul paper ARIMA 1...] [2014-12-14 13:13:27] [bb1b6762b7e5624d262776d3f7139d34]
- R P   [ARIMA Backward Selection] [KUL paper arima 2...] [2014-12-14 13:40:22] [bb1b6762b7e5624d262776d3f7139d34]
- RM D      [Skewness and Kurtosis Test] [Paper KUL arima s...] [2014-12-14 15:36:35] [8568a324fefbb8dbb43f697bfa8d1be6] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0.00599999294549127
-3.26059140944666
-1.8554939521073
2.40244281738836
2.34887668231647
0.17284778816687
-1.74126072821457
1.15384328081017
-2.96147899874101
1.22798959209503
1.6146723771924
-0.99043281341636
-2.77286339444579
2.80974825568738
3.14858955292989
0.860015402371987
-0.257501303982202
2.84395640822426
-0.666254517138174
-1.07896935443631
-1.61990821991661
0.155994051941703
0.109878583294601
1.33925178884253
-1.76540588247557
-3.6789782609636
1.2136306869203
2.16831659053481
0.453278545446261
1.49984415197301
0.936320781914437
-3.14799137531513
1.64687579170979
0.533370855588986
-3.21203924491963
0.925986234819627
2.04347386260564
1.99707038202554
-0.236845142468601
3.32009190965822
2.02600625822672
-1.8259583023544
3.36634993038388
-1.88980767269334
0.760686354372059
1.78970304663664
1.27297760305077
0.383230853544645
-3.93332496634845
-4.68696292542965
0.652102030014784
-0.115044679339133
1.55214813958812
-4.42861679473664
0.0369522856692091
-2.45752058376992
-1.6020587912405
1.42753730336211
3.24027024673501
-3.19401513278169
0.843020581981803
-0.874921822538259
-1.09949010664114
3.56170950857324
0.817364165480193
-3.60807829555329
3.17223529346543
3.90729636413159
3.55562497341894
1.25537054951782
2.01943215744464
0.904020761868422
2.81329308514613
-2.26839057985858
-0.280773047695575
1.60618774436929
-1.04190976466101
2.65024639666727
0.659424915352483
0.0143987230550572
1.07205574047221
-0.036343497810658
-0.0559763716882332
-0.861669145212708
2.65797614274254
-4.1768879446761
1.09210911195023
-0.586174069926595
1.28154951300732
-0.780197074513844
1.81637338046044
-1.32922490136355
1.74945509220759
1.225572476038
1.31615820072285
1.30773803962177
-0.190476730598592
2.01689549640786
0.445890939667268
1.60471323743042
-1.51180985465013
0.347252916245613
-0.0578887740173354
-1.08494639573777
-0.406092735075476
-0.374934141665445
1.3525843257869
-1.82780562290739
-0.714092170709986
2.07039989630083
-3.99349472615825
-0.807770436809484
-0.54905746486024
0.931501743008275
-2.9305514621219
1.35385757503652
2.56033189914214
0.261733049718136
-2.14049096739386
-2.20389791055754
1.45087519904059
1.10382063987062
0.0649337919569947
0.253016276506387
-1.50700522536091
1.2386554948702
1.93113735587968
-0.589220632044815
-0.791845596881462
-0.633821310997437
2.34933294471603
2.00198605609999
-0.429603095705463
-2.78611067565432
-2.40339007752651
-5.64689986509276
-1.56842131972011
-0.490338797954969
-1.05130086316824
1.87801379646207
0.375337615326516
1.59310220184278
-0.634567964768352
-1.05259123717013
-2.12807273200918
2.78560818930159
-1.07219932750369
-2.72405534367358
-4.23556266754683
1.32505901208147
-0.680727276469549
2.30887032670966
1.8558940305688
3.22771901085703
0.368814840420639
-0.137789887146892
1.70490440595534

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	'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267693&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267693&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267693&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	'Herman Ole Andreas Wold' @ wold.wessa.net

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.4719, z = -1.5879, p-value = 0.1123 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.7128, z = -0.6233, p-value = 0.5331 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 6.3671, p-value = 0.04144 alternative hypothesis: greater
> geary [1] 0.8148204

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4719, z = -1.5879, p-value = 0.1123
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7128, z = -0.6233, p-value = 0.5331
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3671, p-value = 0.04144
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.8148204
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267693&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = -0.4719, z = -1.5879, p-value = 0.1123
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7128, z = -0.6233, p-value = 0.5331
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3671, p-value = 0.04144
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.8148204
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267693&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267693&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.4719, z = -1.5879, p-value = 0.1123 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.7128, z = -0.6233, p-value = 0.5331 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 6.3671, p-value = 0.04144 alternative hypothesis: greater
> geary [1] 0.8148204

Parameters (Session):

par1 = TRUE ; par2 = 1 ; par3 = 1 ; par4 = 0 ; par5 = 1 ; par6 = 3 ; par7 = 1 ; par8 = 0 ; par9 = 0 ;

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