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 computationThu, 20 Dec 2012 04:21:46 -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/Dec/20/t135599536711uakohogatsmps.htm/, Retrieved Tue, 23 Apr 2024 17:41:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=202557, Retrieved Tue, 23 Apr 2024 17:41:37 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact114
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Linear Regression Graphical Model Validation] [Colombia Coffee -...] [2008-02-26 10:22:06] [74be16979710d4c4e7c6647856088456]
- RM D  [Linear Regression Graphical Model Validation] [Simple Regression] [2012-12-19 18:57:01] [1655ef4f70a4add09e51daeee7c8dd65]
- RMPD    [Multiple Regression] [Multiple Regression] [2012-12-19 20:51:30] [1655ef4f70a4add09e51daeee7c8dd65]
- RMPD        [Skewness and Kurtosis Test] [Skewness of kurto...] [2012-12-20 09:21:46] [e5cf4d544f75f57c12196ef0ffd71d75] [Current]
Feedback Forum

Post a new message
Dataseries X:
-3.11760101149508
0.0314095423110451
2.82620869209528
3.26387265584104
-1.45263709744899
-1.88348932266714
3.93863868429912
-1.59441138999828
-1.88329862900193
2.56646109614508
0.801769699893772
-0.196710790688073
0.636573305652221
0.692451451614239
-0.353645489751352
-0.0219820117331483
0.448428914340278
3.87178314070815
2.58748254820759
0.802533083030439
0.758692721056456
1.29012967077078
2.58441716838169
1.31747698733264
2.22848118596487
0.118860325165605
1.0372926466607
-1.04284071207008
0.559138014281356
0.0390243334045331
-0.594186433383495
-0.184903151197658
-1.11149063623154
0.569799207264144
-1.64202430275481
-5.90257345633603
-0.866817164637676
-1.77949067189796
1.77884407716565
1.41607509282467
0.954616002309845
-1.55957660718381
2.08528287184129
-0.206202869707291
-0.898546594920809
-4.59163412605
-2.42508979912194
0.0683991774524221
0.800952617186765
-2.01858608666736
-0.490631866380993
-0.111764505922894
-2.68477800765184
0.809386321558708
-2.51757108398172
1.37130487753543
-0.0923517617659263
0.916882834289958
-0.323702882863365
1.86873289872845
0.570716868083456
0.0223851483499508
-0.466440278448962
-0.370634890266963
0.564048311356834
1.09360035333709
1.89793032195701
3.32654536380641
-3.88091423781219
0.578839151225445
-3.449196578141
-0.323948285798518
1.46220553898166
0.845093066019571
0.273624586124044
3.11285623992386
-0.365942087919187
1.5488362723385
-1.84285245948429
-0.0260086189541596
0.424121948916667
3.22789371728898
0.308208809227862
-1.02477677459206
0.256431299478507
1.73171130609916
-0.223327636188002
0.662336718373708
1.41673022801113
0.787728044617952
-1.4826033949017
-0.00934603174746024
0.513187104398811
-0.285606991993591
-2.17892398401912
0.781685537460747
0.140519350734551
1.8158469109597
-0.159901087906952
-0.340573483908861
-1.3668114814765
1.18707146453032
2.58522068841896
0.410210237843217
1.43672737170409
-2.39717121644233
0.932990452643163
0.0588776925115655
1.40203554776461
-0.311586001104149
0.987859589625233
0.10292801173956
2.45174372432212
-1.99888326543019
-2.9367482002426
1.3271147856896
-1.54759871332326
0.98240207296779
-1.98791936604673
0.27493901740351
-1.33388698873322
0.304154405116597
-3.02389397058424
-1.12986310505213
-1.05943824530504
-0.865806131319397
-0.513911569999371
0.657837937398815
1.1070938222292
-3.03523672661142
1.75787926942027
-3.39549935808545
1.81702140891525
-2.00107980795329
-1.74079830137736
-0.194351716219724
0.640535211451566
0.468402482455295
-2.2551506775076
-1.45204943317969
-5.45372005985958
2.81092598360207
1.58878901071358
0.364109134913822
1.06882586947583
-4.25454724104455
1.98059128612218
-2.27529286469313
0.757020011545189
-0.116840102291911
-3.20880937956498
-1.52564528945141
1.80197704792237
3.90954420223143
1.45339800477955
-2.59446613585403
-0.00934603174746024
1.28833219642779
1.1070938222292
0.829427293903479
-0.604839934876992
0.31316350056888




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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=202557&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=202557&T=0

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.4937, z = -1.6788, p-value = 0.09319
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4788, z = 1.3522, p-value = 0.1763
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 8.1285, p-value = 0.01718
alternative hypothesis: greater 
> geary
[1] 0.7703575

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.4937, z = -1.6788, p-value = 0.09319
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4788, z = 1.3522, p-value = 0.1763
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 8.1285, p-value = 0.01718
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7703575
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=202557&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.4937, z = -1.6788, p-value = 0.09319
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4788, z = 1.3522, p-value = 0.1763
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 8.1285, p-value = 0.01718
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7703575
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=202557&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=202557&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.4937, z = -1.6788, p-value = 0.09319
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.4788, z = 1.3522, p-value = 0.1763
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 8.1285, p-value = 0.01718
alternative hypothesis: greater 
> geary
[1] 0.7703575



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