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 computationTue, 16 Dec 2014 19:27:25 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/16/t14187580745qg6qagte7o1cws.htm/, Retrieved Thu, 16 May 2024 06:28:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=269904, Retrieved Thu, 16 May 2024 06:28:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact81
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Skewness and Kurtosis Test] [] [2014-11-04 10:14:29] [32b17a345b130fdf5cc88718ed94a974]
- R  D    [Skewness and Kurtosis Test] [Jarquesken is nen...] [2014-12-16 19:27:25] [e89b1602ca7c278e2fffead05eac818b] [Current]
-    D      [Skewness and Kurtosis Test] [jarq] [2014-12-18 20:06:20] [189b7d469e4e3b4e868a6af83e3b3816]
Feedback Forum

Post a new message
Dataseries X:
-0.117112
1.42219
1.41826
-4.26669
-3.45651
-1.01968
2.99702
2.45764
-0.735457
-3.24215
-0.401658
-4.90171
1.30001
-1.52066
-0.210336
1.7986
-0.563581
-0.79896
-1.73062
-0.0154464
-3.48878
3.53051
-2.91147
0.209076
0.881589
-4.03856
2.95909
3.02311
-1.71813
0.370962
-0.973537
0.340109
-1.08066
-2.15503
1.53979
1.79432
-0.38513
2.52978
-2.56002
-0.281439
-3.74542
0.427441
1.86578
-0.935718
4.01203
-1.6454
2.10921
-1.75461
2.77117
3.49996
1.05093
-0.300759
0.461355
0.888949
3.48808
0.341279
-4.82992
3.71123
0.563889
2.80697
-3.41284
1.2652
-1.9808
2.30431
-3.13338
0.328507
-2.18163
-2.15018
2.78674
1.49125
-0.737938
1.18271
-1.13394
3.32714
1.54374
0.846316
1.96537
0.982985
1.1136
-2.08689
0.0947617
3.06499
0.530785
-5.01436
-0.751069
0.746987
2.40806
2.65651
-1.58744
1.45677
4.06676
-4.64341
-2.06834
-1.1817
-1.81985
-1.42738
-3.72716
1.83813
3.48323
-2.47086
2.13464
0.239421
-1.03858
-1.2754
4.41505
-1.34023
3.58063
-4.80618
-1.64768
-1.21163
0.948249
1.24085
-6.06545
0.608112
2.96587
2.50765
-1.43168
0.343694
-1.32305
1.77978
-2.83891
1.18649
1.67867
4.27095
-2.47959
-0.559518
1.79034
-0.170973
2.50702
1.12102
1.06854
-1.39211
1.34529
1.45505
-0.0569779
-0.0311979
3.47482
-1.62899
1.63743
1.0443
-1.77074
2.76892
0.0654548
3.25797
0.235691
0.779544
-0.110062
0.115157
0.000739324
1.99449
-5.70237
1.28367
2.69191
-0.0874409
1.86255
-0.451696
1.85533
1.11964
-2.22803
-2.18038
1.29885
2.28864
-0.270706
7.12178
0.709926
-0.956311
1.69248
1.64574
0.0900214
-3.38916
1.33145
2.44362
-2.0174
-0.186914
-0.161283
2.42585
-1.44092
2.9838
-1.2006
-4.17688
-2.84046
-1.665
2.83177
0.0981288
-2.62835
-0.0453575
2.4089
-2.19636
-2.24321
0.293866
-2.23097
0.895463
-3.23241
3.4435
-0.765453
0.630628
-1.47593
0.191352
1.536
1.10409
0.0319253
0.95009
-1.25958
0.359617
-1.02763
1.391
-1.0935
0.243823
2.8213
1.26103
-1.07909
0.784597
-2.18967
-1.00732
-0.84363
-0.953178
1.46597
2.36401
-1.479
-0.725621
2.83932
-4.55448
-0.747245
2.277
2.69435
2.22507
2.46793
1.97296
2.98206
3.27481
3.78836
2.28695
-0.288486
-2.48129
-2.19898
-6.37563
-0.366331
-1.26169
-0.439939
-0.592813
-1.44081
-1.88712
0.757348
0.804209
-2.98889
-0.489011
0.49344
-0.018943
0.490236
-0.375707
-2.37215
-1.9242
0.0412398
0.364841
-2.87109
0.81886
-4.64155
-5.41164
-3.07057
-6.59166
-1.15724
-2.23098
-3.75669
0.799688
1.81202
0.265224
-0.068996
1.44638
1.84512
-1.35288
1.3471
0.291247
0.956701
1.58173
0.518184
0.134498
0.668362
-2.95243




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 0 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=269904&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=269904&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269904&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3431, z = -1.5379, p-value = 0.1241
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.0900, z = 0.5119, p-value = 0.6087
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.5466, p-value = 0.06245
alternative hypothesis: greater
> geary
[1] 0.7985924

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3431, z = -1.5379, p-value = 0.1241
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.0900, z = 0.5119, p-value = 0.6087
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.5466, p-value = 0.06245
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7985924
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=269904&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3431, z = -1.5379, p-value = 0.1241
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.0900, z = 0.5119, p-value = 0.6087
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.5466, p-value = 0.06245
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7985924
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=269904&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269904&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.3431, z = -1.5379, p-value = 0.1241
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.0900, z = 0.5119, p-value = 0.6087
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.5466, p-value = 0.06245
alternative hypothesis: greater
> geary
[1] 0.7985924



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