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 computationWed, 17 Dec 2014 16:03:36 +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/17/t1418832251vypokg07dw08q3g.htm/, Retrieved Thu, 16 May 2024 16:39:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270472, Retrieved Thu, 16 May 2024 16:39:42 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact46
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [] [2014-11-04 10:08:09] [32b17a345b130fdf5cc88718ed94a974]
- RMP   [Bootstrap Plot - Central Tendency] [WS7 4] [2014-11-12 20:43:46] [81f624c2f0b20a2549c93e7c3dccf981]
- RMPD      [Skewness and Kurtosis Test] [Skewness and Kurt...] [2014-12-17 16:03:36] [8188a2bb20af439749c29996b06d1031] [Current]
Feedback Forum

Post a new message
Dataseries X:
-26.3309
9.67792
-15.5831
12.2468
-9.58307
0.501988
0.414137
-8.49801
25.7395
11.9947
-4.66813
16.4962
1.17059
2.16176
19.505
6.8151
-12.1696
2.74833
4.48673
21.0005
7.4081
8.24682
3.41112
6.6749
11.4141
0.416931
5.23457
-4.1849
10.3319
-2.42179
-22.7502
0.0797212
4.33187
-12.5861
-3.33673
5.17361
7.92728
-0.269955
8.41693
-0.826387
-13.9995
-2.82941
-1.83802
-19.3367
-24.7684
21.5108
-5.33673
6.48371
19.6779
-5.34618
2.56876
-1.09682
-11.3367
9.39283
4.82455
4.00048
-11.0176
0.836178
-5.34036
-7.1849
7.74833
5.8392
-6.57423
-11.3367
3.41995
-8.51048
13.0005
5.83338
-5.49801
-17.5163
-4.00534
-1.99952
5.82394
16.3282
-8.40412
-10.8352
-14.5105
12.7483
-18.5983
-1.33673
-4.43124
2.65382
-6.1849
6.65382
-13.9355
3.23155
4.8151
13.909
3.90597
1.48952
1.98824
-17.2611
10.5599
-21.0148
-4.76263
11.8151
3.48371
4.48952
-7.41961
14.0761
3.23155
10.8151
-25.1733
3.64499
1.15533
-3.35199
5.07609
-3.01478
8.73888
4.99103
8.48371
12.249
-1.08737
-37.9203
-8.33673
1.66327
1.57178
0.483707
-2.99952
5.33187
6.49617
-1.58027
-5.4922
10.7453
-0.835221
-1.9233
-16.0874
-4.26051
16.8151
-4.42179
-6.33673
6.33187
-0.665106
9.91263
-22.5861
12.6633
-9.00534
-4.26051
6.41693
5.99466
-13.0001
-8.16964
15.3319
-2.33673
0.663269
-11.5831
18.6633
-2.33673
-4.33673
-1.99952
8.66629
3.32908
1.66327
-24.6681
11.2316
11.648
17.7425
1.33187
8.39865
-15.1849
-9.1849
2.9794
-9.16662
5.74251
2.16115
-4.51629
-0.59833
-0.516293
14.0703
6.23155
20.8913
-1.18188
5.15533
2.74833
2.74833
-1.09984
-7.75318
-23.9114
-8.1849
-0.653477
-0.176063
-8.17304
-2.25167
3.64801
-16.7654
3.48371
7.23737
10.0703
11.3224
-0.519088
-6.18188
12.2316
5.15231
10.3166
-12.3404
-5.1849
-3.33371
-6.76845
-3.84467
11.648
-8.16964
9.73306
6.24984
-10.352
-0.41016
-11.5163
-1.09039
-13.5133
-0.419381
2.49836
-1.8535
1.74251
7.58123
5.16394
3.66908
-3.33092
-16.6834
2.90961
-7.93554
-2.84769
4.74833
5.97638
-0.920279
-2.41295
-3.33673
-3.17606
3.41391
7.48371
4.82455
-2.66813
12.2498
0.249836
10.73
-4.75318
-4.26051
4.07972
7.5776
11.502
-22.2517
6.97638
15.8304
-6.26996
1.8151
-1.83885
-5.25833
4.40167
-13.3425
-11.7474
10.4169
9.74833
1.91542
-1.99952
-5.1849
-33.0206
-9.41295
5.31661
-0.269955
11.9154
3.07609
-12.7684
-2.51629
3.82394
-11.1849
6.8151
-2.1849
-2.59833
-17.8477
20.8151
11.2316
5.47789
7.65103
-8.77705
1.31661
2.8151
5.64801
-10.3367
5.73888
-1.08799




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5299, z = -2.3019, p-value = 0.02134
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.7858, z = 2.2629, p-value = 0.02364
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.1626, p-value = 4.185e-05
alternative hypothesis: greater
> geary
[1] 0.7725389

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5299, z = -2.3019, p-value = 0.02134
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.7858, z = 2.2629, p-value = 0.02364
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.1626, p-value = 4.185e-05
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7725389
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=270472&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5299, z = -2.3019, p-value = 0.02134
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.7858, z = 2.2629, p-value = 0.02364
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.1626, p-value = 4.185e-05
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7725389
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=270472&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270472&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.5299, z = -2.3019, p-value = 0.02134
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.7858, z = 2.2629, p-value = 0.02364
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 20.1626, p-value = 4.185e-05
alternative hypothesis: greater
> geary
[1] 0.7725389



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