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 15:58:50 +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/t1418918340wikwysro1nv4boj.htm/, Retrieved Sun, 19 May 2024 19:41:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271102, Retrieved Sun, 19 May 2024 19:41:42 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact137
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Verklaring examen...] [2014-12-18 10:27:57] [94e0b03eaaae24ea322c1a0c8a3c30a1]
- RM D    [Skewness and Kurtosis Test] [normaal of niet] [2014-12-18 15:58:50] [0adf43ccf8dfa476608a94fd7836e72e] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,88483
1,22192
2,10286
-4,77577
-3,5597
0,392577
3,50205
1,20006
-1,891
-3,13261
-0,17157
-5,48551
0,404247
-0,839968
-3,41356
0,932314
-0,0767137
-1,67376
-1,08529
-0,533987
1,3636
-0,641625
1,77554
0,441363
-1,46516
2,30779
2,74012
-1,0539
1,31696
-2,31046
1,10791
-1,55898
-2,72262
0,175267
-0,83055
-0,482046
2,2572
-3,2434
0,549526
-4,34165
-0,405708
1,32561
0,154179
2,19862
-1,01134
1,20798
-3,21021
2,87105
2,04906
1,45488
-2,26302
0,699436
1,58559
1,8391
-0,224938
-4,31382
3,1599
-0,792825
2,66263
-2,74341
2,04278
-2,13244
3,91382
-2,19897
-0,80106
-1,66522
0,495176
3,12968
1,51809
-0,680625
0,592094
-0,927428
3,40878
2,01437
1,36089
2,5528
1,74346
-0,121059
-2,80236
0,54836
2,86524
0,550526
-5,66745
-0,948622
0,834369
0,436364
0,641357
-1,19937
2,62584
3,38969
-3,85628
-0,325322
-0,759454
-1,85514
-0,756654
-3,30543
1,22681
4,44421
-3,05797
1,30772
-0,115211
-0,862559
3,76595
-1,61573
3,81759
-3,10527
-0,219553
1,8173
1,30684




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271102&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.3406, z = -0.9910, p-value = 0.3217
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5758, z = -0.8802, p-value = 0.3787
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.9244, p-value = 0.2317
alternative hypothesis: greater
> geary
[1] 0.8188713

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3406, z = -0.9910, p-value = 0.3217
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5758, z = -0.8802, p-value = 0.3787
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.9244, p-value = 0.2317
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8188713
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=271102&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3406, z = -0.9910, p-value = 0.3217
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5758, z = -0.8802, p-value = 0.3787
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.9244, p-value = 0.2317
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8188713
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=271102&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271102&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.3406, z = -0.9910, p-value = 0.3217
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5758, z = -0.8802, p-value = 0.3787
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.9244, p-value = 0.2317
alternative hypothesis: greater
> geary
[1] 0.8188713



Parameters (Session):
par1 = 1 ; par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ;
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')