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, 15 Dec 2015 13:07:21 +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/2015/Dec/15/t1450184889joxjy2nhr98n57i.htm/, Retrieved Sat, 18 May 2024 16:48:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=286481, Retrieved Sat, 18 May 2024 16:48:05 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact73
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2015-12-15 13:07:21] [33f7124a987e21c75039d3065d74d143] [Current]
Feedback Forum

Post a new message
Dataseries X:
34 061 187 247
0.2884211013
0.6920564001
-44 614 404 613
-36 044 092 990
-0.7897671062
27 884 211 013
0.2778930776
-0.6538929891
-33 650 757 601
-0.9330128186
-42 007 740 003
0.5206599197
-0.8468992663
14 098 289 025
-0.8366481174
0.0672640561
-12 007 740 003
-31 257 422 211
-15 188 494 962
-47 687 110 588
0.5464848835
-0.7687110588
13 742 577 789
0.2599934586
-24 722 453 597
-0.2249864760
0.5954148241
-10 759 816 563
-0.0188494962
-25 759 816 563
-0.2115788987
-0.7866106778
-38 287 227 726
-14 043 083 012
-0.2684341841
-0.9224847949
-0.0006730024
-32 218 300 476
-15 686 100 610
-56 152 141 974
-0.6541698638
0.5956916988
0.0203830449
-0.1831512560
-16 934 024 049
-0.3366481174
-54 148 363 249
29 345 463 674
0.1920564001
-13 758 806 585
-46 439 187 149
-0.4224847949
23 097 540 234
14 421 948 374
-0.3545477364
-49 509 124 376
38 955 907 010
0.1667851857
26 454 522 636
-0.8829753791
-0.0006730024
-45 867 865 547
24 313 899 390
-0.8829753791
-14 509 124 376
-23 861 318 074
0.6633518826
12 102 328 938
0.7312889412
-14 824 965 087
0.3276536424
-0.8153151953
0.6422958353
12 312 889 412
0.5956916988
13 563 581 599
13 847 858 026
-29 722 453 597
-42 115 788 987
-19 330 128 186
19 811 505 038
-13 366 481 174
-42 189 504 940
-29 722 453 597
-0.3079435999
-0.4614404613
-21 649 747 622
-32 115 788 987
26 454 522 636
16 738 799 063
-47 581 830 351
-0.1905228513
-20 759 816 563
-46 831 512 560
-11 618 183 339
-23 545 477 364
-0.0188494962
25 775 152 051
-56 649 747 622
0.0203830449
-0.3545477364
-17 581 830 351
-29 330 128 186
18 168 487 440
-26 436 418 401
0.7204840428
-46 618 183 339
-38 832 522 538
-25 867 865 547
-0.0188494962
0.5203830449
-41 515 671 849
15 198 292 955
14 574 917 776
19 574 917 776
19 211 387 901
13 847 858 026
0.4574917776
24 574 917 776
-0.5425082224
28 847 858 026
0.7931900178
51 805 836 950
-25 788 612 099
-0.5788612099
0.7896426575
-10 788 612 099
12 931 900 178
0.9211387901
0.0889879102
-0.7068099822
10 889 879 102
-0.5753138496
17 169 366 825
-0.2795159572
34 211 387 901
-21 515 671 849
0.7931900178
14 211 387 901
0.3847858026
0.6253408977
-18 746 591 023
0.7931900178
0.4574917776
0.7931900178
-10 788 612 099
0.4211387901
-23 746 591 023
11 253 408 977
-62 068 099 822
15 889 879 102
11 253 408 977
0.9574917776
33 847 858 026
18 847 858 026
11 288 882 580
24 211 387 901
0.9211387901
0.0526349227
25 925 352 705
22 204 840 428
0.4574917776
53 484 328 151
22 931 900 178
21 805 836 950
0.6288882580
19 211 387 901
0.5889879102
-0.6152141974
0.0925352705
34 211 387 901
-0.5425082224
0.9539444173
0.9539444173
29 211 387 901
-0.5788612099
24 574 917 776
-0.5425082224
-16 515 671 849
-0.2795159572
-0.2431629697
24 574 917 776
0.0889879102
-47 068 099 822
14 211 387 901
34 211 387 901
-17 431 629 697
-12 431 629 697
18 484 328 151
18 484 328 151
12 568 370 303
-16 152 141 974
15 925 352 705
23 847 858 026
28 847 858 026
-23 746 591 023
13 847 858 026
27 204 840 428
10 889 879 102
21 253 408 977
23 847 858 026
-15 425 082 224
0.7568370303
-28 746 591 023
33 847 858 026
-0.1515671849
48 448 854 548
0.6288882580
19 211 387 901
31 805 836 950
-0.3746591023
-22 431 629 697
17 169 366 825
0.4574917776
-17 431 629 697
19 211 387 901
12 931 900 178
16 841 310 553
0.7568370303
0.6253408977
-18 158 689 447
-0.0788612099
-10 425 082 224
36 217 935 374
25 198 292 955
0.4574917776
43 847 858 026
27 568 370 303
0.9610391379
0.4610391379
24 574 917 776
18 847 858 026
-30 425 082 224
-14 473 650 773
-44 837 180 648
18 484 328 151
-30 425 082 224
0.2169366825
-12 795 159 572
-0.5788612099
-22 795 159 572
0.7568370303
22 931 900 178
12 169 366 825
14 211 387 901
0.9574917776
-20 753 138 496
-0.5425082224
-25 425 082 224
-40 425 082 224
-0.2830633175
30 526 349 227
22 204 840 428
-22 103 573 425
29 211 387 901
-26 152 141 974
-37 830 633 175
-0.5788612099
-60 788 612 099
21 805 836 950
18 847 858 026
-0.7830633175
0.7568370303
17 568 370 303
12 204 840 428
32 169 366 825
-0.9074647295
29 211 387 901
21 805 836 950
29 211 387 901
0.7169366825
23 847 858 026
25 889 879 102
0.0925352705
14 211 387 901
17 568 370 303
20 091 872 146




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286481&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'Gertrude Mary Cox' @ cox.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.47696, z = -3.17500, p-value = 0.001498
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.07880, z = 0.47511, p-value = 0.6347
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 10.612, p-value = 0.004961
alternative hypothesis: greater
> geary
[1] 0.7228174

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.47696, z = -3.17500, p-value = 0.001498
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.07880, z = 0.47511, p-value = 0.6347
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 10.612, p-value = 0.004961
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7228174
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=286481&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.47696, z = -3.17500, p-value = 0.001498
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.07880, z = 0.47511, p-value = 0.6347
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 10.612, p-value = 0.004961
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7228174
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=286481&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286481&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.47696, z = -3.17500, p-value = 0.001498
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.07880, z = 0.47511, p-value = 0.6347
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 10.612, p-value = 0.004961
alternative hypothesis: greater
> geary
[1] 0.7228174



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