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, 22 Dec 2011 08:53:52 -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/2011/Dec/22/t13245620746lkn1jebyfztwbs.htm/, Retrieved Fri, 03 May 2024 11:09:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159460, Retrieved Fri, 03 May 2024 11:09:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact91
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [] [2010-12-05 17:44:33] [b98453cac15ba1066b407e146608df68]
- RMPD    [Skewness and Kurtosis Test] [Residuen Normalit...] [2011-12-22 13:53:52] [e569a00cc6e8044e6afea1f18dd335a0] [Current]
Feedback Forum

Post a new message
Dataseries X:
2.6039782638377
-124.528617496254
-190.230868712537
-37.8827967077306
151.158700784179
-220.789958096389
183.180654644292
2.74934765383677
95.3197588755689
-30.5255095204367
-21.9315609902916
-163.430774624237
-183.376169253961
9.49171834903755
-283.649217826739
128.860767316254
-166.882616828169
-3.89200993290864
164.672565657097
242.691324178719
-154.372981862392
-9.23271457062507
111.880908033971
299.232265475886
22.198741841518
-163.276747051388
-4.19498885756812
219.24136331096
117.756484057333
-233.213120438928
-139.120171681595
-74.6162754214377
115.259200384978
-108.192191815232
-215.524183046789
73.5392178766469
77.8549848302753
65.4062667223055
268.083873152185
-191.546204320176
21.7863141242751
161.610869822742
-168.647465002583
50.0300981152442
-237.621264401197
-45.1374561629447
-29.0650564058435
-126.318664990487
-173.242209881678
116.159807147715
-243.799617244922
279.248997469391
-60.1567098128136
-190.427138612701
41.0923992124408
-28.2374932438862
155.616983132722
-124.572710561783
140.370310586464
-74.9873272717923
-233.742868989422
-192.631130915031
-88.0386666980723
143.624100018193
138.577924401946
-103.786560796776
129.303913568974
-70.7609453620027
-40.1136461895912
-35.266855053239
-46.9031894144637
-335.601385137291
-490.284124022367




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1057, z = -0.2629, p-value = 0.7926
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.7585, z = -0.1546, p-value = 0.8772
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 0.3133, p-value = 0.855
alternative hypothesis: greater 
> geary
[1] 0.8127554

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1057, z = -0.2629, p-value = 0.7926
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.7585, z = -0.1546, p-value = 0.8772
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 0.3133, p-value = 0.855
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.8127554
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=159460&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1057, z = -0.2629, p-value = 0.7926
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.7585, z = -0.1546, p-value = 0.8772
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 0.3133, p-value = 0.855
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.8127554
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=159460&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159460&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.1057, z = -0.2629, p-value = 0.7926
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 2.7585, z = -0.1546, p-value = 0.8772
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 0.3133, p-value = 0.855
alternative hypothesis: greater 
> geary
[1] 0.8127554



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