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, 13 Dec 2014 11:01:26 +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/13/t1418468505eik2injkkyi4irx.htm/, Retrieved Thu, 16 May 2024 04:22:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266976, Retrieved Thu, 16 May 2024 04:22:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact76
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-13 11:01:26] [6baf0af87d9d8aa2cb91b54f39a0a5b0] [Current]
Feedback Forum

Post a new message
Dataseries X:
3.83153
1.30988
4.15186
-2.65066
2.18707
-8.70896
0.854392
1.16863
0.106181
-3.43842
1.71521
-7.0421
0.162579
1.51586
-1.42932
-2.89147
0.605598
2.77178
-0.778547
-2.58998
-4.41888
2.32145
2.48838
-1.22904
2.58894
-11.1944
8.0432
1.43691
2.13627
-1.5344
-1.33941
0.225202
4.64767
-0.962516
2.69568
-0.499837
-8.80082
-6.67939
0.647314
7.67696
2.82322
2.33536
1.69396
4.75104
-2.1151
3.6966
-5.6934
-1.64651
-2.04968
4.57737
2.62112
-4.71926
-1.35669
-0.108081
-2.97543
6.8045
2.21522
-6.25105
-9.34299
8.47475
6.68614
5.25001
3.45897
-1.51428
-0.420652
0.327611
0.0425119
-2.22
-3.52356
1.58122
6.296
1.35176
2.86244
1.89566
-3.3765
6.80402
-2.03122
4.5379
1.11119
-5.94951
3.56941
4.13092
-6.00336
4.22836
-0.907153
-9.03312
1.59129
-4.15646
3.6512
6.23553
0.827701
-1.17713
-0.0032585
-0.959235
4.35348
-1.5742
1.50212
5.1171
3.18654
5.0353
0.524116
-0.0293426
0.63806
-10.3023
-3.35422
-0.889459
-7.92905
-10.6058
-2.9024
-0.625512
-0.162412
0.63146
-0.613163





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.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=266976&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]'Herman Ole Andreas Wold' @ wold.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=266976&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266976&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'Herman Ole Andreas Wold' @ wold.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.550, z = -1.574, p-value = 0.1155
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1681, z = 0.6716, p-value = 0.5019
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.8296, p-value = 0.05421
alternative hypothesis: greater
> geary
[1] 0.7718913

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.550, z = -1.574, p-value = 0.1155
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1681, z = 0.6716, p-value = 0.5019
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.8296, p-value = 0.05421
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7718913
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=266976&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.550, z = -1.574, p-value = 0.1155
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1681, z = 0.6716, p-value = 0.5019
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.8296, p-value = 0.05421
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7718913
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=266976&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266976&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.550, z = -1.574, p-value = 0.1155
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1681, z = 0.6716, p-value = 0.5019
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.8296, p-value = 0.05421
alternative hypothesis: greater
> geary
[1] 0.7718913



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