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 computationSat, 10 Nov 2012 15:44:14 -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/10/t1352580274br1iq5jgtke1393.htm/, Retrieved Sat, 10 Dec 2022 05:57:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=187424, Retrieved Sat, 10 Dec 2022 05:57:48 +0000
QR Codes:

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

Post a new message
Dataseries X:
0,00
-0.0444630198027383
0.360524437139486
-0.526273130782507
-0.107821018746853
0.315667117200098
-291356333360034,00
-320006524017127,00
155147061089406,00
387266379145731,00
138606790653778,00
0.646192003721311
0.143794742003424
-0.52332734584932
0.418181552681014
-0.655595327010974
-0.457764247789411
-0.185132367080547
-109367031344713,00
-192728426099601,00
172297257579309,00
0.751238066463147
144576884957914,00
0.809200690708658
-0.0217542197044055
0.734642303727645
-0.135794636901696
0.381002417826397
-0.500310721184709
-0.294117414964036
-0.398795255190011
-0.605209716060285
0.483912792396615
0.555294193381863
-0.335696117293448
126440901480222,00
0.482508123064026
0.611421992282634
143940534387595,00
0.157979752309502
-0.745518642283325
-0.415743928687551
-172909383552137,00
-0.549434601839517
0.381285137019485
0.243308311094852
142177462632016,00
-0.644783629498079
10218455407762,00
-0.245519770577
-0.351980343407318
-0.268195473357659
0.844006197175531
0.693133463438753
-0.645399469533269
-0.498919998501138
-0.46450523414113
-0.508073264365704
-0.780374127471211
0.79976246114784
127826816074499,00
0.920668314341161
-107603310635026,00
-0.658497597887056
0.451198494901602
-108917660321024,00
-0.277903496593212
-0.157109273965743
-117165865249605,00
0.689833203608197
130882922794767,00
0.475320399090417
-0.579874284458086
-0.125663826139505
0.652662697891046
0.899561807409983
-121789348815966,00
-0.459352572708449
-0.0606662760049782
0.0770830069199614
0.900111016220085
183338754344646,00
-0.0826690225568126
-0.789783983249319
-0.037835257187956
-0.591229892137465
-0.0991105159246446
0.78860138638812
-0.400778527673236
181004159197182,00
131329848607158,00
-0.563206040190319
0.86226495431942
-0.697835704692295
-0.141624435788432
191788366022479,00
0.11894384303206
0.532683392293619
209668663215774,00
-0.625348307475803
-0.624557680848542
-134274054734612,00
-0.930979104526215
-0.38183522712832
0.594873902731027
-0.240036878710386
200553104521738,00
-0.803293655142661
0.123168731334578
0.18783108776674
-0.0584109390440604
-0.440192811514697
0.320559452573175
-0.167274300831065
-0.00323427436621745
0.00562203019148305
-0.0150416600611853
-0.0196848707480036
-123107331809738,00
-0.510909865194458
-0.187415551024846
107821007328533,00
0.529521171961031
-0.566040387021278
236728143742717,00
-114336303131602,00
-0.595242112218979
-0.530242233624219
112070791619668,00
232424421543855,00
-0.640547210461122
0.282030228434567




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.3677, z = 1.1619, p-value = 0.2453
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 7.5300, z = 4.5422, p-value = 5.568e-06
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 115.8388, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.5552644

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.3677, z = 1.1619, p-value = 0.2453
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 7.5300, z = 4.5422, p-value = 5.568e-06
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 115.8388, p-value < 2.2e-16
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.5552644
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=187424&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.3677, z = 1.1619, p-value = 0.2453
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 7.5300, z = 4.5422, p-value = 5.568e-06
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 115.8388, p-value < 2.2e-16
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.5552644
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=187424&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187424&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.3677, z = 1.1619, p-value = 0.2453
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 7.5300, z = 4.5422, p-value = 5.568e-06
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 115.8388, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.5552644



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