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, 06 Sep 2018 14:24:32 +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/2018/Sep/06/t1536236682j5dufx2p06wc27o.htm/, Retrieved Thu, 02 May 2024 01:52:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315459, Retrieved Thu, 02 May 2024 01:52:40 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact61
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2018-09-06 12:24:32] [69cd1ec72740cddbc5bf0f2e99493d8d] [Current]
Feedback Forum

Post a new message
Dataseries X:
1.70617065320644
0.10059705515682
0.50180172810152
-0.523547476880621
-1.88623077630859
0.049750156486858
-0.40266140170263
-0.317388934253246
1.92330503630556
-1.27111338294723
1.33153070962508
2.82195608015821
1.10364527116909
-2.34465703409354
-2.91994209579491
0.227111964424493
-0.751106890425568
1.96149681405207
-0.107947549790444
-1.66574153928132
1.77071080030737
-0.6717736632141
-0.969805548034916
-0.517367520028576
-1.49354847146341
2.4091632067848
-0.403221641008799
-1.43123311967064
-0.446379324487207
0.57693732412938
-1.76198054418356
0.402833808545703
-0.148901772250664
1.54712661650026
-0.630609464718861
0.114785262928913
-0.496372628966204
1.17830619664052
0.491225470362972
-0.279889226413928
1.88809527413944
0.957474414481067
0.215753422132228
-0.189362984069504
-0.171545150655529
0.780773615090529
1.40590800168257
0.510925619939303
2.35749419824431
-1.2517022143261
1.08402338857214
0.411445339061913
-1.00837965376171
0.748493818390694
-1.45077382237027
0.561034767515078
1.35026720824016
-1.36306476783885
-0.102791019593872
0.237008555332902
0.23387039828925
-0.259043662514248
0.459606037785444
0.0609431411991575
2.25871691974735
1.80176023122065
2.32306547052532
0.680217045088904
-0.33693095376597
-0.999619228759635
0.968685040576781
-1.18807037294462
-0.0123137992867212
-1.72730477312197
-1.36123887451906
-1.66474419519648
-1.49847252739489
0.912478033698003
-0.226677022261683
0.77304266840376
-0.354628505415291
0.895680073097874
-0.861259550940296
-1.94893306335464
-0.110257735412604
1.0272740129424
-1.25116647119761
-0.598600342516376
-0.827624955890879
-0.443011025452294
-4.00513093716366
0.296994412225146
-1.00200894093646
-0.56593418287265
-0.289256412770643
1.21973647525992
-0.721073326339187
-0.837829867453508
-1.20480162226833
-0.642855763663786
3.2033212726817
0.581610774911137
-0.0120742491456084
0.468138111009432
-1.2947062693869
-1.79882101681259
-2.1482283082615
0.702927494182577
1.35854163385505
0.325426755498215
-4.09304019055312
1.28090083020772
1.80945959311873
-0.414758015370726
0.542964754988194
1.20054230457831
-0.385040271211251
-0.411340076881552
-2.69000230427478
1.02807858219832
-0.528640173007985
-0.353496662770883
1.33000884156976
-0.413141223613145
-0.651897825298895
1.37159859386356
-1.26042394651571
0.810601357585135
1.59059289918943
-1.02527691240261
-0.983915327394013
-0.0368436973425419
1.66643108600479
-0.160016776633956
-1.09048763599126
1.97049515854372
0.636602272974203
1.39317063747011
0.773626607677339
-2.31859771180602
1.62507091461344
0.428395004484571
-1.70227325085605
0.550056588240212
-0.584991749929111
0.234997797737675
-0.690297571314824
0.0860857545762955
-0.72115381837732
2.1418062060819
-0.314894375580305
-0.968862387688193
-0.233736765027137
-1.81910725643172
-1.12337440232568
0.5214790359093
-0.354176699495264
0.575108848166658
0.280873892341334
0.780159609724568
-2.27677620971428
2.83735875418424
-0.582261374215875
3.78187044477234
1.09539197841779
-2.22177370259056
0.300925811814713
-1.10893758656646
1.44204699025885
0.60657156800743
1.23532979506766
0.127161027414262
-0.878743890479554
-0.566959087245596
0.448850409125534
0.77152909445776
1.25909702412887
-0.939022028156754
-0.738509366783206




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315459&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]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=315459&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315459&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 time1 seconds
R ServerBig Analytics Cloud Computing Center







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.071909, z = -0.407320, p-value = 0.6838
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.4147, z = 1.2601, p-value = 0.2076
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.4369, p-value = 0.4875
alternative hypothesis: greater
> geary
[1] 0.7939816

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.071909, z = -0.407320, p-value = 0.6838
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.4147, z = 1.2601, p-value = 0.2076
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.4369, p-value = 0.4875
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7939816
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=315459&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.071909, z = -0.407320, p-value = 0.6838
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.4147, z = 1.2601, p-value = 0.2076
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.4369, p-value = 0.4875
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7939816
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=315459&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315459&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.071909, z = -0.407320, p-value = 0.6838
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.4147, z = 1.2601, p-value = 0.2076
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.4369, p-value = 0.4875
alternative hypothesis: greater
> geary
[1] 0.7939816



Parameters (Session):
par1 = FALSE ; par2 = 1 ; par3 = 0 ; par4 = 1 ; par5 = 12 ; par6 = 0 ; par7 = 1 ; par8 = 2 ; par9 = 1 ;
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')