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:45:03 -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/t1351899914mh2xql9ohdd2miu.htm/, Retrieved Mon, 27 Jun 2022 06:27:53 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=185689, Retrieved Mon, 27 Jun 2022 06:27:53 +0000
QR Codes:

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

Post a new message
Dataseries X:
5,5292E+14
5,07241E+14
5,30077E+14
3,98633E+14
-2,04677E+14
0.624053704919523
-0.619104512510785
2,82277E+13
1,6736E+14
-1,83965E+14
1,14616E+14
1,14651E+14
-0.419405895236472
-7,28764E+13
1,36567E+14
-1,31183E+14
-2,48499E+14
0.470381497233852
-0.462376594402993
0.782510657259257
0.77836452757882
-5,08899E+14
2,26697E+13
2,90181E+14
2,06381E+14
3,58694E+14
-0.536524794608393
-3,53134E+14
0.125861940051202
1,00882E+14
-0.958280757689514
-0.38264071245336
-0.44883827434813
-1,1842E+14
5,89439E+14
4,93709E+14
-1,78119E+14
1,47445E+14
-0.537282656194248
1,76181E+14
2,38786E+14
1,27736E+14
-1,5951E+14
-1,86485E+14
0.804396154766398
-0.967115236171931
1,75586E+13
3,67244E+14
-4,42259E+14
1,28797E+14
-1,56827E+14
-3,37747E+14
-2,35248E+14
1,48641E+14
2,01492E+14
-0.911517134161775
-3,94468E+14
-3,83843E+14
2,33459E+14
4,32613E+14
0.782902161098753
-0.0334534330681684
-1,80056E+14
-1,06577E+14
-1,21205E+14
-2,00274E+14
-2,63955E+14
0.0222291134779818
-1,4242E+14
-1,41001E+13
2,09819E+14
6,10257E+14
2,60652E+14
1,46911E+14
-5,85787E+14
-3,56015E+13
-0.7892852108143
-1,07649E+14
0.289648432910911
-2,57858E+14
-1,75009E+14
-1,52423E+14
2,47475E+14
0.938517038974855
2,04299E+13
2,92673E+14
3,04308E+14
5,91278E+14
2,94844E+14
8,61809E+14
4,07945E+14
0.20047240968194
5,85063E+14
-0.283236295900996
0.705729907029424
-3,38527E+14
0.364431382467596
-6,25415E+14
-7,41018E+14
-9,92876E+14
-1,05242E+14
-5,75721E+14
-6,87196E+13
-8,53353E+14
-9,85364E+13
-1,69356E+13
-0.104113230860703
0.0758505477448361
-6,81413E+14
-4,8442E+14
-6,34058E+14
-6,9555E+14
-4,233E+14
-6,99203E+13
-1,18164E+14
-1,30768E+14
-3,24643E+14
2,34959E+14
5,28269E+14
5,01533E+14
0.508379382637432
3,72849E+14
5,01905E+14
3,76364E+13
1,61787E+14
9,67476E+14
5,32447E+14
4,81149E+14
3,98898E+14
6,13322E+14
2,95646E+14
0.769616782736188
-2,69068E+14
-3,6725E+14
5,33607E+14
2,51911E+13
0.13740076942665
4,16573E+14
1,16701E+14
1,339E+14
-2,88769E+13
-1,19636E+14
0.220729435925833




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1366, z = -0.4583, p-value = 0.6467
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.5953, z = 1.5112, p-value = 0.1307
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 2.5564, p-value = 0.2785
alternative hypothesis: greater 
> geary
[1] 0.7283032

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1366, z = -0.4583, p-value = 0.6467
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.5953, z = 1.5112, p-value = 0.1307
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 2.5564, p-value = 0.2785
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7283032
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=185689&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.1366, z = -0.4583, p-value = 0.6467
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.5953, z = 1.5112, p-value = 0.1307
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 2.5564, p-value = 0.2785
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7283032
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=185689&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=185689&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.1366, z = -0.4583, p-value = 0.6467
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.5953, z = 1.5112, p-value = 0.1307
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 2.5564, p-value = 0.2785
alternative hypothesis: greater 
> geary
[1] 0.7283032



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