Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_skewness_kurtosis.wasp
Title produced by softwareSkewness and Kurtosis Test
Date of computationSun, 14 Dec 2014 23:25:23 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/14/t14185996294e6kb90g23rdx6c.htm/, Retrieved Thu, 16 May 2024 08:37:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267931, Retrieved Thu, 16 May 2024 08:37:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact129
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Classical Decomposition] [KUL paper CD vrou...] [2014-12-14 20:44:21] [bb1b6762b7e5624d262776d3f7139d34]
- RMPD  [Spectral Analysis] [KUl paper SP vrou...] [2014-12-14 20:50:58] [bb1b6762b7e5624d262776d3f7139d34]
- R       [Spectral Analysis] [KUL paper vrouw s...] [2014-12-14 20:52:17] [bb1b6762b7e5624d262776d3f7139d34]
- R P       [Spectral Analysis] [KUl paper SP vrou...] [2014-12-14 21:20:19] [bb1b6762b7e5624d262776d3f7139d34]
- RMP         [Classical Decomposition] [KUl paper CD test ] [2014-12-14 21:36:33] [bb1b6762b7e5624d262776d3f7139d34]
- RM            [Exponential Smoothing] [Kul paper ES2 vrouw] [2014-12-14 21:52:03] [bb1b6762b7e5624d262776d3f7139d34]
- RM              [ARIMA Backward Selection] [Kul paper ARIMA 1...] [2014-12-14 22:30:59] [bb1b6762b7e5624d262776d3f7139d34]
- R  D              [ARIMA Backward Selection] [Kul paper ARIMA 1...] [2014-12-14 22:36:50] [bb1b6762b7e5624d262776d3f7139d34]
- RM D                  [Skewness and Kurtosis Test] [Paper KUL arima s...] [2014-12-14 23:25:23] [8568a324fefbb8dbb43f697bfa8d1be6] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.0074999939633729
-0.788162845434452
1.36921238803592
-2.44440012371576
-3.87934881076205
-0.454638919673432
-2.10177476753489
-1.1179778407254
-0.51690155982826
1.96788412210865
-0.0538864374569618
-2.85845845877005
0.812030276143277
-0.614645265408112
0.0681609210940233
-0.493957983184115
2.61277699266785
-5.51101497791405
-0.54621278743086
1.62494785847657
-3.33506167908514
-0.455729266482356
-0.126495479714811
1.83145319148268
0.401719890008056
0.967310559260421
-1.19733324083486
2.15999174197163
1.58228305972343
1.90355102552731
-1.86667925956833
-0.766741041594399
2.76398582113216
-0.937015355769794
-1.49759633289034
-0.21748837009058
-2.30416170184831
3.1780566924974
-2.23641348783318
-0.983698966535378
0.0715833366323024
-2.04771310772166
2.90560120377547
-4.92251504232229
-2.58890763321805
0.0917121399456014
1.80327613991311
4.37750656545849
5.05030069977056
2.81410953980824
3.16372314607004
1.25145074008329
2.77722757493402
1.29728883932956
2.26228022768578
-0.103988028064981
-1.36978989552829
-4.54851434016825
2.85357818247057
2.30884534719498
0.492946824477622
-0.895767396966352
3.87207006735001
0.43499659329225
3.16405268015515
1.52927028069864
-0.531889042346813
-2.74945318632921
2.83859071191047
1.96240419846828
-5.25882050892232
-0.887322740285795
-0.121006306450769
-0.218602676855783
0.806040724624431
2.6039369665794
-2.41208387621452
-1.13959693500405
2.43325271422725
0.269616971619265
-2.09392096046021
-0.0797761795481566
1.76236072002153
0.341212010591421
-1.58601573211494
0.815253345961203
1.50087344992767
1.7204401778859
-3.02912637980946
-0.187079329482724
0.611535217661274
0.431358358338211
0.882730693463356
-4.27239963679215
3.76542223936951
0.562277492000092
0.22136630181372
1.75203014713318
0.887664814469508
1.84321584435933
-1.9758101911222
-1.86374262162956
-3.59802136770508
3.53006407719134
0.409070398608391
-0.914569529648669
-2.64461236930982
1.37599387104545
1.83154448123423
-6.48616582424149
-0.365070043186875
0.675515682566506
1.93250741548648
1.04779661382094
-0.514704250524594
2.2101755063076
0.182925179677743
1.82916014046863
-0.0439001702433057
1.1279051472575




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.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 Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267931&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 Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267931&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267931&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5049, z = -1.4960, p-value = 0.1347
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1966, z = 0.7328, p-value = 0.4637
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.2916, p-value = 0.07095
alternative hypothesis: greater
> geary
[1] 0.7843272

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5049, z = -1.4960, p-value = 0.1347
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1966, z = 0.7328, p-value = 0.4637
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.2916, p-value = 0.07095
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7843272
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=267931&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5049, z = -1.4960, p-value = 0.1347
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1966, z = 0.7328, p-value = 0.4637
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.2916, p-value = 0.07095
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7843272
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=267931&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267931&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.5049, z = -1.4960, p-value = 0.1347
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1966, z = 0.7328, p-value = 0.4637
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.2916, p-value = 0.07095
alternative hypothesis: greater
> geary
[1] 0.7843272



Parameters (Session):
par1 = additive ; par2 = 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')