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:15:50 +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/t1516785380zh61ha2r3j0efhy.htm/, Retrieved Mon, 06 May 2024 07:35:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=312061, Retrieved Mon, 06 May 2024 07:35:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact49
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:15:50] [44e5ac604e28933769df03086174c121] [Current]
Feedback Forum

Post a new message
Dataseries X:
1.60662064915769
0.41012840287692
-1.16377920133699
1.80340467942786
2.38589051032378
0.907778692066113
-0.786609331607051
1.59703526975858
-0.199367415496588
-0.349815576801861
0.564392642090369
-1.95747451429373
-0.687516608822357
1.32542273724884
-1.31049695570509
-1.52509750872398
-0.503709812049412
1.47518172243876
0.602327712441519
0.40266471358115
-2.46376436924969
2.54376467241789
1.13798307314442
0.430011689125775
-1.02261105982714
-3.77617413371121
1.47323614912204
1.93771551220772
2.8169217523755
1.16911252811059
0.745036748057669
-1.40238049028007
0.575294780513103
-2.43150050782371
2.29110924981554
-4.19016004113439
-0.0335432364908738
-0.769465223104435
-2.28778223092082
-0.506273502754917
-1.50177822186338
0.169633340417429
3.16011105816948
0.719716393366406
-0.511534470493481
2.01634792511037
-0.937490809501962
-1.25227479449756
0.226173657506377
1.14698454308553
-1.3758370890086
0.00762261135933934
1.26320807255057
-0.123929402867702
0.727891344583534
-0.543810750278323
-0.735243797821103
-1.22308128630223
-2.20806387663908
-1.55690031296219
-0.0396945297472808
2.62215888026809
2.12728484366897
-2.40048835229199
0.78226380394563
0.466420538670235
-0.257000189790489
-0.093521809412309
1.79299790343857
-0.0931211562832652
-2.99901907682355
1.83359118050514
-0.392079347431284
0.401999426083162
0.813360303716074
0.369830781169386
-0.748450730695918
0.900296859090285
0.148391413905535
-2.70465915255315
-1.16919924106049
1.29973132376862
1.26445664890118
1.70205980975602
0.761304298843252
-1.98223654199183
-0.58789464617678
0.348538115162152
1.45490167380993
1.3402316495971
2.66741357644177
2.40879591924632
0.437345252141074
1.43021559807306
1.51545249615207
-0.871749020583807
0.447697125344694
1.30760777927205
-2.98295933852865
-0.86760786525222
-4.42589402152457
1.29741594252144
0.862887889915862
-1.66116356118572
-0.740498445769239
2.11614787459454
0.0174225572572353
0.347799773463786
-0.278807236234121
0.736143182787931
0.153664096759714
-2.60966850564189
-2.93753798875167
1.4161614644138
-0.440738803890322
0.779032647307211
0.821846789611045
-0.772664397590675
1.58239725608346
-0.0327525877843861
-0.109854947093452
1.23302125011036
-0.133515112770153
0.503057937844265
-0.148846244686579
-2.007561754851
1.12853566609982
0.150714625143973
0.376628839104367
-2.66241119336979
-0.482391001291208
-1.69308722510401
-0.859597441540925
1.61820613191919
-2.01241704464161
-0.659804920922682
0.63702787261414
-0.681431008494568
1.28641815976828
-0.249211316843449
-0.115979383215133
-1.30030223727631
1.72841215689037
-0.79960877335412
1.01137728253744
-0.561466276324694
-0.0150026222339223
2.29953430978656
0.116763396205774
1.16410217633373
-2.22394229611676
0.0403881004381958
1.5734542462899
1.83759271881349
2.70052498194996
0.154425410468449
-1.07757710253679
-2.00673046191454
0.995812906675979
-1.52186791685738
-0.17479957422021
-1.93035019589904
0.447753592902192
-4.88460245764446
1.56993996773968
1.40572626651795
-1.79430184033269
0.112882412710452
-2.8082541765221
0.185876035798845
1.66483590534654
-0.0851061442043675
-0.714922423653885
1.19992233946685
1.08097127309889
-1.3714962917344
-0.85279895290396
-0.175156020132694
0.903371967339544




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=312061&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.53695, z = -2.87790, p-value = 0.004003
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.19050, z = 0.75587, p-value = 0.4497
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 8.872, p-value = 0.01184
alternative hypothesis: greater
> geary
[1] 0.7936743

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.53695, z = -2.87790, p-value = 0.004003
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.19050, z = 0.75587, p-value = 0.4497
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 8.872, p-value = 0.01184
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7936743
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=312061&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.53695, z = -2.87790, p-value = 0.004003
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.19050, z = 0.75587, p-value = 0.4497
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 8.872, p-value = 0.01184
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7936743
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=312061&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=312061&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.53695, z = -2.87790, p-value = 0.004003
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.19050, z = 0.75587, p-value = 0.4497
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 8.872, p-value = 0.01184
alternative hypothesis: greater
> geary
[1] 0.7936743



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