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, 18 Dec 2014 22:56:59 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/18/t1418943426huf0mt19ipy6ufp.htm/, Retrieved Sun, 19 May 2024 18:07:21 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271314, Retrieved Sun, 19 May 2024 18:07:21 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact90
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-18 22:56:59] [a3de03a8fa2b95b1b988206b9ba33408] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0,649173
-0,402487
0,6064
-0,192462
0,0994248
0,031682
-0,536291
0,293323
-0,547776
-0,737749
0,173364
0,7554
-0,713434
-0,59575
-0,148998
0,405026
0,470935
-0,345885
0,410122
-0,778184
-0,645383
-0,0123846
-0,320784
0,0536253
0,0906042
1,3487
0,0569324
0,123312
-0,200275
0,99365
0,565718
-0,273884
-0,30447
-0,375464
0,919339
0,0812767
0,303218
0,394447
-1,00624
-0,195315
0,481325
-0,551621
-0,309025
-0,0122296
-0,667838
-0,771103
-0,568117
-0,317672
-0,0979564
0,464367
0,457237
1,58432
0,345251
0,150776
-0,370503
-0,0492015
-0,0674203
-0,0021975
-0,0849305
0,788037
-0,759157
-0,328277
-0,328277
0,732102
-0,058361
0,325332
-0,0511497
-0,149632
0,604701
-0,641212
0,156182
0,71244
0,935673
0,712537
0,377661
0,250875
-0,698648
1,11038
-0,923417
-0,662056
-0,146919
0,889997
-0,346556
0,0942857
0,214748
0,893699
-0,113176
0,91406
-0,00193388
-0,258243
-0,709105
-0,10854
-0,327475
-0,0812538
0,34072
-0,09148
0,157922
0,730059
-0,783674
-0,613445
-0,954745
0,076499
-0,657588
-0,560399
0,190787
-0,246906
-0,998904
-0,143941
0,522335
-1,04349
-0,987151
1,17521
0,27181
1,33231
0,893912
-0,315799
0,327619
0,514956
0,848737
0,0898834
-0,295221
0,0631587
-1,02698
-0,808619
0,802256
0,486484
0,21571
1,25684
-0,141603
0,952421
-0,331124
0,345251
-0,90938
-0,952356
0,112386
1,12347
0,413244
0,142165
0,281051
0,739795
-0,809616
0,0622337
-0,0922264
-0,190374
-0,7666
0,172374
-0,520764
0,359631
0,150776
-1,14188
-0,374918
-0,331124
0,047548
-0,451839
-0,384455
1,16812
0,214023
-0,0817211
-1,06126
0,623508
0,73782
0,349375
-0,636346
-0,566244
-0,165994
-0,681137




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = 0.2707, z = 0.9615, p-value = 0.3363
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5134, z = -1.4751, p-value = 0.1402
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.6646, p-value = 0.16
alternative hypothesis: greater
> geary
[1] 0.8113509

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 0.2707, z = 0.9615, p-value = 0.3363
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5134, z = -1.4751, p-value = 0.1402
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.6646, p-value = 0.16
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8113509
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=271314&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = 0.2707, z = 0.9615, p-value = 0.3363
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5134, z = -1.4751, p-value = 0.1402
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.6646, p-value = 0.16
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8113509
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=271314&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271314&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.2707, z = 0.9615, p-value = 0.3363
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5134, z = -1.4751, p-value = 0.1402
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.6646, p-value = 0.16
alternative hypothesis: greater
> geary
[1] 0.8113509



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