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, 03 Dec 2014 16:17:16 +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/03/t1417623458bglhb3wfxedugjh.htm/, Retrieved Sun, 19 May 2024 11:34:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262978, Retrieved Sun, 19 May 2024 11:34:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact110
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]
- RM D      [Skewness and Kurtosis Test] [skewness] [2014-12-03 16:17:16] [4475d2f35de7f19e7f9792645feacf86] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.0516856
-0.640822
-0.550673
-4.67646
-5.55362
0.848897
1.34359
-0.12506
-1.03847
-4.56843
-1.78838
-6.08369
-2.00413
-0.87999
-6.12444
-1.37122
-1.0427
-3.15937
-2.83798
-2.21793
-6.56833
1.16679
-1.65964
0.919315
-1.87657
-1.26254
3.32922
0.20936
-3.94927
-1.86731
-4.1857
-0.593481
-4.31081
-3.55731
-2.83198
-3.90337
-1.99923
0.216306
-4.05453
-1.51081
-7.49915
-2.21644
0.101022
-3.06281
-0.965437
-2.06807
-0.271436
-4.64598
1.24484
-1.33584
-2.2822
-5.7267
-2.86176
-0.15003
0.709408
-3.59199
-7.9757
2.61943
-4.34107
0.179403
-4.18824
0.476945
-6.58983
2.49207
-3.09348
-4.79299
-2.396
-0.509808
0.736233
-0.275176
-0.235194
-1.64002
-3.93895
1.24547
0.483948
1.01304
-0.666193
0.363035
-2.32482
-4.58882
-2.19406
1.45752
-2.44099
-8.52343
-2.4529
-0.731337
-1.79583
-2.28924
-4.81269
1.26604
-0.625574
-7.47565
-2.06104
-4.18731
-4.36292
-2.82396
-5.24873
-2.22029
0.347347
-5.54287
-2.7212
-3.47758
-3.27367
-2.56479
1.96351
-3.3976
1.75967
-8.32132
-6.58187
-2.60941
-1.44002
-2.06356
-8.3026
-1.27054
4.74504
3.35378
2.844
0.288713
3.5525
5.11592
2.9977
1.02517
5.13456
1.11264
-2.82547
0.497487
4.00813
1.18684
5.98748
0.581581
0.119199
3.79809
1.42641
1.44773
-1.12225
-0.398145
3.48134
-4.76421
5.19582
2.69234
-2.09509
4.44352
3.51442
4.03356
3.6974
4.59644
1.31702
1.93298
2.79238
4.02923
-2.38021
2.46804
4.76451
4.67167
0.806134
1.4059
4.75941
2.36089
1.75648
-1.67933
4.74247
2.33972
3.4243
2.2178
5.82483
-2.40496
5.22753
0.705659
1.53391
-2.13748
2.4753
5.40953
1.08268
1.61967
1.61967
4.66116
0.305426
7.13044
2.54438
-5.10801
0.182549
1.56163
5.29059
2.98559
-0.157845
2.85347
4.10347
-0.0965319
-1.08299
0.877912
-2.96081
2.37122
-3.88246
5.93249
1.18221
0.863163
2.05477
2.20439
2.29889
3.53813
6.1477
1.0822
1.0811
2.18391
-0.587133
0.910761
-2.63396
-0.598796
7.50504
3.52435
-2.33196
2.13373
-0.351966
0.919789
3.46499
0.781709
3.03626
4.31241
-1.96557
2.29657
5.33298
-5.00062
-1.02282
3.15313
5.12371
2.21311
4.08636
1.645
5.03193
5.8729
6.80088
5.79352
-0.414562
-0.602549
-2.24912
-9.1009
-0.623181
1.0811
-0.0355766
0.0181824
-0.164562
-0.614176
1.82478
5.82483
-1.99539
1.71456
4.95015
1.20918
3.59774
0.424699
-0.563919
-1.20544
1.01229
2.85541
-0.376574
3.30636
-5.72355
-5.31439
0.0520225
-4.1371
-2.40496
-1.20718
-2.04947
1.82478
3.23421
-0.699495
1.01185
3.88771
3.07194
-2.56842
3.18521
-1.58033
3.23147
4.43919
2.15998
1.14972
3.66311
-4.65179




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262978&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262978&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262978&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'Herman Ole Andreas Wold' @ wold.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2330, z = -1.0587, p-value = 0.2897
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6729, z = -1.1542, p-value = 0.2484
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.7546, p-value = 0.153
alternative hypothesis: greater
> geary
[1] 0.8109466

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2330, z = -1.0587, p-value = 0.2897
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6729, z = -1.1542, p-value = 0.2484
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.7546, p-value = 0.153
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.8109466
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=262978&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2330, z = -1.0587, p-value = 0.2897
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6729, z = -1.1542, p-value = 0.2484
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.7546, p-value = 0.153
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.8109466
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=262978&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262978&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.2330, z = -1.0587, p-value = 0.2897
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6729, z = -1.1542, p-value = 0.2484
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.7546, p-value = 0.153
alternative hypothesis: greater
> geary
[1] 0.8109466



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