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 computationThu, 08 Dec 2011 15:28:39 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/08/t1323376157nnvfetggncrl7dq.htm/, Retrieved Wed, 01 May 2024 15:32:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=153127, Retrieved Wed, 01 May 2024 15:32:15 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact100
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [] [2010-12-05 18:56:24] [b98453cac15ba1066b407e146608df68]
- RMPD    [Skewness and Kurtosis Test] [Kurtosis Test] [2011-12-08 20:28:39] [f59ea4acf51788e47c4ec521df29536b] [Current]
- R  D      [Skewness and Kurtosis Test] [] [2012-12-09 18:34:29] [74be16979710d4c4e7c6647856088456]
Feedback Forum

Post a new message
Dataseries X:
-14,81039
-3,28274
-4,85329
-25,62907
-2,05413
-0,96706
9,96965
-6,81537
-3,85900
7,68954
-39,33000
-15,16607
-0,13154
1,55439
-1,21081
2,59094
4,25931
-0,34667
-21,90876
-4,51886
18,64956
-8,09796
27,19089
-4,93466
5,54314
14,67181
4,35485
-35,36298
21,09116
8,54014
-21,07678
0,70893
3,25688
-13,23521
-8,35929
-4,65221
-5,06926
-30,82941
7,17970
1,29943
-3,55868
-1,94040
-5,68342
10,24959
10,51949
-5,62233
17,90070
22,44965
9,43289
32,61133
-6,81711
-0,65314
4,75309
-13,44323
-4,80908
-0,04435
7,05527
2,01473
2,62446
-0,63780
-10,64846
-11,45022
6,12018
-8,18714
-4,23073
39,26613
4,87331
-15,42067
34,03244
3,53316
26,54658
2,94135
-3,46076
-0,05704
7,35246
-7,07442
-6,55026
-22,66062
7,13510
0,38424
-4,83275
-2,25130
-31,85808
10,77965
-31,82712
6,39089
0,01278
-2,19794
14,51179
3,65711
10,82303
9,07264
-11,37350
10,46728
-14,97325
30,67256
-18,92760
15,30698
-34,03504
-7,24521
10,61113
0,77871
-0,10387
-16,26651
-11,33622
2,84565
3,50492
6,10891
34,72095
4,36559
39,31253
2,45698
36,57613
-4,15898
-1,42988
-13,17862
0,68764
0,64259
9,81365
0,58821
9,06359
-21,45345
8,82159
-14,05202
-17,35022
-9,66790
3,34815
1,07363
-1,42596
-21,61176
4,76899
-7,45835
17,52726
-12,23760
-0,31758
-15,25193
-19,92141
-6,64785
-12,81371
0,64526
6,08556
5,70685
2,45812
-4,70240
-10,01302
15,30227
6,66024
-27,41800
-6,75046
-5,71698
28,08686
5,69599
2,03406
13,22204
8,88650
18,84657
25,04196
10,71160
1,13755
7,45398
-1,49701
12,55633
-14,74332
-1,99871
-10,90802
4,10447
-1,50770
-47,28901
13,63685
10,28751
-2,36258
-23,95407
60,80184
4,20974
-1,68746
29,84660
32,39293
7,24087
-5,94028
6,67141
16,13431
6,33344
-18,60496
-19,82071
16,01946
28,64296
60,62326
-17,61620
-21,91786
3,66145
-9,01293
1,02439
-14,67385
-5,32970
-2,78519
3,96277
-6,08144
-40,03321
31,72985
-15,47080
-1,91390
-35,43998
-8,19525
-30,12629
69,17736
-16,80747
-8,38222
-0,33511
-12,91487
-3,86879
-2,06974
-5,61551
11,97373
-8,03816
-6,42337
-8,63532
-4,51673
4,60513
1,38954
5,13314
-5,77963
11,59462
-3,09008
9,48020
-5,30047
6,13748
-21,69430
0,09540
-3,44514
10,83315
2,85724
15,20208
-8,97473
1,11793
-0,96618
-6,49897
-4,79496
-1,66741
-10,54649
-3,67153
-13,90539




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153127&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'George Udny Yule' @ yule.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.6734, z = 2.6563, p-value = 0.0079
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.7266, z = 4.4702, p-value = 7.816e-06
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 92.8654, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.7016819

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.6734, z = 2.6563, p-value = 0.0079
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.7266, z = 4.4702, p-value = 7.816e-06
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 92.8654, p-value < 2.2e-16
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7016819
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=153127&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.6734, z = 2.6563, p-value = 0.0079
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.7266, z = 4.4702, p-value = 7.816e-06
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 92.8654, p-value < 2.2e-16
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7016819
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=153127&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153127&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.6734, z = 2.6563, p-value = 0.0079
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.7266, z = 4.4702, p-value = 7.816e-06
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 92.8654, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.7016819



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