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 computationMon, 15 Dec 2014 13:05:02 +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/15/t1418648713ru54538rchz1kl2.htm/, Retrieved Thu, 16 May 2024 13:07:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268301, Retrieved Thu, 16 May 2024 13:07:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact80
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [skewness] [2014-12-15 13:05:02] [4475d2f35de7f19e7f9792645feacf86] [Current]
Feedback Forum

Post a new message
Dataseries X:
2,70003
1,33705
1,59494
-3,32455
-3,50254
1,8399
4,36167
2,75326
1,19832
-3,92564
1,05412
-5,14022
0,644713
0,293507
-4,53584
0,804548
1,93392
-1,11514
-1,27632
-0,103474
-3,00258
2,16756
0,75832
3,71962
0,448389
0,67633
5,74173
2,06211
-0,138111
0,313566
-2,07965
0,453206
-1,17715
-1,63775
-0,044837
-0,285575
-1,23905
1,61659
-1,74594
-0,00500179
-5,02762
0,484432
1,93062
-0,869894
1,20396
0,672294
1,81742
-2,16849
1,81444
1,61769
0,893266
-4,49717
1,25921
2,23622
2,77561
-0,271623
-4,29455
3,7362
-4,39477
1,80275
-1,35773
1,99332
-2,81307
4,45371
-0,385996
-1,87128
0,657806
1,24062
2,56109
1,15978
0,91527
-0,431631
-2,28144
3,3967
0,963894
3,12392
2,05247
1,05559
-1,22531
-2,26759
0,408621
2,93687
0,611465
-5,88261
-0,443162
1,02523
0,422216
1,42953
-2,34668
2,90466
1,58659
-4,97414
-0,918834
-1,82843
-1,97436
-1,45059
-3,23893
0,619066
2,97579
-1,97382
0,264759
0,431848
-2,10197
-0,270301
3,21148
-1,72437
3,17013
-5,10758
-3,54841
-1,44985
1,05922
0,322446





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
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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
R Framework error message & 
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=268301&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]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=268301&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268301&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
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3872, z = -1.1332, p-value = 0.2571
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7351, z = -0.3862, p-value = 0.6994
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.1257, p-value = 0.2095
alternative hypothesis: greater
> geary
[1] 0.8070491

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3872, z = -1.1332, p-value = 0.2571
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7351, z = -0.3862, p-value = 0.6994
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.1257, p-value = 0.2095
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8070491
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=268301&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3872, z = -1.1332, p-value = 0.2571
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7351, z = -0.3862, p-value = 0.6994
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.1257, p-value = 0.2095
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8070491
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=268301&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268301&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.3872, z = -1.1332, p-value = 0.2571
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7351, z = -0.3862, p-value = 0.6994
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.1257, p-value = 0.2095
alternative hypothesis: greater
> geary
[1] 0.8070491



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