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, 15 Dec 2011 11:42:55 -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/15/t1323967397f7dmyp8sh1nj4bi.htm/, Retrieved Wed, 08 May 2024 09:32:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=155564, Retrieved Wed, 08 May 2024 09:32:00 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact80
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Recursive Partitioning (Regression Trees)] [] [2010-12-05 19:35:21] [b98453cac15ba1066b407e146608df68]
- RMPD    [Skewness and Kurtosis Test] [Skewness 5] [2011-12-15 16:42:55] [614dd89c388120cee0dd25886939832b] [Current]
Feedback Forum

Post a new message
Dataseries X:
129404
130358
7215
112861
219904
397355
117604
126737
99729
256310
113066
157228
69952
152673
130642
125769
123467
56232
108330
22762
48554
182081
140857
93773
133398
113933
153851
140711
303804
161651
123344
157640
91279
189374
178768
0
175403
92342
100023
178277
145062
110980
86039
125481
95535
126456
61554
164752
159121
129362
48188
95461
229864
191094
150640
111388
165098
63205
109102
137303
125304
85332
95808
83419
101723
94982
129700
113325
81518
31970
192268
91086
80820
83261
116290
56544
116173
111488
60138
73422
67751
213351
51185
97181
45100
115801
186310
71960
80105
103613
98707
136234
136781
105863
38775
179997
169406
19349
153069
109510
43803
47062
110845
92517
58660
27676
98550
43646
0
67312
57359
104330
70369
65494
3616
0
143931
117946
131175
84336
43410
136250
79015
92937
57586
19764
105757
97213
113402
11796
7627
121085
6836
139563
5118
40248
0
95079
80763
7131
4194
60378
109173
83484




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155564&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'Herman Ole Andreas Wold' @ wold.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 1.0086, z = 2.9166, p-value = 0.003539
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 6.4762, z = 4.1938, p-value = 2.743e-05
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 96.9158, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.7342587

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 1.0086, z = 2.9166, p-value = 0.003539
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 6.4762, z = 4.1938, p-value = 2.743e-05
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 96.9158, p-value < 2.2e-16
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7342587
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=155564&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 1.0086, z = 2.9166, p-value = 0.003539
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 6.4762, z = 4.1938, p-value = 2.743e-05
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 96.9158, p-value < 2.2e-16
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7342587
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=155564&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155564&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.0086, z = 2.9166, p-value = 0.003539
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 6.4762, z = 4.1938, p-value = 2.743e-05
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 96.9158, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.7342587



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