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, 19 Dec 2012 08:32:00 -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/Dec/19/t1355923941qvspwk75ma1l3sz.htm/, Retrieved Fri, 01 Nov 2024 00:16:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=201927, Retrieved Fri, 01 Nov 2024 00:16:59 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact161
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [Paper, Pearson Co...] [2011-12-18 12:42:54] [75512e061a94450f738c2449abbaac12]
-   P   [Kendall tau Correlation Matrix] [Paper, Kendall's ...] [2011-12-19 10:46:53] [75512e061a94450f738c2449abbaac12]
- RMP     [Multiple Regression] [Paper, 3.3 Meervo...] [2011-12-19 15:22:52] [75512e061a94450f738c2449abbaac12]
- RMPD      [Skewness and Kurtosis Test] [paper, skewness a...] [2011-12-20 18:39:20] [75512e061a94450f738c2449abbaac12]
-    D          [Skewness and Kurtosis Test] [Skewness and kurt...] [2012-12-19 13:32:00] [2d2e1459719df4dac57978867f50cb50] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.961174087867868
-0.00237983733893331
-0.0645141328564004
-0.104994928494615
-0.150364997120161
-0.173743801569872
-0.201237267229252
-0.192310470768267
-0.219639099230981
-0.238617245375124
-0.110124710787306
0.975447863781942
0.0121541229981904
0.0350982906620005
-0.008672103038878
-0.0115324112258603
-0.0254473126230187
0.958076034538619
-0.058676165001329
-0.0826298564317625
-0.0907412566066105
0.909258743393389
0.137015869310556
-0.791500429277056
0.226866365328494
0.170359751144423
0.137545268500796
0.116318165708262
0.123671151612173
0.116410185119621
0.0890815566569192
-0.930770033213723
1.02732385048499
0.0477911118448778
-0.74600564663489
0.290809894924565
0.307401577218483
-0.759846303085019
-0.786410770164427
0.199949875139999
0.207302861043908
0.185225324569069
-0.885459178063843
0.0455437321541697
-0.00168772108200801
0.0365076533499898
0.287967361201908
0.36520422379756
0.353703116245475
0.225986920188908
0.161791515263921
-0.873562241074632
0.0865185070845685
-0.923607087545618
0.0592411135246963
0.039012934308515
0.0180353640539828
0.0104840805149006
0.22157659502241
0.267156988635107
0.26893210094674
0.200658499369957
-0.857185847346866
0.0974588543725546
0.0570292936371271
0.0426270933895265
0.00884714760804069
-0.00144328421882253
-0.0183061932636766
-0.0380849653489946
0.105183354712594
0.118334094726439
0.117208114342562
1.05269780536917
0.00773007912632591
-1.05854331480672
-0.0545289127076374
-0.0847586338658535
-0.10611279346592
-0.111188597862802
-0.152170035534762
-0.201315535446108
-0.0781483377931809
0.929677065285787
-0.0947534746007814
-0.110566225166448
-0.149035719138325
-0.15887242388368
-0.17614970266322
0.782068233723647
-0.252737433331119
-0.254273463499046
-0.284728279989383
0.740701183473541
-1.09712516810605
0.94335562753221
-0.0590849640098026
-0.100476451465801
-0.11752799128489
-0.0978339145409005
-0.061114984344326
-0.0346093482386506
-0.0192416848531983
-0.0423084780434488
0.922761802213626
-0.0579480403827707
0.11091600750011
1.14938260868304
0.163933298824692
-0.898036159496104
1.07519675583866
0.0880897236152704
-0.909086321425183
0.0896636455027791
-0.930564533713409
1.05384702751967
0.0230424193807341
0.0209175154204943
0.132184006131612
-0.839163087386618
-0.843015656408399
0.0824985068397358
1.02338935670594
-0.0416444545493731
-0.082250730037493
-0.132797645703873
-0.157137593340795
-0.16101317240676
0.805593138018239
0.81818376139633
-0.0273179264105021
-0.985587097700198
0.0281131587591395
-0.023854757619615
-0.0517582730630412
-0.0741218066337642
0.933956133102586
-0.0666187538781284
-0.075469878230393
-1.0612646597867
0.940460644783808
-1.04691226728023
0.0743705357178721
0.122437652291408
0.150153852791857




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=201927&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=201927&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201927&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.0241, z = 0.0818, p-value = 0.9348
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.5458, z = 1.4323, p-value = 0.1521
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.8137, p-value = 0.4038
alternative hypothesis: greater 
> geary
[1] 0.6641616

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0241, z = 0.0818, p-value = 0.9348
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.5458, z = 1.4323, p-value = 0.1521
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.8137, p-value = 0.4038
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.6641616
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=201927&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.0241, z = 0.0818, p-value = 0.9348
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.5458, z = 1.4323, p-value = 0.1521
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.8137, p-value = 0.4038
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.6641616
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=201927&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201927&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.0241, z = 0.0818, p-value = 0.9348
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.5458, z = 1.4323, p-value = 0.1521
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.8137, p-value = 0.4038
alternative hypothesis: greater 
> geary
[1] 0.6641616



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