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, 10 Dec 2014 18:17:06 +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/10/t1418235431mdylu4c1102ky7s.htm/, Retrieved Sun, 19 May 2024 13:58:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265564, Retrieved Sun, 19 May 2024 13:58:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact67
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-10 18:17:06] [18673d63f90870b9c004059cd6229007] [Current]
- RMPD    [One Sample Tests about the Mean] [] [2015-01-19 14:17:41] [b54f62a7fd1df3c2be93114d7438324b]
- RM D    [Central Tendency] [] [2015-01-19 14:26:21] [b54f62a7fd1df3c2be93114d7438324b]
- RMPD    [Two-Way ANOVA] [] [2015-01-19 15:17:54] [b54f62a7fd1df3c2be93114d7438324b]
Feedback Forum

Post a new message
Dataseries X:
1.46725
1.25808
1.48609
-3.80196
-3.73682
-0.107468
4.00258
2.01469
0.115039
-2.69754
-0.183912
-4.034
1.42388
-0.528811
0.295863
2.28985
-0.0672764
-0.632679
-2.19063
0.874613
-2.91574
2.36713
-0.43871
1.97684
1.09285
-2.09035
1.38979
2.26563
-0.93194
1.38673
-0.949309
1.18481
-0.831287
-2.08574
0.718134
0.688451
0.138472
1.92793
-2.56972
-0.400069
-4.31306
-0.276966
2.36745
-0.0199196
2.47995
-1.08587
1.58175
-3.56155
3.74588
2.14092
0.0363765
-2.26599
0.574453
1.56534
3.06188
-0.183333
-3.98306
4.40275
0.438997
2.08526
-2.16024
1.39036
-1.90682
3.09344
-1.19661
-0.45818
-1.25839
0.0307449
2.73606
0.834976
-0.284825
1.66753
-1.06635
1.74734
1.86457
1.58452
1.36444
1.53725
-0.356276
-2.70724
-0.860394
3.23067
-0.292371
-4.05405
-0.915332
0.331324
0.895671
0.681008
-2.07664
2.12997
2.9942
-4.45635
-1.06387
-1.56911
-3.2511
-0.667202
-2.61882
1.70307
2.93755
-3.5992
1.169
0.0808492
-1.39873
-1.65383
2.94775
-1.4546
2.96372
-3.99759
-2.33545
-1.65808
0.885525
0.554089
-4.70651
0.929584
1.70305
1.57064
-1.51857
1.29769
-2.18564
1.46429
-2.44851
2.4724
0.232374
4.26384
-2.82685
-0.481493
0.91273
-1.12433
1.12069
1.13881
0.315118
-1.0399
1.86808
1.13018
0.517212
-0.691253
2.81737
-2.67306
0.901967
0.568533
-0.626189
1.49991
0.0538636
1.76699
0.178477
0.582032
-1.20109
0.315794
-1.64319
0.794419
-4.96891
1.40685
0.967728
-0.212793
2.24782
-0.311363
1.32906
1.8133
-1.90113
-1.32368
1.66076
1.06083
-0.280814
5.31957
0.391003
0.964578
0.609691
1.78905
-0.60428
-2.22239
0.480997
2.21674
-1.35063
-0.51833
-0.475404
1.57454
-0.853579
1.76932
-1.39598
-2.30767
-2.50822
-0.967128
1.67306
-0.708567
-3.75511
-0.288623
2.48329
-2.31911
-0.831442
0.366523
-0.619829
1.61201
-2.85098
2.30315
0.216015
1.07882
-2.72074
0.355582
2.2272
0.403158
1.21141
0.8405
-1.1345
0.0395547
-1.55879
2.08404
-0.399052
1.65532
1.22025
0.216811
1.04539
0.443068
-1.64247
-0.921328
-0.657992
-0.679022
0.829108
1.95223
0.397846
-1.19914
1.41165
-1.98985
-0.173054
0.301597
2.49234
2.13301
1.04074
2.81395
2.23319
1.79316
2.938
1.63497
1.10019
-2.6987
-0.591428
-4.97063
0.491887
-2.32414
-0.726471
-1.51561
-1.29697
-2.45473
0.678283
0.927435
-1.27779
-0.355455
0.084752
-1.14388
-0.972681
-1.77171
-3.42906
-1.99882
1.0288
1.48878
-2.5845
0.874212
-3.44218
-4.34549
-1.55994
-6.93014
0.327746
-0.225929
-2.03262
0.946343
1.24344
0.109968
0.647432
0.646892
1.77538
0.0551093
3.12906
-0.0281069
1.13054
0.777102
0.663512
0.912215
0.84657
-0.855017




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265564&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 time0 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4456, z = -1.9656, p-value = 0.04935
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1950, z = 0.8379, p-value = 0.4021
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 9.6404, p-value = 0.008065
alternative hypothesis: greater
> geary
[1] 0.8016793

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4456, z = -1.9656, p-value = 0.04935
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1950, z = 0.8379, p-value = 0.4021
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 9.6404, p-value = 0.008065
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8016793
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=265564&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.4456, z = -1.9656, p-value = 0.04935
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1950, z = 0.8379, p-value = 0.4021
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 9.6404, p-value = 0.008065
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8016793
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=265564&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265564&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.4456, z = -1.9656, p-value = 0.04935
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1950, z = 0.8379, p-value = 0.4021
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 9.6404, p-value = 0.008065
alternative hypothesis: greater
> geary
[1] 0.8016793



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