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 computationFri, 02 Nov 2012 19:31:27 -0400
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/02/t1351899120n8gfoc6k40wsbzl.htm/, Retrieved Mon, 27 Jun 2022 06:25:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=185685, Retrieved Mon, 27 Jun 2022 06:25:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact116
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [Model 1 ] [2012-11-02 23:31:27] [18a55f974a2e8651a7d8da0218fcbdb6] [Current]
- RM      [Skewness and Kurtosis Test] [Paper 2012 multip...] [2012-12-14 14:53:24] [33fe548a21de6aef2b38519618b03303]
Feedback Forum

Post a new message
Dataseries X:
5,56754E+14
5,1287E+14
5,30152E+14
3,98241E+14
-2,07276E+14
0.634169042089626
-0.607366250923857
2,84623E+14
1,65489E+14
-1,89066E+14
1,04963E+14
1,03816E+14
-0.425113058550112
-7,24647E+14
1,42584E+14
-1,27131E+14
-2,47657E+14
0.502642195634472
-0.439077139213187
0.80201282541235
0.766196583207782
-5,08248E+14
2,28201E+14
2,90754E+14
2,04109E+13
3,53527E+14
-0.595906730661394
-3,61619E+14
0.137106119413905
1,06066E+14
-0.977878991914782
-0.431249032642949
-0.472074695196654
-1,14963E+14
5,87541E+14
4,94635E+14
-1,76744E+14
1,49683E+14
-0.512125560703577
1,79161E+14
2,40159E+14
1,26137E+14
-1,55991E+14
-1,86769E+14
0.824381660264801
-0.939438965345497
1,72725E+14
3,65797E+14
-4,45454E+12
1,28929E+14
-1,55094E+14
-3,34731E+14
-2,35707E+13
1,42987E+14
1,97798E+14
-0.956751971958517
-3,9716E+14
-3,91181E+14
2,32489E+14
4,31298E+14
0.754835741695906
-0.043964294886742
-1,79293E+14
-1,06833E+14
-1,24326E+13
-2,02401E+14
-2,63371E+14
0.0536863104868315
-1,43177E+14
-1,40236E+14
2,11896E+14
6,13541E+14
2,57254E+14
1,45719E+14
-5,82186E+14
-3,54883E+14
-0.739205451473027
-1,02568E+14
0.322912639428652
-2,53579E+14
-1,75278E+14
-1,50861E+14
2,48945E+14
0.871358946250279
2,02626E+14
2,91514E+14
3,05512E+14
5,96315E+14
2,90845E+14
8,58583E+14
4,02049E+14
0.130611921182486
5,87296E+14
-0.266409363864844
0.676303067391535
-3,42687E+14
0.349794990340346
-6,23085E+14
-7,40353E+14
-9,95434E+14
-1,0515E+14
-5,70601E+14
-6,87897E+14
-8,552E+14
-9,80164E+12
-1,60754E+14
-0.0762185246663855
0.136558503084006
-6,81065E+14
-4,86189E+14
-6,3213E+14
-6,89874E+14
-4,16125E+14
-7,0172E+14
-1,20835E+14
-1,25397E+14
-3,19608E+14
2,39711E+14
5,30793E+14
5,05866E+14
0.523198014956517
3,72983E+14
5,08263E+14
3,79278E+14
1,60712E+14
9,74114E+14
5,34694E+13
4,79539E+14
3,96083E+14
6,10507E+14
2,9368E+14
0.699996395074542
-2,73292E+14
-3,7388E+14
5,28676E+14
2,54231E+14
0.164629128878812
4,15922E+14
1,17216E+14
1,34643E+14
-2,92679E+14
-1,23441E+14
0.150911601313282




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.2352, z = -0.7831, p-value = 0.4336
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.3198, z = 1.0061, p-value = 0.3144
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.9282, p-value = 0.3813
alternative hypothesis: greater 
> geary
[1] 0.7414062

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.2352, z = -0.7831, p-value = 0.4336
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.3198, z = 1.0061, p-value = 0.3144
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.9282, p-value = 0.3813
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7414062
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=185685&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.2352, z = -0.7831, p-value = 0.4336
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.3198, z = 1.0061, p-value = 0.3144
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.9282, p-value = 0.3813
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7414062
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=185685&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=185685&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.2352, z = -0.7831, p-value = 0.4336
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.3198, z = 1.0061, p-value = 0.3144
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 1.9282, p-value = 0.3813
alternative hypothesis: greater 
> geary
[1] 0.7414062



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