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 computationWed, 17 Dec 2014 13:12:11 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/17/t1418821935nlw0lr72ys4jrbi.htm/, Retrieved Thu, 16 May 2024 13:34:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270174, Retrieved Thu, 16 May 2024 13:34:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact78
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Paired and Unpaired Two Samples Tests about the Mean] [] [2014-10-29 15:23:48] [69bf0eb8b9b38defaaf4848d8c317571]
- RMPD  [Multiple Regression] [] [2014-12-10 13:11:53] [69bf0eb8b9b38defaaf4848d8c317571]
- RM D      [Skewness and Kurtosis Test] [] [2014-12-17 13:12:11] [a36dddfa959c0d492544a38e0b694048] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.100587
-5.928480
-0.866165
-0.266165
-5.403850
-6.431740
0.189621
1.864990
0.233835
-1.900590
-4.669430
-1.666170
-6.207110
-2.335010
-0.869429
-6.503850
-1.307110
-1.035010
-3.700590
-3.400590
-2.607110
-6.272690
0.668256
-2.200590
0.996149
-1.562900
-1.313640
2.509210
0.464992
-3.231740
-1.172690
-4.372690
-1.169430
-7.162900
-4.262900
-3.103850
-2.331740
-2.700590
-1.879220
0.158464
-3.766170
-1.528480
-7.231740
-1.731740
-0.197323
-2.397320
-0.503851
-1.831740
-0.807115
-4.969430
0.027307
-0.962901
-1.531740
-6.038270
-1.969430
-0.900587
0.496149
-3.294060
-7.300590
1.824040
-4.148060
-0.225216
-4.159640
-0.631744
-5.400590
3.030570
-3.669430
-3.835010
-1.703850
0.130571
1.761730
-0.669429
-0.962901
-1.469430
-4.266170
1.468260
-6.028480
0.058464
0.327307
-0.597323
0.264992
-2.510380
-5.497320
-2.566170
0.989621
-2.166170
-8.635010
-1.979220
-1.331740
-1.538270
-1.666170
-4.597320
0.396149
-0.400587
-7.335010
-3.035010
-4.266170
-5.169430
-3.935010
-6.028480
-1.731740
0.402677
-5.100590
-2.300590
-2.569430
-3.848060
-3.138270
1.264990
-3.844800
1.351940
-7.707110
-6.403850
-3.203850
-1.269430
-1.769430
-8.781740
-0.366165
5.099410
4.587100
3.009210
-0.138272
3.705940
5.968260
2.968260
0.546149
5.596150
1.568260
-2.269430
-0.007115
3.264990
0.927307
5.702680
0.837099
1.237100
3.280570
1.880570
2.127310
-0.419429
-0.219429
4.218260
-4.400590
5.333830
3.230570
-1.335010
4.814990
3.429830
4.518260
3.058460
3.218260
4.714990
0.992885
-0.775957
1.677310
2.667510
5.052680
-2.838270
2.802680
5.052680
3.980570
1.337100
0.914992
5.490360
2.468260
1.455940
-1.053850
4.990360
2.899410
4.230570
2.968260
6.505940
-2.116170
4.990360
1.837100
1.999410
-1.716170
2.490360
5.164990
1.074780
2.137100
2.137100
4.664990
0.414992
6.427310
2.414990
-5.335010
0.268256
1.096150
5.837100
2.446150
0.030571
2.837100
4.087100
-0.112901
-1.047320
-0.269429
-2.978480
3.120780
-3.138270
5.724040
0.861728
1.259210
1.487100
2.214250
2.227310
3.249410
6.118260
0.533835
0.861728
2.714990
-0.185008
1.533830
-2.822690
-0.481744
-0.772693
7.576570
3.796150
-2.062900
2.118260
-0.510379
0.396149
3.152680
0.055200
3.046150
1.808460
5.018260
-2.047320
2.124780
4.946150
-4.957110
-1.175220
2.927310
6.430570
2.133830
4.427310
2.468260
5.268260
6.180570
6.664250
6.164990
-0.097323
-0.085008
-2.385750
-8.697320
-1.216170
0.927307
-0.120171
-0.207115
0.152677
-1.338270
1.964990
6.505940
4.618260
-2.128480
1.468260
4.861730
1.114990
3.033830
0.480571
-1.347320
-0.919429
1.618260
2.542890
-0.194059
3.521520
-5.216170
-5.366170
-0.203851
-4.757110
-2.116170
-1.044060
-2.329220
1.964990
3.911730
0.268256
1.080570
3.224040
3.455940
-2.181740
2.677310
-1.062900
3.345410
4.421520
2.264990
1.468260
3.583830
-5.097320




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.1976, z = -0.9130, p-value = 0.3612
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6095, z = -1.5071, p-value = 0.1318
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.6781, p-value = 0.159
alternative hypothesis: greater
> geary
[1] 0.803788

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.1976, z = -0.9130, p-value = 0.3612
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6095, z = -1.5071, p-value = 0.1318
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.6781, p-value = 0.159
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.803788
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=270174&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.1976, z = -0.9130, p-value = 0.3612
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6095, z = -1.5071, p-value = 0.1318
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.6781, p-value = 0.159
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.803788
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=270174&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270174&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.1976, z = -0.9130, p-value = 0.3612
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6095, z = -1.5071, p-value = 0.1318
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.6781, p-value = 0.159
alternative hypothesis: greater
> geary
[1] 0.803788



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