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 computationFri, 02 Nov 2012 08:45:15 -0400
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/02/t1351860397f08xemiwri1odi8.htm/, Retrieved Mon, 27 Jun 2022 06:24:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=185608, Retrieved Mon, 27 Jun 2022 06:24:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact116
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [WS7 10] [2012-11-02 12:45:15] [851af2766980873020febd248b5479af] [Current]
Feedback Forum

Post a new message
Dataseries X:
0,5289553155589160
1,0795990914277700
2,5035691283495400
1,1968018488255600
2,2621985144496100
0,1675795984433140
1,1868194692454600
-1,2505572310752800
0,6179530298875080
-0,1003623053567360
-0,7884232948315860
-0,1656729948185870
-1,1514025373706900
0,3576140338077230
-1,5555138193455800
-5,9315173474010200
-0,5718883104944550
-1,8289659321642400
1,6915435314417800
1,4143322013433900
0,9382373601462850
-1,5271938787825900
1,8627369128986900
-0,1244126364061990
-0,8710066155562950
-4,4933771056537100
-2,6758735959078000
0,0131765787043652
0,9941346811033210
-1,9993260746890600
-0,6442899318664780
-0,0579091853624841
-2,5734388856631400
0,3707202670163830
-2,2158279027379200
1,5109995663081100
-0,0848336501057932
0,7367822704482010
-0,2037450261959020
1,9577792436340700
0,8111408656420470
0,1504403547423030
-0,4081239160177930
-0,3315420802973550
0,5124252623433140
1,0979350485424000
1,8350815136645400
3,4855294724894800
-3,8036983178067500
0,6086367540727820
-3,4356465732072100
-0,3045161962129770
1,5005292577557100
0,9179464811836530
0,3106808823144350
3,3352360576780300
-0,3948552598343450
1,5391321862306900
-1,8972308964944900
-0,0734340277607383
0,5344695088869730
4,1591382792064800
0,2103721536029200
-0,9318914872740260
0,2755389674984050
1,8079670001398200
-0,0009399937043473
0,6788235175907520
1,4176696415906200
0,9791297322198050
-1,4659920694421600
-0,0467263021787771
0,6454152453327600
-0,1513400589162510
-2,1175645148208300
1,0028001883982800
0,1943031245665970
2,0239253921543800
-0,0579234968137048
-0,2484618653646990
-1,3281275820727200
1,3427960263725200
2,5468244104264800
0,3713789001241610
1,6449810169619300
-2,1453694900908400
0,9620889473384400
0,2508198912043080
1,5773817621568400
0,0941899170956652
1,0922986031741000
0,2009441920994310
2,5165398503008200
-1,2771323268366500
-2,8509364773880700
1,3164375215603800
-1,4792823293474000
1,1648325744000600
-1,9141842200432200
0,4418656460949280
-1,1736541778858800
0,3365815674116860
-2,8746164193224200
-1,1543033457696300
-1,0767908814515100
-0,8394709523719420
-0,3974052626856010
0,8950337470234740
1,0561972107226000
-2,9071263620085300
1,9673540117145900
-3,1636475556094900
2,1361462403714400
-1,9433450129311300
-1,6453339855165200
-0,2770482712386600
0,8804528318855750
0,4459004677552830
-2,1466576650312000
-1,2774972691710100
-5,1923006180559800
2,9912290822740400
1,7988821116966100
0,3406306526371550
1,1846528212546200
-4,0215863915473000
1,9663880349396200
-2,1597746117287800
0,8534830591018050
0,1736742841637530
-2,9218993883106200
-1,2061099050721700
2,1210647272951700
4,3001640180371600
1,8224700669306400
-2,4357082686838700
0,0663078527130319
1,6062302432236000
1,1083668206726700
0,9985467185021890
-0,1643515174618420
0,4601502450410280




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=185608&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'Gertrude Mary Cox' @ cox.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.5624, z = -1.7787, p-value = 0.07529
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.6783, z = 1.6434, p-value = 0.1003
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 10.2071, p-value = 0.006075
alternative hypothesis: greater 
> geary
[1] 0.7685648

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.5624, z = -1.7787, p-value = 0.07529
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.6783, z = 1.6434, p-value = 0.1003
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 10.2071, p-value = 0.006075
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7685648
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=185608&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.5624, z = -1.7787, p-value = 0.07529
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.6783, z = 1.6434, p-value = 0.1003
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 10.2071, p-value = 0.006075
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7685648
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=185608&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=185608&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.5624, z = -1.7787, p-value = 0.07529
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.6783, z = 1.6434, p-value = 0.1003
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 10.2071, p-value = 0.006075
alternative hypothesis: greater 
> geary
[1] 0.7685648



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