FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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 computationFri, 30 Nov 2012 08:00:54 -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/2012/Nov/30/t135428059515naslmecu84lz1.htm/, Retrieved Wed, 01 May 2024 10:38:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=195008, Retrieved Wed, 01 May 2024 10:38:38 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact120

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [(Partial) Autocorrelation Function] [Autocorrelation f...] [2011-12-01 11:43:29] [bc54fcbdb4f9c071218969745a8ec94b]
- RMP   [Spectral Analysis] [Spectral Analysis] [2011-12-01 11:58:37] [bc54fcbdb4f9c071218969745a8ec94b]
- R P     [Spectral Analysis] [Spectral Analysis] [2011-12-01 12:01:59] [bc54fcbdb4f9c071218969745a8ec94b]
-   P       [Spectral Analysis] [Spectral Analysis...] [2011-12-01 12:05:16] [bc54fcbdb4f9c071218969745a8ec94b]
- RMP         [ARIMA Backward Selection] [ARIMA backward se...] [2011-12-01 12:40:37] [bc54fcbdb4f9c071218969745a8ec94b]
- R P           [ARIMA Backward Selection] [WS9 - ARIMA] [2012-11-30 12:50:19] [6f05baeb40d1ecbb8a22259f722de55b]
- RM D              [Skewness and Kurtosis Test] [WS9 Skewness] [2012-11-30 13:00:54] [517266f770140e702fb96aab4dcff962] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
221.114422853728
-538.308881293121
7737.06071284906
1937.35298327409
3.3416323640987
5094.27126551264
4139.5962415987
53754.5807036735
-24955.117438707
-7277.45376137881
16096.6963779443
6048.17419872984
-17573.9045200179
-4356.52061010803
-11531.0027015825
5421.91009710594
21384.0313858023
-40246.7377728038
20054.0546382438
-33216.6945003095
26493.722401323
38842.6286130917
23781.6303349412
22996.6548677136
30652.6472591777
18776.243910306
6552.15426462882
-4697.16825731282
-5604.45507440801
-23416.3900091153
-21407.1575712903
-30483.4615292691
6330.4647839063
10143.227004815
-500.081486848103
-6990.71042611177
-2025.75273848114
-11356.2998902176
12938.8762693161
14022.3081839885
-37986.0587384995
13264.3328184866
-3084.88259123966
-23842.4653510761
32125.1962166807
13478.256984451
1838.17224723342
2340.96100448108
40.154400905124
6568.47239037984
-10323.4115619447
-18029.7240692072
-6745.95280524122
-11315.0864881102
-11366.6204686721
-11408.6231856564
10262.6357383565
-4353.44744077624
-4285.53909794557
-7649.75252442461
-7651.35050747628

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=195008&T=0

As an alternative you can also use a QR Code:  
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 time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net






Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.2079, z = 0.4759, p-value = 0.6342
alternative hypothesis: data have a skewness 

> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4614, z = 1.0956, p-value = 0.2732
alternative hypothesis: kurtosis is not equal to 3 

> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 0.9803, p-value = 0.6125
alternative hypothesis: greater 

> geary
[1] 0.7612634


\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline

> agostino
	D'Agostino skewness test
data:  x 
skew = 0.2079, z = 0.4759, p-value = 0.6342
alternative hypothesis: data have a skewness 

 \tabularnewline

> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4614, z = 1.0956, p-value = 0.2732
alternative hypothesis: kurtosis is not equal to 3 

 \tabularnewline

> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 0.9803, p-value = 0.6125
alternative hypothesis: greater 

 \tabularnewline

> geary
[1] 0.7612634

 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=195008&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.2079, z = 0.4759, p-value = 0.6342
alternative hypothesis: data have a skewness 

[/C][/ROW]
[ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4614, z = 1.0956, p-value = 0.2732
alternative hypothesis: kurtosis is not equal to 3 

[/C][/ROW]
[ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 0.9803, p-value = 0.6125
alternative hypothesis: greater 

[/C][/ROW]
[ROW][C]
> geary
[1] 0.7612634

[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=195008&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=195008&T=1

As an alternative you can also use a QR Code:  
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.2079, z = 0.4759, p-value = 0.6342
alternative hypothesis: data have a skewness 

> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4614, z = 1.0956, p-value = 0.2732
alternative hypothesis: kurtosis is not equal to 3 

> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 0.9803, p-value = 0.6125
alternative hypothesis: greater 

> geary
[1] 0.7612634


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 1 ; par2 = 0 ; par3 = 1 ; par4 = 12 ;
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')