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

Wed, 02 Sep 2015 21:15:54 +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/2015/Sep/02/t1441224962au9o07fzbrtr3qb.htm/, Retrieved Wed, 15 May 2024 08:27:05 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=280414, Retrieved Wed, 15 May 2024 08:27:05 +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

151

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

-     [Multiple Regression] [] [2010-11-17 09:14:55] [b98453cac15ba1066b407e146608df68]
- RMPD    [Skewness and Kurtosis Test] [] [2015-09-02 20:15:54] [3e99441ea7f7f69c8fa4628f6be951c3] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-7.347
-3.834
0.6011
10.17
-19.38
76.99
5.531
-40.66
7.892
17.29
12.68
19.65
-22.86
24.21
-102.8
-22.15
19.52
-27.51
32.82
-23.62
9.836
4.607
70.54
50.22
-0.6102
109.5
38.38
-17.13
9.891
8.935
-50.61
6.248
-15.46
17.4
-39.24
-41.63
5.69
31.4
20.6
4.546
-32.83
5.298
18.88
21.04
-34.81
32.33
-31.54
-6.965
-51.19
-19.62
16.33
-54.32
11.08
51.42
-17.44
-28.83
23.01
-6.313
-53.84
-12.25
13.19
8.396
-42.78
59.81
36.25
-29.86
38.38
76.01
45.97
-1.176
21.41
-26.72
-36.28
-1.786
-12.25
2.563
1.161
9.311
-27.95
-35.91
-16.47
7.289
-19.36
1.193
22.25
0.5881
-19.15
-32.84
-19.92
28.56
-27.29
20.32
39.28
-9.731
-0.9424
9.605
18.17
-4.938
-7.562
12.84
-30.49
-3.639
-17.9
30.41
-5.727
-9.332
-5.541
-14.8
-55.83
-7.45
7.463
3.415
-77.99
-70.92
25.01
29.24
10.27
-13.37
60.45
27.8
28.78
-65.83
18.46
-89.5
-19.62
-11.25
9.828
-20.78
40.67
-28.59
-10.68
26.04
-9.826
-7.377
-50.72
-40.82
-1.701
-99.8
14.14
-11.37
-11.59
43.86
32.06
1.175
15.59
5.307
0.3095
-25.62
0.8553
45.83
34.61
-22.3
25.73
38.26
-20.42
5.136
36.92
-22.44
17.9
-14.71
20.7
4.385
35.85
-125
64.32
-31.38
22.98
9.225
7.163
-6.14
10.53
19.03
40.87
38.67
38.67
29
-6.404
23.14
56.32
-81.46
-6.584
26.08
19.86
5.209
57.02
9.457
7.457
12.46
16.31
-34.72
-27.97
33.49
-10.28
22.25
-13.11
-18.45
9.357
3.318
-9.621
18.73
89.78
-23.68
13.01
21.74
-3.676
-28.96
-76.99
-32.69
49.38
17.34
-49.69
25.46
-21.83
-12.78
14.66
-21.79
9.074
48.88
-33.94
10.8
13.23
-33.88
-23.43
7.381
39.52
-41.81
9.44
1.736
-11.37
14.41
36.79
11.44
3.583
42.25
-29.78
-79.35
-47.25
22
-55.94
-1.495
-25.02
-28.11
15.24
64.32
-1.896
29.79
31.4
-13.81
-7.755
10.66
12.04
-54.92
5.606
-11.45
36.12
14.2
-21.52
-47.59
11.8
25.01
-31.38
-9.648
7.745
15.24
8.141
-17.66
-23.86
22.11
24.43
-35.26
25.44
-11.14
9.017
12.61
19.19
-22.17
21.19
-67.41

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

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

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.3727, z = -1.6634, p-value = 0.09623 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 4.2358, z = 3.0470, p-value = 0.002311 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 24.1252, p-value = 5.771e-06 alternative hypothesis: greater
> geary [1] 0.7673148

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3727, z = -1.6634, p-value = 0.09623
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.2358, z = 3.0470, p-value = 0.002311
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 24.1252, p-value = 5.771e-06
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.7673148
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280414&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = -0.3727, z = -1.6634, p-value = 0.09623
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.2358, z = 3.0470, p-value = 0.002311
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 24.1252, p-value = 5.771e-06
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.7673148
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280414&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=280414&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.3727, z = -1.6634, p-value = 0.09623 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 4.2358, z = 3.0470, p-value = 0.002311 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 24.1252, p-value = 5.771e-06 alternative hypothesis: greater
> geary [1] 0.7673148

Parameters (Session):

par1 = 0.95 ; par2 = 0 ;

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