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 computationSat, 03 Nov 2012 08:22:04 -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/03/t1351945359dd4rfwekqntslyf.htm/, Retrieved Wed, 28 Sep 2022 10:00:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=185712, Retrieved Wed, 28 Sep 2022 10:00:04 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact100
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [] [2012-10-31 16:36:28] [83c7ccdb194e46f99f0902896e3c3ab1]
- RMPD    [Skewness and Kurtosis Test] [] [2012-11-03 12:22:04] [bdee33f3d7ceb254f97215ce68b6a08e] [Current]
- R         [Skewness and Kurtosis Test] [paper (kutosis/sk...] [2012-12-18 21:26:08] [5b6f1874b4b9118bec0ed9a6d3e17ca8]
Feedback Forum

Post a new message
Dataseries X:
6.66579716098685
-1.14991562865021
-1.79603040001339
-18.4700692903106
-12.8214065223235
1.38665716245305
13.4506902171292
-3.04979696402705
-3.57176204304957
-12.7320953176455
1.77797897078977
-0.178846909964642
-0.948663504764192
-1.20380378585851
-10.5564749163737
5.32105597758011
-19.1263017662835
-8.20821017545146
-0.861723966126758
2.81282938210354
13.8192403862728
23.7626356911732
-9.36782864394663
-13.0354295863332
11.7839465982839
9.20682577008016
-2.34568489161739
-2.79801464674306
-0.496994929667014
-3.39262484176468
-6.95461531091064
13.9545872104826
-11.8141210432007
-4.93193696268311
18.9657802936614
28.7471971241746
8.43177239016013
-2.54348689606351
-9.64950296353657
19.6667953743618
1.75354461456936
-12.7654824550164
-9.85443298182874
-15.7607010365384
-1.93938797503698
6.98751026062598
7.68064392240282
7.73864162003415
2.92038522241241
-0.122556332769764
14.2333678603435
-2.11450669372579
8.46393425485531
-17.7237590165683
-1.69747970461711
0.519331480759363
1.34397252942004
-14.4255723456576
0.472825908171421
-5.9890446520356
-8.39752265087017
-2.93841282420111
-8.65489806363658
2.59683327400854
-1.26268943677433
4.80932734750565
-8.6892260418941
0.608044409841041
-5.39218180454801
23.2879449607947
-25.9491842210118
-0.7717019656024
-3.81662962455432
0.865132683570666
-11.1831782691536
-4.72056838135867
21.2418797357859
44.3542031337181




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=185712&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'Gwilym Jenkins' @ jenkins.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.9267, z = 2.0977, p-value = 0.03593
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.8724, z = 2.5633, p-value = 0.01037
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 22.5579, p-value = 1.264e-05
alternative hypothesis: greater 
> geary
[1] 0.7238785

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.9267, z = 2.0977, p-value = 0.03593
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.8724, z = 2.5633, p-value = 0.01037
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 22.5579, p-value = 1.264e-05
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7238785
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=185712&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.9267, z = 2.0977, p-value = 0.03593
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.8724, z = 2.5633, p-value = 0.01037
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 22.5579, p-value = 1.264e-05
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7238785
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=185712&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=185712&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.9267, z = 2.0977, p-value = 0.03593
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.8724, z = 2.5633, p-value = 0.01037
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 22.5579, p-value = 1.264e-05
alternative hypothesis: greater 
> geary
[1] 0.7238785



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