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 computationSat, 10 Nov 2012 07:44:20 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Nov/10/t1352551509nmj7p73w5esqy38.htm/, Retrieved Sat, 10 Dec 2022 06:32:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=187330, Retrieved Sat, 10 Dec 2022 06:32:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact99
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Decomposition by Loess] [Seasonal Decompos...] [2012-11-10 09:27:49] [3f1165f0052bdaf7d486f8ac60253253]
- RMPD      [Skewness and Kurtosis Test] [Skewness & Kurtos...] [2012-11-10 12:44:20] [64435dfec13c3cda39d1733fd4b6eb52] [Current]
Feedback Forum

Post a new message
Dataseries X:
60.1055021367521
7.90731258924438
-1.62949188711269
-1.52395755944974
-1.56642760660441
-3.78955456643666
54.2004570745614
-32.1635106722219
-30.4020143785102
33.7236460413397
-53.2955718993481
-14.1045987620579
7.82365037164504
-23.4921574619217
-39.2028497955702
-54.4387265527371
-63.1601181060856
-14.48551331217
-6.62855877161644
-37.2510501532606
7.17046288923711
-12.4675813866814
23.6426683154577
-1.0887918864747
-51.6623259933685
-35.5122515223484
5.73025876853075
-4.40211395441639
-19.4014405155752
1.52063759742936
20.3016343284285
21.1295525782726
32.2990417939228
25.4055202815389
16.2498176329084
-24.0171540733444
-24.7816209458666
-15.6228583221851
-11.7649527027905
15.3856144718968
-5.43160372391736
-13.8785890382636
24.5441173885148
28.9999634713956
1.82338154604037
9.40807037018644
3.02766433004112
-4.92427593400538
-9.91460921120554
-41.1941808015788
4.53720023967503
23.2702181643558
-20.0749351322602
-20.5090421219108
10.7596261151817
24.2694718389698
35.9265649976673
32.3183244265131
37.8729236732796
36.1102685433414
50.3675863667696
19.6745378760142
10.7696217062501
-6.48780000100203
-27.566236037287
-51.733367569896
-6.99229036259692
8.94622588610736
8.8801878265719
-23.8105094880509
-0.27886280597977
-15.4532983890202
-10.4670754712891
-30.767386022288
-18.4731603002825
8.49149930995566
-40.768910811547
-21.2330914097927
-22.8815421056147
22.7883322578464
3.88746760486373
34.5571102251398
16.9861404560139
10.8770645540691
-23.97306919561
-13.3654801542449
12.4854386129
-15.1738167359828
21.2131829788488
0.785421269383164
-19.0081826996459
-25.5088561804516
-0.0938131575317982
16.8883581186024
43.7088648495929
14.5420441737
-11.2401118352251
-29.3691955168528
-20.5986856349709
4.57739767359607
11.0297602111226
14.7366850764681
-23.5318661749727
-4.92153194813298
15.3266292277048
29.0892613513254
54.2945909415411
31.1167715024629
48.848504485953
50.6547888333779
6.2595864768499
0.125927575412106
-29.312377188484
-14.2127746927911
-16.3218999684809
-34.7892329719472
-53.2988006826901
-14.1234721396601
-19.9040781129979
34.5838100011579
-2.72543241287417
-14.1541234733052
-30.486335606016
-56.7223916467779
-17.0975671984976
6.781804301048
-4.19919131488905
5.91814919088711
5.25602160959932
29.7975342134231
28.0990602322143
-5.18018083637611
-0.795121167534489
-34.2181422474168
41.4161642631596
-24.5337303698354
-19.7305579893741
35.1280775837478
-13.5764651302848
8.64808286659621
-21.862534337187
39.6445869726741
30.126766094766
59.3669121365592
28.0532510044074
21.594556562414
-23.9849538457074
-29.9091507995927
-27.2760393915765
4.60291154331912
-22.207181163603
-34.7437395927311
-26.1647022086715
-10.1423295150425
-8.79803553054023
13.8844258240709
4.86911594589952
-17.8768094177293
-4.53099911344941
-8.67588325487247
14.5530699723015
-25.4444931791877
-18.5037463376605
28.668939513417
-12.8427688945945
-12.6739358630883
35.0655715701193
10.4919110743164
34.7998218147865
26.382577058531
-31.4502955788973
-13.3500101233498
-4.94676270306798
10.2147632128882
-20.151738608337
-21.2003841542007
-3.84196213907836
2.47718082937701
26.1175119769031
1.30620107589158
15.9763490593784
-4.29169039850666
-5.68239415097673
-5.66576469368721
-30.3324989384452
38.7297333632328
-47.8379972901823
3.32194019828319
-2.61471453477384
3.49949131977644
-10.9947350546675
18.5056877423781
-1.72721431457239
27.7345066494545
-23.8435940790949
12.4567135067414
-20.9705873196891
22.355040813274
-21.6690535061908
-14.5841502838757
-6.94826188821833
-3.84430073495002
-2.59217522043883
-2.60607963393284
-7.14857308864231
-11.1339318760226
18.4637905480442
10.4316061419681
20.1113949064753
17.5858171258652
-7.2877098892576
-10.7197948009177
-7.88901795592506
4.23622047291923
-9.49292694199659
14.0989998155771
-2.34044558003501
3.813803754015
2.05839351282185
4.05299785702346
-10.8448621371432
50.8530123243816
15.264595051527
-18.2315125326971
14.8577099312466
10.891750422089
-27.6845314333725
-22.2969023734349
-20.4482562506962
19.0497844116101
-9.46063640030042
-13.0326213373596
-8.54900594118786
57.140945046847
19.4241422121533
-26.830983001452
-2.37578942277605
-4.84198424550806
-10.4303433130984
-16.6855972708549
-8.53538924668408
-1.01146096407871
11.5303204357248
13.9952481889759
-12.3228254730913
24.0420580332989
39.9670595996923
-4.53148096219155
20.7906344047346
-6.63180905654662
-32.6830885253269
-13.2139532074752
21.0106300150749
32.2197158912835
19.9623395047617
10.7170144375114
-7.98705517865272
32.4425921860229
36.6868062570488
-3.43498511252898
8.7957703561168
-2.17704279311778
12.9133457304909
-7.73153139426097
7.1130728233876
-16.1825690886617
-11.5200705911252
-26.2053872685377
-25.1972823162915
5.07094486441963
33.5212777658004
5.46310060489913
-19.9485992588831
-25.5296990948981
1.53160101555767
-16.2678565682633
6.81923857665561
-13.6219483259765
0.640501844910659
-21.4384195231802
-25.5863776186362
3.7569904008036
24.5166438609038
8.50949766564275
-8.87056277420987
-10.8181041432497
-41.8791487283652
-16.8891603417301
-9.79445373111042
14.5000023231531
-5.71068802221339
4.47717044894159
-19.497295919866
0.746187934139982
20.6244015950107
11.7211537811301
13.5315050255502
-26.309844364408
13.4761586991746
2.53401068221564
29.75308044594
9.0469611444048
-12.2870769641206
-12.5231294188193
1.32750816720568
16.3470572133829
33.4494240502
6.39577689338842
43.7772573402013
1.29568120726367
38.1354315202941
39.4594797370748
131.183597606572
7.17554561646182
15.2926260674461
-37.5186845873162
-26.9732628980084
-35.786051835723
-14.023070258651
-20.9817713628479
-23.4088075684418
-18.8775860172879
-38.7087029897747
-15.7832767292801
5.9563156717054
-7.05804332137131
-29.8142497407767
-29.3245999066231
-50.0167531814983
20.360623535205
33.1065325690961
23.5299909998537
-20.7325694682676
-2.54691080969121
0.941329873098425
-12.5913300637409
-7.62474932805799
38.2574669634931
-22.4060624059783
-61.8041846234416
-30.8685789395701
10.9344688016622
-10.1262863319272
31.9257625815407
-10.2076480814758
-1.09025119130797
-8.30135673315863
-45.956006137365
13.5246718564608
-1.02069859380583
18.5098441840985
-24.7842696724545
-7.76045318964293
-32.8172361644375
54.0387263716307
3.62731714551694
13.0254176932274
-9.99376180617435
-2.36668994843342
17.7822391525889




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187330&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.5237, z = 2.5754, p-value = 0.01001
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.8382, z = 4.2819, p-value = 1.853e-05
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 67.1385, p-value = 2.665e-15
alternative hypothesis: greater 
> geary
[1] 0.7826287

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.5237, z = 2.5754, p-value = 0.01001
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.8382, z = 4.2819, p-value = 1.853e-05
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 67.1385, p-value = 2.665e-15
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7826287
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=187330&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.5237, z = 2.5754, p-value = 0.01001
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.8382, z = 4.2819, p-value = 1.853e-05
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 67.1385, p-value = 2.665e-15
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7826287
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=187330&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187330&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.5237, z = 2.5754, p-value = 0.01001
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.8382, z = 4.2819, p-value = 1.853e-05
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 67.1385, p-value = 2.665e-15
alternative hypothesis: greater 
> geary
[1] 0.7826287



Parameters (Session):
par1 = 12 ; par2 = 6 ; par3 = 0 ; par5 = 1 ; par7 = 1 ; par8 = FALSE ;
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')