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, 24 Jul 2019 21:07:28 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2019/Jul/24/t1563995269xtov2lguhg1txy0.htm/, Retrieved Fri, 29 Mar 2024 04:46:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=318853, Retrieved Fri, 29 Mar 2024 04:46:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact130
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2019-07-24 19:07:28] [095936a48fd07f0963d107c0200b1eb5] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.0837744178482282
-0.511920356412996
-0.302826611499292
-0.51462742056145
-1.20265125165187
-0.421277589865898
-1.13567217729552
-0.705646349519674
-0.361027061485276
1.76253814006137
3.25809669417749
-0.355278920167739
0.991648818941044
0.848985585697655
-0.242896839596061
0.175388050261258
-0.163585781332844
-0.309176756301983
0.346886569435097
0.902715271425229
-1.11213017436548
-1.24176670647179
0.339935977867587
0.079917028375865
0.0257626370749478
-0.243813840765949
-0.000803553818037566
0.116945148810584
-0.0608955749752088
-0.302955249837876
0.754453630137068
-0.861038677624605
-0.15537181121784
-0.230674579760916
-0.0509622624320076
-0.392252503985706
-0.0990905394788674
-0.322743134459798
-0.54478132283909
0.492940917243168
-3.02069039052779
-0.0420927473056475
-0.557046108616887
-0.345214149553079
-0.138924900531401
-0.262983943774474
1.02750176929732
0.00576890010230789
-0.0886125538220584
-0.2681856533319
-1.80137490724277
-1.23332206076581
0.0206991048464136
-0.564078657514838
-1.38665297566901
-0.252798430634208
-0.589631806793107
-0.245381999639678
0.0694348016681445
-0.0459423269745703
0.27160920708755
-0.184771402855397
-0.250888511986903
-0.374092727450599
-0.292052632273492
-0.552780265469353
0.0437020754480273
0.149263885843472
-1.82270333464803
0.831141149859765
-1.22917184537349
-0.303716894055642
-0.877313410927341
-0.362013195908015
2.61551215735224
-0.351846968378373
1.01626167064003
2.84043577961886
0.0438162393345263
-0.533564083632459
-0.566178971087742
0.747316608078588
0.138536997389797
0.021880534355787
0.831034129829612
-0.181715023557888
3.73241584745601
0.605100310273404
-0.344201914626138
-0.0877881491665191
0.221747071950341
-0.00891223505282127
0.101965546429563
0.206623503466746
-0.0753303905222807
-0.0272452181033564
0.823532019068278
0.349299787413194
-0.271872037229605
0.0728802500257788
-0.434147712639313
-0.0927282593572269
-0.367088125906412
-1.89319919827331
-1.22330940906715
-0.424246999222137
0.237750461557709
-0.32504028714296
3.0715197300032
-0.1641194287742
-0.318130524570163
-0.120501604740896
-0.156429776252911
-0.788117467985471
-0.688728245473462
0.310763732340788
-0.746214996703389
1.7522928432495
-0.415778212408579
1.71948702244062
-0.257193855225489
1.38957766125726
-0.0257489366590766
-0.295026259128803
-0.230059042901498
1.28789243218726
0.00833461968081699
0.060016201315086
0.00968520737684106
0.850086298895842
0.218049439688376
1.09716228685557
-0.455556342235927
0.952036636054416
-1.36951032789756
-0.822924718409043
1.45983685376083
-0.074257243503843
-1.54707865407784
-3.12008936675204
-0.661800381941619
-0.266627402776566
0.123302324011084
-0.942632106500755
0.0185973144822222
-0.456358333672911
4.50110704907642
-0.225866435742276
0.0574203647318389
2.86101761020927
-0.248155724020129
0.561494325009834
-1.11990899630588
2.35210752777671
1.02320033105813
-1.21405084852558
0.408484115158222
0.272469297707846
-0.184099412128681
-0.0160257686123832
-0.48104050604621
0.155139699926519




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=318853&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.1874, z = 5.2671, p-value = 1.386e-07
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 7.164, z = 4.702, p-value = 2.576e-06
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 155.11, p-value < 2.2e-16
alternative hypothesis: greater
> geary
[1] 0.6420107

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 1.1874, z = 5.2671, p-value = 1.386e-07
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 7.164, z = 4.702, p-value = 2.576e-06
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 155.11, p-value < 2.2e-16
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.6420107
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=318853&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = 1.1874, z = 5.2671, p-value = 1.386e-07
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 7.164, z = 4.702, p-value = 2.576e-06
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 155.11, p-value < 2.2e-16
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.6420107
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=318853&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=318853&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.1874, z = 5.2671, p-value = 1.386e-07
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 7.164, z = 4.702, p-value = 2.576e-06
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 155.11, p-value < 2.2e-16
alternative hypothesis: greater
> geary
[1] 0.6420107



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