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 computationSun, 17 Dec 2017 14:50:31 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Dec/17/t1513518679l4wsbw38uj2pceo.htm/, Retrieved Thu, 16 May 2024 02:42:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=309968, Retrieved Thu, 16 May 2024 02:42:01 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact108
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Dataset 3: Multip...] [2017-12-11 08:43:33] [2290434a534d89f53f3bbc2fcb1733a3]
- RMPD    [Skewness and Kurtosis Test] [] [2017-12-17 13:50:31] [ca643b0c409f93e6a7ce1fd0961340ec] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.552174260873676
2.19311556888411
-4.8498498915278
1.8524733063665
9.83699707953845
-3.55214794776153
-6.62292459483744
-9.77013757548021
-13.8046809873375
-7.2151775322572
-8.67020640039948
-10.2137074594408
-9.69243558192995
-14.9865303786423
-16.2361799584653
-2.20117230864174
1.45161673589249
-8.45352834064281
-6.09788654708917
-3.14927979514538
-3.04885030474456
0.90969150284151
-3.27694400075502
-1.82386527821338
1.39716101559597
-1.10215688678088
-6.79198755197054
5.51084322246596
-0.503567950497742
-1.76452642599233
-3.84027931060026
2.0669995305644
-3.13206907419821
-6.81165603234891
-7.90940724556131
5.02494994674887
3.76028137267743
4.3401174366619
1.42638845721158
5.05651892570476
0.185736809075526
16.5507694826329
3.66602775391394
4.05815741508558
9.37357801241588
6.6372556171809
1.80655795919841
6.14207703424523
-1.08200537849525
3.80996836955811
-1.0314244604471
3.99846616343445
2.3176707313753
3.30853877563463
-1.78041340253021
8.5981327529183
1.65442587997886
-2.58690773101209
1.92081332428605
-3.885356156184
-12.5038860154493
4.0819181458719
-8.23991491250193
-7.04223857171312
-0.652718774877652
-5.89844413888586
-10.5705094774508
4.29409016543923
-8.63409040624598
-0.167693615198326
1.78670884444042
7.87670144174656
4.90739850364387
-1.49917963193502
-6.04548711836037
1.07547739218477
1.71500434500328
3.3182031920031
-2.744807940042
5.54393897780234
5.42614533104783
14.2856091093748
1.50220968683749
16.128914332592
-4.03354236220256
0.922694585915381
-6.39560312562096
-0.313845466824079
3.57932723475102
-2.30098830593249
-16.3481774500897
10.5385358519776
44.3207792760081
49.2467333931531
13.225277186504
26.002571990785
6.27945813995719
7.57657133171818
0.210062530077746
11.2134789386918
14.6357076977834
5.00742462552018
6.36846062994904
5.60143493353198
18.5385828179281
18.0582075865415
21.3799472707913
6.66568282747972
7.70223528777505
14.2310387769472
12.443397708037
8.68906372863463
-22.2909609216067
8.14810383340659
-2.78420399745647
-15.1959586475281
-2.02220459225375
4.94240423410241
3.06230612026491
-13.5503413961817
-11.2932269759335
-2.01725908358945
-2.56776175998414
0.17529081713278
-1.97214141386003
1.02605567038643
-6.64230321613032
-1.21014831532619
-8.55573046144268
-12.3188471341373
-16.5613926634131
-13.0542290854371
-22.3744397473926
-12.059894866552
-12.821267601477
-1.7646759498635
-1.90981237008607
-3.8359562185385
-3.09225534385345
1.37636851856349
-4.88372126396228
-10.6656970804586
-3.76599644212704
6.55354466452947
1.00956026973626
-10.69650677754
4.98721980846643
-7.87419073846897
0.519405675539135
-6.04726464354117
-11.1286331493196
-7.64456813418872
-3.29294995370491
-5.22320161625699
1.08218662486995
-0.487766770746106
-7.58245064601233
-9.26346715144617
-3.43766914957189
-4.42444787106014
8.67193295687114
1.55949962504657
-0.207604263774031
3.11766158384712
7.52886119645023
-0.365367365151222
-1.00261179851121
-3.76588100733197
-15.2858867355157
-6.01184658137855
-4.15144219584198
6.00796209393425
0.463305093398486
-1.4099808752285
-4.22112470282179
2.37588234183257
7.43102891301712
9.07896258752955
-5.53845434226848
-3.69050770299301
-3.6606614429539
3.44107645768338
-1.97563937259609
3.60397534847722
8.8064825489611
1.28446562276591
4.42178157643388
2.45254764726863
19.9716991395898
15.6171440194286
-4.14911568674997
1.88637529882556
-2.48544411911733
-6.95287826849086
2.16381907046002
5.20975633474869
11.4162190153585
-0.0409211892755861
-15.6581229869411
-2.83689054231298
5.08781688047556
-2.94685138234117
0.223722231743596
-8.72350391581455
-8.34367737221679
-6.20608160198153
-0.980694347777238
-7.0534917806354
8.37230615385475
-4.03820524623681
-13.6873687197727
14.1189602633321




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=309968&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=309968&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=309968&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = 1.2934, z = 6.3175, p-value = 2.658e-10
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 8.5620, z = 5.8081, p-value = 6.32e-09
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 332.37, p-value < 2.2e-16
alternative hypothesis: greater
> geary
[1] 0.7125762

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 1.2934, z = 6.3175, p-value = 2.658e-10
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 8.5620, z = 5.8081, p-value = 6.32e-09
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 332.37, p-value < 2.2e-16
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7125762
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=309968&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = 1.2934, z = 6.3175, p-value = 2.658e-10
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 8.5620, z = 5.8081, p-value = 6.32e-09
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 332.37, p-value < 2.2e-16
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7125762
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=309968&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=309968&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 = 1.2934, z = 6.3175, p-value = 2.658e-10
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 8.5620, z = 5.8081, p-value = 6.32e-09
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 332.37, p-value < 2.2e-16
alternative hypothesis: greater
> geary
[1] 0.7125762



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