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:18:22 +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/t1418822307ruiv69gkbc0dkwl.htm/, Retrieved Thu, 16 May 2024 12:42:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270194, Retrieved Thu, 16 May 2024 12:42:57 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact67
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:18:22] [a36dddfa959c0d492544a38e0b694048] [Current]
Feedback Forum

Post a new message
Dataseries X:
-0.082498
-4.56946
-0.561264
-0.533364
-5.59131
-6.56217
-0.0244287
2.82769
-0.629824
-0.994518
-6.91908
-0.892985
-6.96667
-0.89754
-1.15637
-6.58982
-1.12158
-0.481736
-3.31353
-3.74866
-2.49798
-6.89628
0.548794
-1.76873
1.39564
-1.3497
-1.62863
3.73675
0.0387395
-2.8664
-1.00921
-3.41957
-1.97131
-6.82862
-3.19281
-2.84453
-1.57732
-3.03376
-2.71162
-0.272759
-4.22196
-0.560676
-7.54233
-2.12196
-0.044423
-0.770933
0.0306078
-1.68435
-1.52564
-4.89146
0.151102
-0.953127
-0.57086
-6.33012
-2.09345
-0.516831
-0.197172
-2.90303
-6.28751
1.51358
-5.13312
-0.0387997
-4.24162
-0.264314
-4.25611
2.77032
-3.63427
-4.08234
-1.23705
-0.46814
1.41549
-0.623282
-0.85015
-1.4455
-4.56461
0.944476
-5.07659
0.461233
0.513293
-0.557793
-0.50943
-2.23961
-4.58209
-2.17667
0.903299
-1.87795
-7.83535
-3.04845
-1.28622
-1.83608
-1.06456
-4.17048
0.698582
-0.454028
-6.78629
-3.10012
-3.70969
-5.33653
-3.55195
-5.5612
-1.60065
1.00917
-4.60288
-1.73709
-1.8984
-3.88853
-3.15401
0.959594
-4.60315
-0.118523
-7.69577
-6.30239
-3.97795
-1.3218
-1.74609
-9.55541
0.7465
5.21256
5.50902
2.6962
-0.991026
3.3374
5.72016
3.13846
0.400051
4.59659
2.17258
-1.96772
-0.198951
3.91245
0.681088
5.77295
1.15197
1.70509
3.42632
1.77005
2.13776
-0.322585
-0.624767
4.65728
-4.61397
5.66171
1.1085
-1.02018
4.7021
2.36952
5.02843
1.87235
3.09021
3.69828
-1.2156
-1.39426
0.61556
1.57357
4.78076
-2.97392
2.37907
4.84648
4.26797
1.55927
-0.0934347
5.06354
2.45738
1.1168
-1.00546
5.41608
3.15899
3.91716
2.34461
5.33871
-1.25011
5.93266
1.81714
1.317
-1.03964
2.93356
4.82144
1.94904
1.42615
1.85244
5.37919
-0.432532
7.05352
2.59187
-4.8546
-0.148179
0.558799
5.56918
2.82219
0.367051
2.95539
4.25666
0.221083
-0.885051
-0.107398
-2.38799
3.17963
-3.7404
5.32718
0.306463
1.04277
2.15293
1.35047
2.06305
3.0938
4.61338
-0.543168
0.477088
3.15021
1.15819
2.42374
-3.39602
-1.33943
-0.836385
6.95795
4.07851
-1.81056
1.80023
-0.53732
0.577352
3.76327
-0.841714
3.29354
-0.0922871
5.2601
-1.25111
2.52783
5.71426
-3.99783
-1.07731
2.85451
7.15838
2.07827
3.6558
2.9879
5.76503
6.06098
5.20737
5.30942
0.710464
0.383615
-4.35313
-8.78758
-1.03367
0.834346
-3.01508
-0.0170279
-0.307065
-0.141553
1.92295
6.63353
4.01438
-2.64967
2.47972
4.76953
1.40029
3.17505
-0.139021
-0.6333
-1.37711
2.19319
3.4169
0.75198
3.84362
-3.99031
-4.69106
-0.182495
-5.40726
-2.72067
0.147049
-3.07171
1.8367
3.84261
-0.241541
0.526495
3.77696
3.67317
-1.83359
3.2823
-0.355573
2.61542
4.78547
2.15859
1.31129
4.1845
-4.44981




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=270194&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=270194&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270194&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.1985, z = -0.9172, p-value = 0.359
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6602, z = -1.2399, p-value = 0.215
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.2539, p-value = 0.1965
alternative hypothesis: greater
> geary
[1] 0.796449

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.1985, z = -0.9172, p-value = 0.359
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6602, z = -1.2399, p-value = 0.215
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.2539, p-value = 0.1965
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.796449
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=270194&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.1985, z = -0.9172, p-value = 0.359
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6602, z = -1.2399, p-value = 0.215
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.2539, p-value = 0.1965
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.796449
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=270194&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270194&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.1985, z = -0.9172, p-value = 0.359
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.6602, z = -1.2399, p-value = 0.215
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 3.2539, p-value = 0.1965
alternative hypothesis: greater
> geary
[1] 0.796449



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