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

Sun, 07 Dec 2014 16:27:15 +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/07/t1417969650nhyg2uv8oq3zk8c.htm/, Retrieved Sun, 19 May 2024 13:21:28 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=263849, Retrieved Sun, 19 May 2024 13:21:28 +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] [] [2014-12-07 16:27:15] [37e054ac358b2aa7c2a1d0b751dfa890] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0.00831484
1.76468
1.1974
-4.26942
-3.55966
-0.616212
3.00587
2.60907
-0.342204
-3.83506
-0.141138
-5.27474
1.89417
-1.60979
-0.325293
2.13414
-0.368357
-0.781092
-2.18967
0.525827
-3.42655
3.40647
-3.20601
0.903912
0.513061
-4.13325
2.84831
2.90944
-1.58875
0.188655
-0.812256
0.273728
-0.577265
-2.1546
1.76024
1.75468
-0.855438
2.31304
-2.46398
-0.731213
-3.88196
0.227835
1.0063
-1.2663
3.87053
-1.64828
2.13254
-1.5007
3.12277
3.13895
1.08261
-0.731325
0.424649
0.782679
3.14129
0.148563
-5.36659
4.58697
0.341525
2.41553
-3.73197
1.49389
-1.09107
1.93457
-3.00372
0.655315
-1.46731
-2.25819
2.50288
1.24705
-0.768576
1.04783
-0.993065
3.72855
1.37524
1.01609
1.88024
0.671822
0.775073
-1.99085
-0.0198717
2.90834
0.474776
-4.76899
-1.34953
0.717731
2.2777
2.61929
-1.37078
1.72713
3.74812
-4.59676
-1.87418
-0.982174
-1.68797
-1.55155
-3.65132
2.24631
4.1198
-2.25237
2.06918
0.406207
-0.674574
-1.28341
3.89306
-1.6098
3.80942
-5.01586
-1.58624
-1.16614
0.860412
1.76359
-6.54635
1.11701
2.89327
2.73408
-1.61632
0.624481
-1.08985
2.04503
-2.47892
1.55669
2.10635
4.63055
-2.23604
-0.320387
1.7188
-0.183321
2.55551
0.972389
1.22023
-0.964942
1.03591
1.23542
-0.00448606
-0.134962
3.26558
-1.9666
1.83575
0.811417
-0.616112
2.69264
0.461739
3.37307
-0.116168
0.737224
-0.410936
-0.380942
-0.382888
2.53334
-5.92839
0.832051
2.57096
-0.205095
2.2279
-0.861829
1.42916
0.886897
-2.00953
-2.71191
1.30233
1.9673
-0.468732
6.37637
0.746522
0.176809
1.41192
1.34615
-0.0935048
-2.87647
1.20837
2.31981
-2.05721
-0.443631
-0.384673
2.51548
-1.51894
2.66881
-1.22044
-3.58332
-2.43722
-2.38768
2.35999
-0.0739322
-2.8153
0.354539
2.81321
-2.11016
-1.83636
0.000738149
-2.80253
1.1564
-2.90961
3.29723
-0.625637
1.10208
-2.11486
0.20163
1.58184
0.921093
1.57623
0.281604
-1.68061
-0.0300351
-0.0336261
1.2059
-1.29896
-0.293137
2.47291
1.85101
-1.10319
0.0440728
-2.47818
-0.396181
-0.620442
-0.174439
1.33481
2.00017
-1.95905
-0.920603
2.95774
-3.81965
-1.14977
2.02851
2.92341
2.7105
2.55677
2.0645
3.11508
3.27689
3.56887
1.79338
-0.447848
-2.48227
-2.90684
-6.42247
-0.333589
-1.05701
-0.882279
-0.493075
-1.55676
-1.83795
0.620321
1.38601
-2.63507
-0.638727
0.432179
1.07914
0.808029
-0.795249
-2.25207
-1.86822
0.315779
1.01083
-2.26162
0.558863
-4.49269
-4.94901
-2.73331
-6.98244
-0.873352
-2.27381
-3.05182
0.952177
1.74968
0.0156466
-0.221536
1.52686
1.4605
-1.49209
1.01907
-1.01344
0.783622
1.26892
0.0856427
0.0142415
1.00384
-2.94717

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	'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=263849&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=263849&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=263849&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	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.3974, z = -1.7672, p-value = 0.07719 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.1466, z = 0.6912, p-value = 0.4895 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 7.5681, p-value = 0.02273 alternative hypothesis: greater
> geary [1] 0.7987125

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3974, z = -1.7672, p-value = 0.07719
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1466, z = 0.6912, p-value = 0.4895
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 7.5681, p-value = 0.02273
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.7987125
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=263849&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = -0.3974, z = -1.7672, p-value = 0.07719
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1466, z = 0.6912, p-value = 0.4895
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 7.5681, p-value = 0.02273
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.7987125
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=263849&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=263849&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.3974, z = -1.7672, p-value = 0.07719 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.1466, z = 0.6912, p-value = 0.4895 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 7.5681, p-value = 0.02273 alternative hypothesis: greater
> geary [1] 0.7987125

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