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 11:54:32 +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/t141881728365vcohz11y32sgh.htm/, Retrieved Thu, 16 May 2024 20:13:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270081, Retrieved Thu, 16 May 2024 20:13:01 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact51
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-17 11:54:32] [f235c2d73cdbd6a2c0ce149cb9653e7d] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.0844978
0.622567
-0.0647729
-0.0201976
-0.235614
-0.0245627
-0.14627
-0.186056
-0.261904
0.0209337
0.158969
-0.0454523
-0.0161647
-0.0126288
-0.203332
-0.157433
0.088121
0.0221546
0.202771
0.0756165
0.0769882
0.325641
-0.130004
0.291592
0.00596357
0.077213
0.115696
-0.144392
-0.03675
0.10881
-0.0937618
0.258927
-0.103342
-0.119336
0.150643
-0.04806
-0.251281
-0.112157
-0.00968876
0.0962563
0.156712
0.0477261
0.101935
-0.133796
-0.0362738
-0.0925552
0.480534
-0.064738
-0.185168
0.0400008
0.420078
0.205879
-0.187934
0.119703
0.0516803
-0.173495
0.423708
-0.0405925
0.00703451
-0.157271
0.497046
-0.176838
-0.1503
-0.475479
-0.475479
-0.121567
-0.118131
-0.135417
-0.163728
-0.047384
0.10389
0.119501
-0.0968263
-0.0222381
0.17743
-0.157619
-0.0949135
0.187148
0.215833
-0.0764795
-0.00136952
0.129771
-0.0470181
0.42325
-0.113367
-0.0782813
0.0291394
-0.19713
0.184571
-0.00518162
-0.033678
-0.0193311
-0.0856745
0.152673
0.144231
-0.0771401
-0.038661
-0.446007
-0.512443
0.292981
-0.132036
-0.167515
0.143871
0.153392
-0.244797
-0.14981
0.226778
-0.101892
-0.107845
0.232761
0.257311
0.173283
0.0384632
0.197693
0.0641378
0.00502169
-0.445981
0.5389
-0.0631635
-0.0614346
0.215551
0.339519
0.266414
-0.180742
-0.0827839
-0.0661562
0.10719
0.22523
-0.0617
-0.109035
-0.234756
0.224964
-0.0840023
0.153951
0.218511
0.0516803
0.172761
-0.189018
-0.0921962
-0.17639
0.4387
-0.0872079
0.00508663
0.00814885
-0.22359
0.0650332
0.124084
-0.180572
-0.165123
-0.01753
-0.219876
-0.187343
-0.115413
-0.173495
-0.0887541
-0.276732
0.218511
0.144935
0.270174
-0.239997
0.412604
-0.083312
-0.164737
-0.165612
-0.163652
-0.227059
-0.0135008
0.458465
-0.0696862
0.136489
-0.708316




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = 0.2002, z = 0.7262, p-value = 0.4677
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.8567, z = 2.0257, p-value = 0.04279
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3721, p-value = 0.04133
alternative hypothesis: greater
> geary
[1] 0.7783749

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 0.2002, z = 0.7262, p-value = 0.4677
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.8567, z = 2.0257, p-value = 0.04279
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3721, p-value = 0.04133
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7783749
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=270081&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = 0.2002, z = 0.7262, p-value = 0.4677
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.8567, z = 2.0257, p-value = 0.04279
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3721, p-value = 0.04133
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7783749
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=270081&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270081&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.2002, z = 0.7262, p-value = 0.4677
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.8567, z = 2.0257, p-value = 0.04279
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 6.3721, p-value = 0.04133
alternative hypothesis: greater
> geary
[1] 0.7783749



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