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 computationMon, 05 Nov 2012 08:20:05 -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/05/t13521216165b80uj3w5ten7tu.htm/, Retrieved Fri, 03 Feb 2023 11:10:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=186041, Retrieved Fri, 03 Feb 2023 11:10:09 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact66
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2012-11-05 13:20:05] [d6d323dfc7646cd233dc8d53404fc370] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.021803188
-0.034095137
-0.048479485
-0.128883066
-0.340013932
-0.266598804
-0.556373475
-0.206623871
0.238594459
-0.236224561
-0.422667166
0.064289576
0.296692081
0.272440805
0.297046455
0.504354692
-0.460661713
0.084361337
0.223107785
-0.163977998
0.268020603
0.586630205
0.549067363
0.534462551
-0.193828699
-0.187597424
0.028357882
0.111140564
-0.100372788
0.352041289
-0.22504811
0.469607935
0.529632732
-0.189827676
-0.379813999
0.343594366
-0.230555697
0.526134932
0.187462794
0.231210993
0.073234006
-0.23253056
0.027172944
-0.21140777
0.321086492
0.053582856
0.025301011
0.361660286
0.234804577
0.067039424
-0.16528047
-0.470117257
0.619537777
0.366286012
-0.32445162
0.604262343
-0.152024049
0.326322317
-0.390671001
-0.423321414
0.00681448
0.205785872
-0.169685731
0.083940726
0.26368158
0.277138147
-0.455558363
-0.430803864
0.070941462
-0.188982507
-0.501244733
-0.403752875
-0.485998844
0.176714102
-0.202356464
0.203169933
0.061623772
-0.424588963
0.18569917
0.066469964
-0.427188529
-0.197401963
0.317112936
-0.22075106
-0.180243503
-0.483217584
0.044210022
0.314283678
0.443301051
0.311904577
0.248705375
-0.180914125
0.175087074
0.108676773
0.289325087
-0.412967635
0.166584908
-0.42313444
-0.392760197
0.345519365
0.068036643
0.129380287
-0.526220441
0.439045973
-0.471298993
0.378073995
0.091723739
0.106328552
-0.72661361
-0.260845896
0.057734161
-0.146083423
0.110313201
-0.441227827
-0.010946931
-0.14661619
0.333585735
-0.210892022
0.059431646
0.067097868
0.542233137
0.325350052
-0.110596506
0.125250734
-0.221544931
0.629012994
0.312591573
0.288935454
-0.380479243
0.325561291
-0.280348099
-0.399577305
-0.441977114
-0.141242511
-0.071420967
0.349079556
-0.302930616
0.140549689
-0.142743697
0.172999956
-0.160559607
0.020566331
-0.184399498
-0.150123217
-0.34462311




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=186041&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'Gwilym Jenkins' @ jenkins.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0211, z = 0.0715, p-value = 0.943
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.0933, z = -3.8779, p-value = 0.0001053
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 4.9778, p-value = 0.083
alternative hypothesis: greater 
> geary
[1] 0.8551352

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0211, z = 0.0715, p-value = 0.943
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.0933, z = -3.8779, p-value = 0.0001053
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 4.9778, p-value = 0.083
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.8551352
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=186041&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0211, z = 0.0715, p-value = 0.943
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.0933, z = -3.8779, p-value = 0.0001053
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 4.9778, p-value = 0.083
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.8551352
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=186041&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=186041&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.0211, z = 0.0715, p-value = 0.943
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.0933, z = -3.8779, p-value = 0.0001053
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 4.9778, p-value = 0.083
alternative hypothesis: greater 
> geary
[1] 0.8551352



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