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 computationWed, 06 Dec 2017 14:30:27 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Dec/06/t15125671780qkrczaoe1vmu58.htm/, Retrieved Mon, 13 May 2024 21:29:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=308610, Retrieved Mon, 13 May 2024 21:29:07 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsnatuurlijke loop, interne migratie en internationale migratie met als endogene variabele totale loop
Estimated Impact94
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [Dataset 2: saldo'...] [2017-12-06 13:30:27] [4bbd12ea3a6c2ab532848261ff0d9984] [Current]
Feedback Forum

Post a new message
Dataseries X:
-81.1383023683733
-59.6321356419804
302.470948549971
-86.3205428565044
6.62919562967759
-5.14576187760715
-88.8451654563695
93.5987836457939
81.0638303072915
111.89620971175
-42.3011929186807
-99.7795058622884
29.8851693133986
141.756360316961
-21.04753140179
12.7282763267147
-7.49611927383121
-2.27943292251053
92.8333703877149
-120.666915434205
-60.7268796231891
-75.8815908042164
-57.5672653570026
-23.6392264585691
16.309521717826
19.6247902555776
157.541418394939
-46.6939328804624
-144.087694040118
29.5245014232663
-37.2954143628973
-4.85406246135653
-83.6103575647513
-31.9790195505486
-57.2714821141623
80.3841051433973
122.593964945132
-134.209566082113
-9.8705130787063
52.3437423784964
10.9158136122162
4.0160455162511
-40.0180976324156
36.8605642933725
128.51333456576
-53.4918816092158
-48.3640267512073
-67.2168197915231
-23.8286065897324
128.087982493725
-9.76238355812054
54.4035961165089
-25.0707318737922
-64.789424047626
-0.388818631369523
-40.1844068532035
7.54004050806084
-54.7173285006469
-26.0306398230665
-56.8368350548412
62.7824882908239
-81.6818895043701
24.7529753069852
-3.0329484187754
28.2192858026944
-62.7358859625969
387.660144828022
-34.0419092633896
-98.2281169591374
-52.176098565065




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=308610&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=308610&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308610&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = 1.7509, z = 4.8286, p-value = 1.375e-06
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 7.7175, z = 3.8437, p-value = 0.0001212
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 100.67, p-value < 2.2e-16
alternative hypothesis: greater
> geary
[1] 0.7096776

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 1.7509, z = 4.8286, p-value = 1.375e-06
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 7.7175, z = 3.8437, p-value = 0.0001212
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 100.67, p-value < 2.2e-16
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7096776
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=308610&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = 1.7509, z = 4.8286, p-value = 1.375e-06
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 7.7175, z = 3.8437, p-value = 0.0001212
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 100.67, p-value < 2.2e-16
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7096776
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=308610&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308610&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 = 1.7509, z = 4.8286, p-value = 1.375e-06
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 7.7175, z = 3.8437, p-value = 0.0001212
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 100.67, p-value < 2.2e-16
alternative hypothesis: greater
> geary
[1] 0.7096776



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