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

Sat, 17 Dec 2011 09:55:59 -0500

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/2011/Dec/17/t13241337715q13l90nmh84hqj.htm/, Retrieved Thu, 25 Apr 2024 07:47:21 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=156363, Retrieved Thu, 25 Apr 2024 07:47:21 +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)

-     [Multiple Regression] [Tutorial WS7] [2011-11-17 12:18:27] [4fa66579543b578a51dd12826fe0c6d2]
- RMPD    [Skewness and Kurtosis Test] [Skewness & Kurtosis] [2011-12-17 14:55:59] [03e2d80b807f43987d5267414f2021cf] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-45.03512967
-19.98355167
-0.074551362
39.39682555
72.98801962
86.25153542
81.85954852
74.94478284
69.70723837
64.50633009
53.75492821
49.41639653
45.07885206
41.80072257
39.84239199
28.4088146
23.53761382
15.42878963
10.48234204
-3.945293842
-11.12046172
-13.58078497
-12.97377734
-13.19251011
-16.30530139
-17.50622793
-6.990463307
-9.322066281
-13.79719762
-16.56337105
1.808042385
24.51609202
28.05684729
29.98667024
31.7491623
32.17105108
19.84045358
27.15438991
21.19110504
10.45659524
14.45270708
14.26168913
22.40533295
20.81234059
11.35697162
7.396648359
-4.4260515
-19.62293789
-22.24364508
-36.12970874
-40.23557131
-41.32955088
-42.61066025
-39.85315902
-41.61446948
-41.46290975
-40.66778511
-47.54584154
-55.46550672
-45.12780439
-44.89406915
-31.81775621
-37.18690953
-36.92246132
-34.59565478
-34.43716634
-35.79253531
-32.55285857
-32.35179244
-46.01198784
-43.93766758
-40.57621752
-36.67317698
-32.85132473
-30.05323848
-37.48083784
-37.37085032
-35.70444597
-34.59447672
-30.42114367
-37.66060776
-37.78723817
-34.83962726
-34.441541
-29.56917689
-21.52752574
-22.10764791
-21.1996348
-19.40845899
-14.83412046
-9.591482108
-13.24284746
-13.10710127
-9.684261822
-9.502994594
-10.09991752
-7.539454667
-2.414640805
-4.853135952
0.19937446
4.499416857
1.690629202
5.642170673
3.454114333
-1.318037127
3.151328839
-4.267330871
-12.17812947
-2.542291957
63.11243032
55.74843222
46.14756047
40.21796844
38.82596328
34.38741333
23.65480489
7.292488952
7.663847594
9.140197061
11.75906942
11.50170778
6.124547232
3.254315386
-3.566410062
-10.78713551
-9.808848164
-10.49293742
-18.15920218
-12.45120734
-9.002572686
-24.25492524
-25.6409889
-15.91515131
-19.37541977
-22.82585271
-16.81683414
-17.52368391
-16.04936365
-7.213653999
-8.953191147
-5.417481494
-6.643106439
-11.23699468
-5.395343534
-1.775447434
12.57607577
12.8018951
8.101114686
15.93187005
14.64088862
21.28948674
18.56281979
14.03021135
8.577822264
-6.029996451
0.287888707
1.431514269
9.469198332
-1.803940333
-6.690936406
1.639818954
8.420080711
18.77460206
18.74793512
6.566953605
8.461091035
2.465118786
4.719640139
7.379115785
11.99403933
1.812966486
-2.220537837
-4.686802595
-3.953067353
-8.113390613
-14.16084367
-14.68751062
-16.76560358
-19.06651185
-21.62584791
-17.4742699
-8.549492574
-10.89893831
-11.70578808
-5.831449559
-8.238299334
1.461724798
3.715222415
-2.979744364
-6.574711142
-15.80730132
-17.6022681
-18.01010508
-7.255565462
-5.519837544
-9.078113331
-6.14732144
-3.078924414
-0.786761395
-17.60536631
-17.41914479
-24.33292327
-22.15461765
-16.11691533
-10.38118741
-23.51562414
-62.02903731
-59.87649037
-56.54472954
-52.19907477
24.36040088
101.2410462
72.18000973
66.32173394
69.88122785
67.40797959
72.56546256
57.7100936
48.87450527
47.7933959
40.2450287
45.65496141
45.99363268
55.13029301
52.24719096
45.11257158
39.63840918
33.45929248
27.6810534
23.94158931
20.63969383
23.72191173
13.86261221
15.29634745
4.268766361
-24.58333048
-34.06241064
-37.87019283
-44.19386162
-27.34440416
-19.14439829
-53.41623924
-116.529214
-59.75999419
-84.51589373
-52.87718593
40.79150421
57.32810975
61.08455071
49.21523301
49.51622608
21.30358093
7.969016343
-10.58521929
23.59677942
12.88799177
26.25421346
19.85922842
16.34844809
11.81386523
19.10489492
10.34159178
-2.121583504
-7.901669139
-6.855063695
-2.229280893
0.221328169
1.857037822
7.67492298
0.01363078
10.99579389
16.44435548
20.69684762
29.50486073
-1.773104375
-23.92823589
12.62416493
35.7508984
29.15200107
31.94805811
28.66298165
28.65406614
30.60761855
37.76506499
28.69682582
24.20386999
14.19111524
13.8020717
20.96745231
32.04564833
30.30218063
16.43401452
5.830217688
31.63506825
26.32030257
19.90555515
15.96408012
25.83931453
17.36619413
11.46726026
9.611946089
13.22884404
-5.345227034
0.431158964
14.95688697
12.38069536
29.1311583
27.64408916
16.48091388
11.43249188
5.963338569
14.82765892
22.84069937
17.78829202
24.59723754
27.05777345
16.9687847
22.67277592
16.33729718
19.40070339
18.16813147
10.89592522
4.58613209
11.23476674
0.784479926
-3.490669682
-0.553899762
0.71645341
-10.10421724
-28.54858083
-0.038739435
-2.030708066
-15.3710863
-16.75616275
-38.54899073
-57.01308016
-31.31000308
-68.09283115
-87.58357513
-50.61728037
-36.44793267
-15.01033993
-4.904483893
9.859964311
15.16591168
-3.361541556
-25.98316288
-32.06326678
-61.312402
-49.55901398
-25.62635727
-28.87574821
-16.79651019
-22.89555365
-25.77662649
-33.25662079
-28.72590197
-29.70306251
-50.76413553
-70.04806039

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156363&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	'Gwilym Jenkins' @ jenkins.wessa.net

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = 0.0789, z = 0.4101, p-value = 0.6817 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.6062, z = 2.0710, p-value = 0.03836 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 5.8864, p-value = 0.0527 alternative hypothesis: greater
> geary [1] 0.776262

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0789, z = 0.4101, p-value = 0.6817
alternative hypothesis: data have a skewness 
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.6062, z = 2.0710, p-value = 0.03836
alternative hypothesis: kurtosis is not equal to 3 
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 5.8864, p-value = 0.0527
alternative hypothesis: greater 
 \tabularnewline
> geary
[1] 0.776262
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156363&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0789, z = 0.4101, p-value = 0.6817
alternative hypothesis: data have a skewness 
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.6062, z = 2.0710, p-value = 0.03836
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 5.8864, p-value = 0.0527
alternative hypothesis: greater 
[/C][/ROW]
[ROW][C]> geary
[1] 0.776262
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156363&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156363&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.0789, z = 0.4101, p-value = 0.6817 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.6062, z = 2.0710, p-value = 0.03836 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 5.8864, p-value = 0.0527 alternative hypothesis: greater
> geary [1] 0.776262

Parameters (Session):

par1 = 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