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 computationThu, 18 Dec 2014 13:41:34 +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/18/t14189101437b0qt30vrtxjfl3.htm/, Retrieved Fri, 17 May 2024 10:59:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270924, Retrieved Fri, 17 May 2024 10:59:57 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact110
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [skewness/kurtosis] [2014-12-18 13:41:34] [4ef225fc18141585eae8c9bb346ec5b3] [Current]
Feedback Forum

Post a new message
Dataseries X:
-2.14515
-0.17999
-2.2277
-5.68656
-6.65792
-1.7522
0.620617
0.81574
-2.05797
-7.18163
-2.32639
-6.86419
-0.455205
-2.87781
-4.10389
-1.31536
-1.71304
-4.16926
-4.05719
-2.06724
-6.73679
0.520881
-5.71065
0.728072
-1.75481
-3.6709
1.62899
-0.339975
-3.50546
-2.24161
-3.57646
-3.15002
-3.67191
-3.46625
-1.05496
-1.01418
-2.00426
-0.415954
-4.86109
-2.04934
-7.05782
-1.90886
-0.917329
-2.53207
1.19246
-3.54097
-0.218534
-3.98702
1.46301
0.0210323
-0.885802
-3.64782
-2.57637
-2.17014
0.313806
-2.3135
-8.24556
2.52083
-2.5845
-0.0988304
-5.14088
-1.71959
-3.82733
0.918215
-6.06136
-2.05705
-3.48226
-2.16245
0.784914
-1.52223
-3.91693
-2.16037
-4.10026
2.05091
0.893566
-1.2333
-0.366979
-1.4961
-1.95925
-4.46147
-3.05311
0.677315
-2.27435
-7.46856
-3.69146
-1.30283
-0.5329
-0.324158
-4.5727
-0.394187
1.01459
-6.73449
-4.10968
-4.56757
-4.65397
-5.1299
-6.43311
-0.640585
1.81695
-3.81284
-0.892133
-2.87013
-1.7351
-3.47864
2.32366
-4.68123
1.21696
-7.55566
-5.29067
-3.54429
-2.32801
-0.178471
-7.1393
1.68418
4.87419
4.18968
1.61767
0.958526
1.49691
4.02015
2.35783
1.82796
3.84816
4.85714
-1.14278
0.78681
3.22024
1.5267
5.31534
1.54939
1.5817
1.5719
3.34935
3.18418
1.24534
1.07342
4.29062
-1.51913
4.29526
2.83089
0.93487
4.31033
3.9084
5.4538
1.72709
2.52994
0.679377
1.03357
1.49974
3.77213
-3.85658
3.00414
4.06074
1.58636
2.23058
1.12638
3.80154
2.36825
-0.553224
-1.14317
3.32238
3.65048
1.80259
6.1397
3.56342
0.0810634
4.03983
2.42756
1.15298
-1.87314
2.63145
3.97664
0.74933
0.906063
1.03019
5.40331
0.411451
5.20059
1.28367
-2.48436
-0.11467
0.127879
5.47672
1.87469
-0.726652
1.558
3.28635
-0.870923
-1.85675
1.64212
-1.55342
4.00297
-2.00645
4.84523
0.931918
1.21077
0.397522
1.90929
2.52681
1.90493
1.14857
0.96527
-0.0323871
1.6497
1.78742
2.10106
0.0643305
0.670104
7.8719
5.89553
-0.202312
1.66838
-0.0633304
2.08815
2.32315
0.98631
3.44281
3.82697
-0.264347
0.949137
4.47686
-3.73524
-0.991272
4.18039
4.67455
3.22004
3.1489
3.61309
5.7724
4.88378
5.14093
4.91584
1.23105
-0.513155
-1.18458
-6.55023
0.803332
1.74085
0.475381
0.497297
-0.172208
-0.0125389
2.14525
4.31143
-1.16023
2.33592
2.03242
1.91263
2.48066
0.897917
-0.978888
-0.0233603
2.22724
2.21999
-0.495928
2.34962
-3.46639
-4.23981
0.115974
-5.04262
-1.04565
-0.561743
-2.15611
2.2202
3.13037
1.38815
0.379521
3.06193
3.1776
-0.64921
2.03112
-0.00419938
3.55578
3.38404
2.38812
0.1691
3.01182
-1.65817




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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=270924&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=270924&T=0

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3334, z = -1.4967, p-value = 0.1345
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6824, z = -1.1075, p-value = 0.2681
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3187, p-value = 0.04245
alternative hypothesis: greater
> geary
[1] 0.8101972

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3334, z = -1.4967, p-value = 0.1345
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6824, z = -1.1075, p-value = 0.2681
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3187, p-value = 0.04245
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8101972
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=270924&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3334, z = -1.4967, p-value = 0.1345
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6824, z = -1.1075, p-value = 0.2681
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3187, p-value = 0.04245
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8101972
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=270924&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270924&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.3334, z = -1.4967, p-value = 0.1345
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6824, z = -1.1075, p-value = 0.2681
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3187, p-value = 0.04245
alternative hypothesis: greater
> geary
[1] 0.8101972



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