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, 10 Dec 2014 14:41:53 +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/10/t1418222523ew50s6jdj0dmm5n.htm/, Retrieved Wed, 29 May 2024 00:10:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265289, Retrieved Wed, 29 May 2024 00:10:37 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact92
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [] [2014-11-04 10:08:09] [32b17a345b130fdf5cc88718ed94a974]
- R     [Central Tendency] [happiness] [2014-11-12 13:43:08] [2568c9326b0361ae14a2b722dbd6de4e]
- R  D    [Central Tendency] [central tendency] [2014-12-03 16:11:54] [2568c9326b0361ae14a2b722dbd6de4e]
- RM D        [Skewness and Kurtosis Test] [skewness] [2014-12-10 14:41:53] [4475d2f35de7f19e7f9792645feacf86] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.878407
0.733866
0.653897
-5.36784
-4.66896
-2.74503
2.06234
0.990661
-1.57297
-6.0174
-1.55436
-8.19842
-0.945971
-1.6699
-3.41412
0.0180104
-1.97675
-2.80908
-2.66961
-1.5897
-5.30919
0.967317
-2.53662
1.4902
-0.983184
-4.2346
2.70414
2.28391
-1.35898
-0.705057
-3.5817
-1.64694
-3.31816
-4.66352
-1.72036
-2.46081
-1.33197
0.046152
-2.93871
-2.51918
-4.71334
-2.50431
1.21326
-1.82686
1.8909
-2.14106
-0.724645
-3.19283
2.60182
1.53029
-0.394348
-4.29757
-2.24527
-0.533412
-0.20579
-3.24041
-5.9955
2.10106
-1.43972
1.55273
-3.51247
0.891287
-3.19357
1.99899
-2.22806
-1.41575
-3.05839
-0.768145
1.6303
1.17207
-1.2026
0.0840945
-2.47179
3.46837
-0.398628
-0.712913
1.36936
-1.52722
-1.29091
-3.7882
-0.113268
2.80367
-0.94238
-5.75975
-0.74459
0.158229
0.604193
0.620166
-1.50287
2.18495
2.26909
-5.47365
-1.47373
-3.06517
-3.94884
-1.36807
-4.93675
0.463782
2.23472
-2.76913
-0.233032
-1.34966
-1.96028
-1.35298
2.49735
-1.88518
2.868
-5.80104
-3.75039
-0.817919
0.816752
0.819695
-5.52969
0.159271
3.37757
2.81076
0.592763
2.69418
-5.06888
3.5192
-2.46292
2.80308
0.802329
3.76647
-4.12208
-1.06909
1.16427
-3.96909
3.12878
1.81843
2.72626
-1.94432
1.30836
0.63758
0.221918
-2.01192
3.63403
-3.36101
0.771937
-1.96748
0.553783
5.78157
1.58516
1.48301
1.34621
2.78116
0.69107
0.928941
-2.89544
1.97339
-5.21991
1.97024
2.63004
-0.438537
2.16296
0.116885
2.64783
1.07582
-2.46507
-0.583092
5.61933
-1.43531
3.02491
5.36009
5.18874
0.643998
2.6934
4.68902
-0.410939
-2.67064
0.957121
4.87426
1.81708
-0.611723
-0.611723
4.10916
-0.425903
2.50095
2.38364
-4.51585
-0.504042
0.460086
1.95082
1.49022
0.956498
2.33274
5.1916
0.929382
2.4382
0.094777
-1.04258
2.79019
-1.18568
5.05297
1.58862
0.321926
-2.21
0.291955
3.69492
3.58292
1.76387
1.74676
0.397103
0.539497
0.664533
3.58834
-3.3918
1.68578
2.73654
2.41998
1.36823
2.2564
-3.24179
-2.53396
-0.858186
-0.903793
3.00026
3.21288
-0.190017
0.171769
1.56037
-4.73306
0.577392
4.19365
3.03009
3.5164
3.77912
3.06806
3.39762
3.95197
5.39908
2.20282
1.43258
-0.257281
-1.932
-6.59458
1.43839
-2.2208
-1.60506
1.07266
-1.45667
-2.3703
3.34816
5.18874
-0.454547
-0.815945
1.60866
1.7134
0.846589
0.244841
-0.460014
-2.33088
0.166491
2.08057
-0.426126
1.46988
-2.2034
-6.86693
1.19112
-3.53772
0.643998
0.468616
-2.52799
3.34816
2.12571
0.51031
0.662282
4.27109
4.63941
0.672212
3.76657
1.17521
1.09696
1.36583
2.51011
1.34945
1.98405
-2.56211




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265289&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]1 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=265289&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265289&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 time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3102, z = -1.3968, p-value = 0.1625
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7147, z = -0.9521, p-value = 0.341
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.4006, p-value = 0.06719
alternative hypothesis: greater
> geary
[1] 0.817787

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3102, z = -1.3968, p-value = 0.1625
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7147, z = -0.9521, p-value = 0.341
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.4006, p-value = 0.06719
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.817787
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=265289&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3102, z = -1.3968, p-value = 0.1625
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7147, z = -0.9521, p-value = 0.341
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.4006, p-value = 0.06719
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.817787
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=265289&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265289&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.3102, z = -1.3968, p-value = 0.1625
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.7147, z = -0.9521, p-value = 0.341
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.4006, p-value = 0.06719
alternative hypothesis: greater
> geary
[1] 0.817787



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