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

Tue, 09 Dec 2014 11:07:41 +0000

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/2014/Dec/09/t1418125750bzvuq9b049nlaqo.htm/, Retrieved Fri, 17 May 2024 00:05:54 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264484, Retrieved Fri, 17 May 2024 00:05: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)

-     [Central Tendency] [] [2014-12-09 10:20:48] [dacad244957cb51472792888970d4390]
- RM      [Skewness and Kurtosis Test] [] [2014-12-09 11:07:41] [fbbeb95c33c8ff026e5ecae513ae1a4b] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

197.088
153.543
106.256
-328.415
-355.314
0.028973
352.131
243.837
0.432262
-323.364
0.067324
-375.595
141.998
-0.228311
-0.107181
0.878606
0.728002
-0.876314
-222.502
0.46156
-349.474
200.084
-175.041
259.757
0.816209
-150.778
164.448
219.082
-0.543883
0.966308
-116.943
0.354334
-0.753499
-20.335
0.814456
0.941089
0.25935
139.229
-255.815
-0.327466
-430.866
0.254081
157.141
0.0985982
242.199
-125.929
201.034
-291.778
402.218
156.722
0.361527
-208.802
0.487173
128.896
317.503
0.408484
-530.815
473.552
0.297284
253.877
-174.525
0.742238
-238.042
335.891
-220.609
-0.300218
-12.391
0.703596
239.996
100.655
-101.346
0.993106
-111.129
282.444
230.641
154.626
150.949
190.495
-0.393825
-229.122
-0.864169
307.305
-0.0569074
-41.093
-14.594
0.835417
131.537
0.435493
-235.075
234.249
300.358
-475.943
-0.480632
-202.871
-286.501
-153.577
-273.178
108.832
337.966
-330.683
129.921
0.0392991
-0.373004
-14.918
375.006
-184.013
285.509
-419.248
-266.226
-12.301
0.524144
130.511
-543.634
158.525
150.136
179.338
-0.262707
0.330549
-0.935508
174.171
-0.716872
239.732
0.849935
444.824
-234.969
-0.239835
0.764879
-0.668494
158.935
0.685055
-0.20203
-0.537277
151.976
0.7939
0.989816
-0.0792601
286.924
-249.536
115.469
101.514
-103.023
0.888127
-0.140653
211.001
-0.000888765
0.700394
-116.708
0.0298521
-137.671
0.727119
-568.937
143.336
111.687
-0.0638361
216.035
0.4031
173.661
180.289
-109.708
-126.395
175.365
156.968
-0.488758
519.844
0.596962
0.109072
0.982326
103.517
-0.304865
-240.684
0.619447
185.177
-158.746
-0.723178
-0.666771
224.774
-108.382
196.334
-124.941
-288.748
-192.195
-133.651
225.213
-0.4773
-489.486
-0.294622
184.081
-266.019
-219.382
0.233702
-0.467152
199.772
-249.346
205.517
0.586794
0.678614
-265.388
0.320919
191.926
0.015061
-0.105344
0.968658
-143.818
-0.0483456
-1.529
187.789
-0.388525
144.405
252.041
155.516
110.197
0.0265972
-13.056
0.125296
0.017006
-0.649685
124.777
152.721
0.375064
-0.644854
12.015
-255.968
-0.835776
-0.210901
242.275
137.177
0.576561
299.203
325.359
171.793
191.764
220.299
0.616056
-309.029
-0.768164
-525.652
-0.182847
-230.213
-0.131728
-149.635
-116.205
-243.336
0.714115
0.753168
-106.859
0.594358
0.266018
-144.369
-0.430238
-188.481
-379.795
-142.811
171.042
112.561
-327.381
122.799
-348.477
-495.535
-15.838
-685.082
-0.291158
-0.285177
-235.112
0.737183
145.981
0.538544
0.882701
-0.00579932
156.382
0.0912737
186.468
-0.90837
16.915
127.545
0.676235
0.278254
0.878778
-122.748

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	'Sir Maurice George Kendall' @ kendall.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 & 0 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264484&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264484&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264484&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	'Sir Maurice George Kendall' @ kendall.wessa.net

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.5376, z = -2.3318, p-value = 0.01971 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.8417, z = 2.3713, p-value = 0.01773 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 21.5973, p-value = 2.043e-05 alternative hypothesis: greater
> geary [1] 0.6854432

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5376, z = -2.3318, p-value = 0.01971
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.8417, z = 2.3713, p-value = 0.01773
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 21.5973, p-value = 2.043e-05
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.6854432
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264484&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = -0.5376, z = -2.3318, p-value = 0.01971
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.8417, z = 2.3713, p-value = 0.01773
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 21.5973, p-value = 2.043e-05
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.6854432
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264484&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264484&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.5376, z = -2.3318, p-value = 0.01971 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.8417, z = 2.3713, p-value = 0.01773 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 21.5973, p-value = 2.043e-05 alternative hypothesis: greater
> geary [1] 0.6854432

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