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 Jan 2018 10:25:34 +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/2018/Jan/24/t1516785963ji2r2msncn6nrk8.htm/, Retrieved Mon, 06 May 2024 08:52:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=312187, Retrieved Mon, 06 May 2024 08:52:03 +0000
QR Codes:

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

Post a new message
Dataseries X:
1.33621537790503
-0.0883679493106711
1.12385469271478
-0.249841190093065
-1.80759323798305
-1.05665177644599
-0.137533645854384
-0.697263029847123
1.5443859603161
-0.652794055249002
1.89088599938523
2.62923413372036
0.77123046303951
-2.23049664577729
-2.44823548901961
0.216448083910741
-0.627650984309823
1.30191980140239
0.43513172379962
-1.94343964642914
1.25137761520929
0.120563518937996
-0.348814612240614
-0.724201921321466
-1.93233672700654
2.37230579649419
0.114322060425645
-1.36856320518531
-0.222276075397648
-0.239562158947831
-1.36026303581896
0.0588928863586822
-0.559223805898601
1.94522073156367
-0.0105299761879669
-0.0806198954584193
-1.00744823938596
1.06927182857244
1.00675508668643
-0.382134317731582
1.93703358937846
0.0594414323054162
0.914408466517072
-0.490574842250771
-0.521256896954698
1.73437269564954
1.90835520964327
0.450890695928749
2.00199959355354
-1.28706925395295
1.71935773683704
0.378434528270756
-1.04545479785791
-0.169556990280333
-1.14241013662741
0.0582585713926225
0.884518728809331
-0.855452374634917
0.393966080531542
-0.0479010834175447
-0.256704205602406
-0.00736170354259634
1.02227076550795
-0.125145991889406
2.35098533494358
0.686899586273664
2.66440183133361
0.481836404540146
-0.747993572626763
-0.384220473220917
1.49758279845751
-1.32466520005259
0.00824111549497071
-1.43791815247073
-0.681649805860751
-1.56157414580671
-1.3051505366151
0.113303188782433
0.0754872780067234
0.353335194411331
-0.679232456553607
1.28351450980665
-0.344996083029103
-2.25008634821079
-0.559673464130017
0.942144719808302
-0.647105098283207
-0.5586874438861
-0.684877528836616
-1.46991331972209
-3.50442033509832
0.151506948251482
-1.43201559845539
0.228062002290268
0.261892680549374
0.93782061592719
-0.851189554272599
-0.826573762790993
-0.794972079031398
-0.531000516211538
3.12466150352149
-0.306371393056496
0.283581628299124
0.111046267369916
-1.87966735628702
-1.13318703034264
-1.70336417984348
0.60553565157434
1.13190253365715
0.249098012293614
-3.74894646292024
1.18886690379161
1.7177719862088
-1.29208495403403
0.886165256845191
1.00910676437151
-0.738635499662659
0.175533578365271
-2.09106337876934
0.686053359878448
-1.09834582463822
-0.239407576672714
1.85875085356667
-0.35303483205351
-0.688063533070343
0.439515480549814
-0.907392054283623
0.4915221282421
0.81343035085784
-0.571383469576012
-0.549666931962893
-0.290889353525264
1.27381418496103
-0.157907532306931
-0.849809134942522
1.97599789356083
0.810778593915414
0.495725290904828
1.09017865354109
-2.4598600453568
1.25613924021373
1.04906060256996
-1.21911614475666
0.458449290795233
-0.993046752605507
0.439317887834358
-0.247987132919259
0.428432272619582
-0.528379804910347
1.32111382350774
0.113980047718783
-0.996549079064233
-0.622319034136523
-1.00965875999639
-0.502125356703514
0.390732498856907
-0.797652924447868
0.251274202556779
0.928900619732695
0.704589136166822
-2.23715360040258
1.80985672340211
-0.217449969507439
3.38074388505071
0.744753036928177
-1.6146302922909
0.980652064022014
-1.44035244469514
0.972994423477877
0.951690129265195
1.64449338750579
0.237212824536862
-0.794630908584342
-1.69363473464163
0.806134291128901
0.491437592959568
0.685739288240784
-0.315001183872576
-0.163658169095367




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=312187&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.022646, z = -0.128410, p-value = 0.8978
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.28250, z = 0.97312, p-value = 0.3305
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.61062, p-value = 0.7369
alternative hypothesis: greater
> geary
[1] 0.7902574

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.022646, z = -0.128410, p-value = 0.8978
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.28250, z = 0.97312, p-value = 0.3305
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.61062, p-value = 0.7369
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7902574
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=312187&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.022646, z = -0.128410, p-value = 0.8978
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.28250, z = 0.97312, p-value = 0.3305
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.61062, p-value = 0.7369
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7902574
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=312187&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=312187&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.022646, z = -0.128410, p-value = 0.8978
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.28250, z = 0.97312, p-value = 0.3305
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.61062, p-value = 0.7369
alternative hypothesis: greater
> geary
[1] 0.7902574



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