Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_skewness_kurtosis.wasp

Title produced by software

Skewness and Kurtosis Test

Date of computation

Mon, 19 Dec 2016 16:31:23 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Dec/19/t1482161521sct21tuvx35zogl.htm/, Retrieved Fri, 17 May 2024 00:20:54 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=301392, Retrieved Fri, 17 May 2024 00:20:54 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Skewness and Kurtosis Test] [skewness kurtosis] [2016-12-19 15:31:23] [afe7f6443461a2cd6ee0b843643e84a9] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

33517.9357248135
251012.598337459
68730.6936459264
16182.7013619764
159436.550063256
-37857.0439343819
95480.1561444103
77521.1625811
-132041.191730192
386439.750294701
79084.0406611381
106731.931851647
-55721.2671676051
-87106.1509598148
-149674.932164654
125261.063995009
271926.318137798
-76014.6072490324
126568.041208365
-133704.266228613
20920.0583132954
-182780.336116609
38249.5829885014
-351630.842001098
-60696.1041104307
361997.572417591
328801.21806581
-146254.223953933
-37418.2687533835
309454.006284678
-133101.559634178
70322.4863797837
234108.529211605
-119657.171158685
222284.615725587
107070.366188102
-504573.758264678
-37185.2580728988
-22556.9280384119
-566211.613792202
53292.3576282978
-275703.751929294
91629.6596125169
-40145.8990489052
-89941.2903197414
-180365.303137232
-274773.883056872
430074.04905864
237327.478323316
136540.840030076
93492.3429987366
62313.7324031172
165549.554882085
-102236.347638544
-231758.936473866
-126053.035883143
-1596.40484262847
419476.534275928
-172074.400947294
-500235.264604165
-3206.86463205479
-35895.9742812432
-360356.239146273
-142393.694635746
373138.158517586
318039.392874728
130470.590704183
200598.577449183
81079.5223668035
-9425.84465467694
284281.920949514
-69043.4456010849
395039.288789223
-117986.246227546
128176.728960204
-188677.428158616
-39284.6663269767
-424997.289543308
294839.656093076
-181193.375871512
-338646.369293788
-233204.959999559
-45969.2208084711
-13103.4947522881
223063.530190353
105050.538594768
-144498.278592697
255675.813414905
-256382.577354514
-194844.765602362
-180231.585764004
-163092.112993529
303097.595320948
322552.477872713
-167992.360493285
-58530.7412405269
115276.408302296
-478915.261782372
-25463.3641811722
-139288.314732003
-180569.230067743
260595.995124036
115291.817841817

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	Big 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=301392&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=301392&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=301392&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 Output	view raw output of R engine
Computing time	0 seconds
R Server	Big Analytics Cloud Computing Center

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.18357, z = -0.80286, p-value = 0.4221 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.76900, z = -0.25477, p-value = 0.7989 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 0.8075, p-value = 0.6678 alternative hypothesis: greater
> geary [1] 0.8063516

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.18357, z = -0.80286, p-value = 0.4221
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.76900, z = -0.25477, p-value = 0.7989
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.8075, p-value = 0.6678
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.8063516
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=301392&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = -0.18357, z = -0.80286, p-value = 0.4221
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.76900, z = -0.25477, p-value = 0.7989
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.8075, p-value = 0.6678
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.8063516
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=301392&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=301392&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.18357, z = -0.80286, p-value = 0.4221 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.76900, z = -0.25477, p-value = 0.7989 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 0.8075, p-value = 0.6678 alternative hypothesis: greater
> geary [1] 0.8063516

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code