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

Wed, 21 Dec 2011 07:43:57 -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/21/t1324471624dui0npasdv962ub.htm/, Retrieved Tue, 07 May 2024 16:22:25 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158608, Retrieved Tue, 07 May 2024 16:22:25 +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)

-       [Skewness and Kurtosis Test] [xfchgvbn] [2011-12-21 12:43:57] [6a186250438a2f65df3b841b0f0f477a] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

9459.55117398421
-42318.4226740185
-6191.83909678482
-51181.4419124933
-1424.77690909616
-34217.2190010765
142113.49876467
-23311.3377698926
37933.802753356
-5452.25711092342
5202.08208640725
40310.6510882074
-45502.3146668069
-7345.85893592772
23141.9837257037
12204.2847366919
8093.56625133897
-5104.05047361021
39982.505657873
-52177.4689726059
-51444.0301160035
-17146.3595345971
158733.952898725
12478.7405849951
-83418.0828843642
-67848.8090831215
-10648.9955484447
30320.3432217114
2142.80883143276
94.7622898789845
-1782.88704800026
-18749.3041029992
2315.48641871852
4313.23726918754
-50167.401892564
59633.0495767956
18293.1876178579
41379.84449025
119897.552412268
-8067.82468562196
14284.8414514503
17132.8892790141
-5281.92930845321
52389.550255679
53307.8265663412
-15071.1807278891
44956.5739064613
-9709.61553847647
-16478.3824830758
-33812.3858853746
161619.861369141
-17583.4695540147
-36795.7186980651
9005.58452838953
-47498.8327076836
-10372.6966533538
-9061.65830565086
110528.142565722
-18128.1010425938
15028.865162403
34781.0116120011
-19416.5874607698
137029.71114938
20444.1903098578
17282.0662398092
-1654.78295448813
27803.9287123622
32040.0288893507
2840.0215646936
18379.8486244448
38226.8515522778
46995.2493765879
11432.241449449
-36963.1796861424
-5142.9156777394
-43013.3053180468
-101950.608409562
-18581.6973600977
-15817.4580283285
5321.68653224779
-8038.5692828597
-78148.4431107592
33610.0598289464
41360.2909664389
-62022.4654894353
-69616.4584304818
-15525.9254804582
-11069.6122633982
88434.163724124
35767.9290638993
-30536.8972294912
-25791.9440704661
31851.9172290417
-48856.8237032746
-559.698830995172
120669.738791368
34782.4430341688
-135255.323334328
37721.1633257538
-72746.8846752992
23682.2898990344
15267.1788693763
67671.5907863155
-25564.3568618982
-27624.5586793099
-49609.7767206964
-12128.1134285336
-18108.6213313401
42177.3624018005
-11030.8755809901
-25917.1725224029
14421.2591051023
-36734.8547928216
5121.06622859136
-31452.8724350911
-25637.2744171569
-43405.9336284923
98679.3385420431
-61660.4848118719
-11554.7592363396
3258.48558918049
-10691.331222433
26243.5439553909
-116196.470937562
46827.3762821846
10781.6225708882
15191.1272722068
-43226.3438604754
-37029.3030633426
-7756.67524903353
5749.94481006592
-65684.648972539
-8359.16810800947
-21968.9247569871
-43115.3623306417
79667.1202517835
1435.4940507857
44157.3612506648
-45807.7692164559
-23525.9436774253
-11058.8107946374
-10620.1995661277
30749.3571735582
29772.537034499
-16845.7452576939
-18221.3735092627
-25790.0200192542
-24302.536650436
-12391.204556729
-12535.8270009367
30894.2317653787
-4365.06183868617
3668.55944264497
52325.718594974
-20242.4962030095
18886.1523330556
-6577.67244301767
23434.2145132593
-37384.992661881
52234.2093353953
112967.218832914
-42213.1365467831
16573.6354947339
62741.3327988235
-10454.8427370037
-6419.5368286661
-5975.10608082076
28564.8997178806
-4274.83987816934
124563.733689007
87867.5798424608
-40331.7929835007
60035.5078654004
-6737.48329003838
-185309.725101563
56973.1054981131
-23523.2430846228
9006.32656293032
-59575.0756795712
35100.2985530171
650.162605864128
-47574.4712256171
-6902.73900246393
35165.9810364594
45421.0380653422
-16164.1901089245
6957.67253403533
-425.863199379754
35314.939842237
-31979.0405259394
14582.5798070984
25724.7879926367
-10726.6167411224
-20476.6074882121
-749.093119173333
9161.48248554626
-788.513537296818
-16986.4964484811
-4069.46483542542
-23663.8785841665
-412.52230145137
-29274.3842376623
37217.7234163187
20667.9225974148
1527.10536510905
-24526.5715644454
-9138.75868663755
86196.7431856134
39595.5368162358
12269.536551801
25681.3070365368
22845.7958641519
-25833.2626667926
-8593.93189258329
-12830.0830544511
-10885.3414535273
-15407.7749443468
-8657.72993403617
-15702.7886062626
18191.0602251233
-18984.5976841858
-2582.31993098528
-19641.6584362694
-17920.245257751
-21191.514684639
42681.4573133551
6579.13757164879
-35669.1218606577
-24682.8526461153
-45906.0489466568
-14663.0121702815
-11474.7310857808
-6021.3491716832
-21203.8303940987
-30584.4321251584
-44172.9662292576
72802.3048333116
-27982.2641139821
-13109.0588710137
-29303.8869272017
15857.2216140663
37017.8213792803
-34035.756717994
-22836.9920622179
-8661.37160365628
-9075.3157573231
-13654.2979447556
20468.7615563491
15447.7168569527
-25187.8286450115
48465.1665930063
-16612.6754870549
-13534.2249437577
28133.0584731692
10158.5575438996
-1029.27115045931
-40171.140010356
5055.71206664898
-1443.36332805636
-13889.6291737309
-19972.1348722436
-25261.4119063899
3176.57626317786
-36729.8788982363
-23054.6783065371
-8184.26549918515
-33241.9828456223
-19915.3352936095
30455.1929363808
-34239.620631256
25715.6620457713
-6725.79015928166
17839.0698197982
-2202.87352090526
-5231.9948789569
-33721.9454380796
1211.73278669423
-12158.1515359274
-3796.2064445581
12081.9502508882
-12243.1196794111
-3602.5868900394
11264.2625522566
7191.44346001174
1935.02951509179
-30637.0769520021
348.066763125204
-22442.4596692661
2482.32016753681

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	'Gertrude Mary Cox' @ cox.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 & 0 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158608&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158608&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158608&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	0 seconds
R Server	'Gertrude Mary Cox' @ cox.wessa.net

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = 0.5565, z = 2.4493, p-value = 0.01432 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 6.4317, z = 5.3257, p-value = 1.006e-07 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 156.721, p-value < 2.2e-16 alternative hypothesis: greater
> geary [1] 0.7025863

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.5565, z = 2.4493, p-value = 0.01432
alternative hypothesis: data have a skewness 
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 6.4317, z = 5.3257, p-value = 1.006e-07
alternative hypothesis: kurtosis is not equal to 3 
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 156.721, p-value < 2.2e-16
alternative hypothesis: greater 
 \tabularnewline
> geary
[1] 0.7025863
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158608&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x 
skew = 0.5565, z = 2.4493, p-value = 0.01432
alternative hypothesis: data have a skewness 
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 6.4317, z = 5.3257, p-value = 1.006e-07
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 156.721, p-value < 2.2e-16
alternative hypothesis: greater 
[/C][/ROW]
[ROW][C]> geary
[1] 0.7025863
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158608&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158608&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.5565, z = 2.4493, p-value = 0.01432 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 6.4317, z = 5.3257, p-value = 1.006e-07 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 156.721, p-value < 2.2e-16 alternative hypothesis: greater
> geary [1] 0.7025863

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code