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, 15 Dec 2014 13:36:28 +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/15/t1418650658od3fdwmd7iqhouf.htm/, Retrieved Thu, 16 May 2024 22:24:34 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268361, Retrieved Thu, 16 May 2024 22:24:34 +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] [paper] [2014-12-15 13:36:28] [627bde65e5570be47fd7fc8a9f75ea40] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

2,26224
-3,00295
0,807709
1,70004
0,512522
-0,691969
-3,51867
-0,530803
3,14529
0,0718208
1,47729
-1,57753
-0,410353
3,18615
-5,26251
0,967692
3,77247
0,219553
-2,97541
0,572282
3,79844
1,85351
0,14282
1,21368
-4,16816
0,367147
-3,87297
1,27058
0,760982
2,49712
-0,452104
0,101322
1,16448
4,83746
1,48721
-4,80615
-5,68205
2,08958
-0,286389
-4,20769
1,66599
-0,625154
-4,52858
2,38268
1,39038
-5,43581
1,32565
0,951901
-3,19165
-0,489305
0,327867
-3,6369
1,6425
1,74337
2,77273
1,17036
-3,93416
3,2313
-0,390909
1,4615
-0,156412
-0,780447
-2,93416
1,66416
-3,84948
1,63663
0,792563
-1,07381
-0,375119
2,02434
1,22725
1,33557
-2,99707
-1,5757
-4,67239
-1,29631
-0,156665
1,86683
-0,359076
-0,741419
1,38881
0,477288
-0,666261
1,60726
-0,906377
-1,23157
-0,00881862
0,936111
-3,95153
0,176228
1,38294
-4,75696
-0,806407
3,53666
0,291989
0,396509
0,70004
1,01284
1,12703
0,778347
-2,08738
0,099495
0,857551
2,65216
3,01689
-2,64864
-0,686096
-1,96954
-0,420271
-2,06389
-0,953748
0,853506
-0,113087
-1,99525
1,88419
1,64654
1,19789
-3,86527
0,965473
1,1898
0,920321
-1,04223
4,30803
-0,688315
3,80835
-0,713631
4,22543
-0,975663
4,20964
0,45405
2,3139
1,39651
0,979437
-2,44193
-2,12483
5,15614
0,483412
1,53823
4,33961
0,0936225
0,561972
-3,95217
3,66233
0,644969
1,54632
1,22543
0,480942
-0,00673926
1,19972
1,27645
1,18393
-2,78227
-2,99707
1,00293
2,30961
-0,445727
-1,51072
-0,811775
1,29041
1,54436
1,92007
1,55989
-0,900505
-0,400827
-0,264726
-3,01104
1,42809
-1,51867
1,25296
-2,46739
-0,0697613
3,14712
-2,70776
-2,80211
-0,0403992
0,00292625
0,453798
2,33739
-2,42861
1,5107
-2,31013
-2,74521
-6,20404
0,422217
-0,835517
-2,92059
0,947856
-0,0855516
-2,0973
-1,21148
-2,58953
-2,46177
-0,21331
0,812007
-1,26068
-0,219826
1,0165
-2,34354
0,439835
-2,46764
-1,4024
2,55754
-2,55809
-1,92217
-0,190072
2,66051
1,83746
2,29041
-2,37146
-7,17428
-2,39861
1,2313
0,192018
-1,89059
1,44205
1,32787
1,19567
-0,0623143
2,07196
-1,31013
1,35723
0,294459
2,99927
0,128857
-1,34354
1,46554
-2,4893
3,92032
0,946029
3,01102
1,40055
-2,26068
-1,75696
1,895
2,57973
4,25296
-0,0738068
-3,71546
-1,03818
0,626317
2,75511
2,45992
2,81802
1,04038
-2,59762
2,42404
-1,65634
1,57751
2,74089
-0,168157
-0,168157
2,28454
1,44388
1,44975
0,675654
-1,15079
-1,01469
2,3062
1,96586
-1,58953
0,583383
0,961428
-2,5954
1,44166
0,79439
1,25883
-1,76687
1,79192
0,452223
-0,337413
0,924366
-4,84139
-3,22935
-0,731249
1,09949
-1,08555
1,48499
-1,80798
-7,34758

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

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

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.5405, z = -2.3470, p-value = 0.01892 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.2601, z = 1.0273, p-value = 0.3043 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 14.371, p-value = 0.0007575 alternative hypothesis: greater
> geary [1] 0.7937569

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5405, z = -2.3470, p-value = 0.01892
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.2601, z = 1.0273, p-value = 0.3043
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 14.371, p-value = 0.0007575
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.7937569
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268361&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = -0.5405, z = -2.3470, p-value = 0.01892
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.2601, z = 1.0273, p-value = 0.3043
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 14.371, p-value = 0.0007575
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.7937569
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268361&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268361&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.5405, z = -2.3470, p-value = 0.01892 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 3.2601, z = 1.0273, p-value = 0.3043 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 14.371, p-value = 0.0007575 alternative hypothesis: greater
> geary [1] 0.7937569

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