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, 11 Dec 2014 14:20:56 +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/11/t1418307727la01c1luyh1cm6k.htm/, Retrieved Thu, 31 Oct 2024 22:49:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266034, Retrieved Thu, 31 Oct 2024 22:49:35 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact129
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [skewness & kurtos...] [2014-12-11 14:20:56] [d71ad52285d92a63edfc83f9fb1da7a1] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.300614
-398.228
0.0258672
-0.301102
-523.422
-545.804
-0.473409
190.196
-0.298411
-130.207
-411.443
-130.655
-533.976
0.321905
-191.587
-268.207
0.841765
-0.991754
-257.716
-349.766
-0.657227
-40.183
105.635
-115.063
175.849
-103.646
-193.687
0.11283
-0.36916
-274.533
0.0723549
-296.007
-117.846
-519.181
-230.668
-198.315
-0.93375
-0.969951
-148.493
0.94778
-421.795
-149.685
-612.147
-135.532
101.484
-0.536607
110.677
-234.319
-0.447244
-509.945
18.421
124.141
-0.731307
-447.956
-0.32913
0.742744
153.631
-151.389
-514.964
293.342
-113.239
0.400558
-364.324
0.157679
-429.054
218.959
-321.636
-188.232
-262.838
-109.334
234.532
-0.872723
-236.713
0.00293609
-376.912
0.00458378
-486.665
0.981406
-0.00303994
0.629484
-0.386606
-215.018
-458.931
-270.543
171.874
-219.821
-550.767
-31.082
-173.057
-0.904997
-0.902836
-410.209
0.893504
0.650405
-537.046
-285.164
-368.155
-460.327
-218.944
-390.891
117.273
279.406
-433.746
-0.49405
-166.856
-198.547
-271.352
140.735
-37.462
0.82709
-563.102
-458.274
-383.199
-0.911029
-0.325779
-514.036
165.686
345.611
310.742
-0.958014
138.412
0.624585
254.806
-153.967
311.218
142.236
459.633
-175.697
0.790671
244.302
0.648602
313.735
202.996
0.741522
0.398073
361.046
259.338
180.549
-0.143064
397.945
-232.831
257.861
153.447
0.0599083
370.819
203.607
365.638
230.884
124.399
107.706
-0.867906
-0.602486
0.851763
-0.328939
242.802
-331.407
193.074
246.979
179.878
308.997
0.244379
214.167
276.558
-108.905
-0.58955
231.805
2.744
103.126
449.166
150.258
123.443
194.225
330.058
0.304494
-193.309
186.835
274.137
0.485387
0.964783
10.687
316.827
0.502337
372.203
0.446334
-115.474
-220.819
0.306728
363.872
0.192045
-249.414
0.298195
323.235
-175.069
-0.124621
127.049
0.0877213
291.888
-193.832
303.015
11.619
15.739
-127.649
0.935
294.822
0.84168
162.506
0.984144
-0.403252
143.759
0.692943
293.612
0.549719
166.985
154.558
323.849
233.541
13.754
155.277
-0.935411
127.538
107.383
0.318774
203.435
115.657
383.524
10.873
0.102801
301.232
-18.394
0.403022
176.879
402.081
201.391
206.767
406.293
3.224
312.019
416.713
231.407
280.502
-0.457068
0.336692
-492.194
130.596
-0.61855
-0.347811
-0.639949
-0.532769
-0.967826
178.792
20.561
214.375
0.426458
145.558
0.912839
-0.140498
-0.357806
-0.773921
-169.605
-134.952
228.419
1.451
-133.567
187.049
-256.869
-293.896
-0.631902
-598.563
0.334164
0.82508
-149.515
174.549
230.299
0.617555
155.117
173.664
297.457
0.434457
444.131
0.428399
210.117
193.484
187.328
158.918
204.301
-0.806197




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.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 Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266034&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 Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266034&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266034&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 Maurice George Kendall' @ kendall.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5233, z = -2.3069, p-value = 0.02106
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.9623, z = 0.0682, p-value = 0.9457
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 13.072, p-value = 0.00145
alternative hypothesis: greater
> geary
[1] 0.7286398

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5233, z = -2.3069, p-value = 0.02106
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.9623, z = 0.0682, p-value = 0.9457
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 13.072, p-value = 0.00145
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7286398
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=266034&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5233, z = -2.3069, p-value = 0.02106
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.9623, z = 0.0682, p-value = 0.9457
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 13.072, p-value = 0.00145
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7286398
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=266034&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266034&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.5233, z = -2.3069, p-value = 0.02106
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.9623, z = 0.0682, p-value = 0.9457
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 13.072, p-value = 0.00145
alternative hypothesis: greater
> geary
[1] 0.7286398



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