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, 30 Aug 2015 16:40:53 +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/2015/Aug/30/t144094926065t9tswi0ecz8v7.htm/, Retrieved Thu, 16 May 2024 12:03:19 +0000

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

113

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Skewness and Kurtosis Test] [tis nickske] [2014-12-11 13:31:07] [69bf0eb8b9b38defaaf4848d8c317571]
- R PD    [Skewness and Kurtosis Test] [Thomas boxplot st...] [2015-08-30 15:40:53] [98d5d60fbe7cdd1cc5f92fd2f560c762] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0.889865
-0.0608734
-0.0656442
-5.07813
-5.61539
-0.417217
2.9956
-0.52726
-0.879747
-5.52721
-0.807842
-5.76158
-0.214476
-1.05183
-3.40399
-0.743252
-0.483007
-2.43465
-3.46088
-1.67262
-5.91779
0.322861
-1.45795
1.65538
-0.56117
-1.96617
1.67326
0.596322
-2.10523
-0.214013
-2.96249
-1.08875
-2.15071
-3.4727
-1.21363
-1.93006
-1.62636
-0.153862
-4.02046
-0.58875
-6.68492
-1.6194
0.326508
-0.245051
0.169832
-1.63151
-1.08882
-5.06535
1.76226
-0.384437
-0.53627
-5.22439
-1.46345
0.61594
0.4421
-1.73974
-5.55804
2.42524
-2.66266
1.15131
-3.03693
-0.00828202
-3.92676
2.69691
-2.8168
-2.87851
-1.64197
0.142332
1.37357
-0.147029
-1.29498
-0.53339
-2.90092
0.916424
0.997905
0.497427
-0.0158443
0.653332
-2.17105
-4.31507
-2.14052
1.64295
-1.52858
-5.65985
-3.03881
-0.728238
-1.19801
-1.25452
-3.47496
1.63895
0.769952
-5.94941
-1.56472
-2.95259
-4.93231
-2.32358
-3.61745
-0.629054
2.00432
-4.86937
-0.830953
-1.11372
-2.91175
-3.07162
1.7194
-3.85391
0.257269
-5.99137
-5.11031
-3.00746
-0.573882
-0.596694
-6.32301
1.28668
2.90925
3.71528
1.64966
0.421539
1.06763
3.61151
0.942596
2.20058
1.92387
3.76731
-2.11495
-0.00351543
1.86972
-0.670348
3.46864
1.22923
0.887831
1.58118
1.91173
1.09246
0.523505
-0.1317
3.80639
-3.68421
3.01263
0.650084
-0.279248
2.27472
0.181335
3.20248
1.52761
2.06222
-1.78786
-1.36401
-0.898378
2.34327
-3.92074
1.95081
2.47834
2.3033
2.43282
0.703057
3.43546
2.7737
0.700258
-0.12604
4.26143
2.42152
1.45916
3.44585
3.32074
0.731194
3.56399
2.15051
0.811004
-0.8617
1.99524
3.61649
1.11346
0.849329
1.04635
3.78057
-0.692104
4.04968
0.760115
-2.73613
-0.659435
0.529776
3.43762
1.05817
-2.39224
1.59287
3.63289
-0.696408
-0.30335
0.552116
0.244913
2.94432
-2.71559
3.40572
1.34227
1.54176
-0.296842
1.05489
2.70072
1.80087
2.12442
1.06617
-0.162667
2.09285
-0.290598
3.20582
-1.71319
1.57187
0.829476
2.58445
1.24246
1.15767
-0.659086
1.25346
2.16895
-1.2119
2.23352
0.173748
1.07632
1.83328
3.03703
-1.74205
-0.0651386
0.72978
4.81576
2.26384
1.67372
4.14923
4.10813
3.33077
2.53045
3.39931
1.97655
-1.34204
-1.91839
-5.93366
0.596203
-1.33921
-1.97604
-0.782601
-0.345149
-1.09319
1.68559
4.32245
1.98492
2.41261
2.22612
-0.76105
0.971801
-1.29065
-2.34053
-1.30194
2.92072
2.69951
-0.920532
3.24092
-2.40969
-4.02086
0.122002
-6.08141
-0.281967
1.90902
-1.99571
1.70433
2.84714
0.885019
1.64637
1.6974
3.23721
0.399771
3.87992
0.279359
2.18153
3.49422
1.73485
1.4068
3.23121
-1.00947

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=280367&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.5461, z = -2.3646, p-value = 0.01805 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.8330, z = -0.4296, p-value = 0.6675 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 14.1384, p-value = 0.0008509 alternative hypothesis: greater
> geary [1] 0.8046239

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5461, z = -2.3646, p-value = 0.01805
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.8330, z = -0.4296, p-value = 0.6675
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 14.1384, p-value = 0.0008509
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.8046239
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280367&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = -0.5461, z = -2.3646, p-value = 0.01805
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.8330, z = -0.4296, p-value = 0.6675
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 14.1384, p-value = 0.0008509
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.8046239
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280367&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=280367&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.5461, z = -2.3646, p-value = 0.01805 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.8330, z = -0.4296, p-value = 0.6675 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 14.1384, p-value = 0.0008509 alternative hypothesis: greater
> geary [1] 0.8046239

Parameters (Session):

par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;

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