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 computationTue, 16 Dec 2014 12:17:45 +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/16/t1418732286l3d42sql8lo2xid.htm/, Retrieved Thu, 31 Oct 2024 22:59:52 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=269400, Retrieved Thu, 31 Oct 2024 22:59:52 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact84
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bootstrap Plot - Central Tendency] [] [2014-11-04 10:49:59] [32b17a345b130fdf5cc88718ed94a974]
- RMPD    [Skewness and Kurtosis Test] [] [2014-12-16 12:17:45] [6260c34aa94cecca073345f42e0d4b5d] [Current]
Feedback Forum

Post a new message
Dataseries X:
2.25946
-2.4719
1.0096
1.1682
-4.54351
-4.03988
-1.05197
2.94151
0.839146
-0.818886
-4.47846
-0.689097
-6.24587
-0.212901
-0.834214
-2.20756
-0.336908
-0.669597
-2.02579
-2.47327
-1.24672
-4.55276
0.998092
-0.934858
2.5371
-0.0840563
-2.30537
1.75493
1.79652
-0.751125
0.129225
-3.17135
-0.542086
-4.67574
-2.11485
-3.88572
-1.41426
-1.61835
-0.613347
0.202532
-2.56552
-1.5806
-4.71864
-1.40297
1.60248
-0.545481
0.93428
-1.20464
-0.401875
-4.06093
3.01699
0.925343
-0.534208
-4.64289
-1.05607
0.841487
0.657871
-1.93779
-5.28081
3.04322
-1.15378
1.93421
-2.04005
1.13715
-3.46275
3.1131
-1.04562
-1.57361
-2.10828
0.823078
2.15968
0.982356
-0.726749
0.459096
-1.97448
2.52637
-4.27908
0.556427
0.36687
1.38465
0.139278
-1.89718
-3.72971
-0.818728
2.80049
-1.17996
-4.56877
-1.29112
0.186616
0.0905103
-0.593428
-2.06402
2.69461
2.07121
-5.05805
-0.507041
-2.71798
-4.04158
-1.06689
-3.14575
0.403755
2.57203
-3.65876
-0.333248
-0.982184
-1.76283
-1.72066
2.45102
-2.10343
2.16465
-4.98633
-4.04919
-1.2212
0.705405
0.816111
-3.92003
0.985431
2.02149
2.34984
0.516746
2.70065
-3.2169
2.78958
-1.95866
3.3264
0.177203
3.84087
-3.39463
-0.727631
0.678622
-2.88851
1.52862
1.62631
1.51167
-1.20723
2.00593
0.111595
0.873263
-1.5213
3.33029
-3.89686
0.213474
-1.29139
1.01071
3.83997
-0.113568
0.856642
1.53564
1.33266
1.91082
-0.556325
-0.519977
0.501029
-4.03663
1.23235
-5.10255
1.74465
1.51943
0.0415863
2.66056
0.537691
2.29986
1.81944
-1.38306
-0.500521
4.50221
-0.816057
1.23407
4.084
3.85224
1.06277
1.67408
3.73391
-0.331011
-2.13973
0.422269
3.71577
1.25894
0.217204
0.217204
2.96754
-0.61916
1.87533
1.12591
-3.24706
-0.855504
0.120107
1.56581
0.210322
-1.8176
1.31773
4.24625
-0.198131
1.94459
0.0775331
0.795724
2.01158
-1.31939
3.18276
2.04813
0.97288
-2.86957
-0.406382
3.2089
2.0093
2.04374
2.01552
-0.129218
0.425382
-1.04075
3.64765
-2.49794
2.95705
0.430449
1.25028
1.04567
2.61759
1.14933
-2.54112
-1.83724
-0.469881
-0.992767
2.26391
1.35322
2.55145
1.31937
-0.18007
0.585726
-2.99074
0.530619
1.33458
2.68526
2.57037
1.6605
3.49243
2.6098
2.23239
3.22863
1.17567
1.87583
-1.28738
-0.994567
-5.12761
1.24849
-3.1025
-1.35107
-0.394909
-1.43811
-3.19345
2.66229
3.85224
3.09741
0.482139
0.274379
0.779264
-0.638856
-0.597312
-0.713575
-1.57311
-2.30095
1.59155
1.96161
-1.18665
1.36829
-1.80106
-6.39785
1.29748
-4.71047
1.06277
1.73626
-1.40752
2.66229
1.24021
0.831368
1.24591
1.8308
3.79902
1.4701
4.22159
0.67848
0.958519
1.5856
1.92752
1.67587
2.23905
-0.558394




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=269400&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=269400&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269400&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.4558, z = -2.0343, p-value = 0.04192
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6889, z = -1.0960, p-value = 0.2731
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.057, p-value = 0.003972
alternative hypothesis: greater
> geary
[1] 0.8164019

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4558, z = -2.0343, p-value = 0.04192
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6889, z = -1.0960, p-value = 0.2731
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.057, p-value = 0.003972
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8164019
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=269400&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4558, z = -2.0343, p-value = 0.04192
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6889, z = -1.0960, p-value = 0.2731
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.057, p-value = 0.003972
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8164019
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=269400&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269400&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.4558, z = -2.0343, p-value = 0.04192
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6889, z = -1.0960, p-value = 0.2731
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 11.057, p-value = 0.003972
alternative hypothesis: greater
> geary
[1] 0.8164019



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')