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, 13 Nov 2014 18:59:25 +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/Nov/13/t1415905175rorvbkc5b9qmddy.htm/, Retrieved Sun, 19 May 2024 11:37:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=254561, Retrieved Sun, 19 May 2024 11:37:55 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact82
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Competence to learn] [2010-11-17 07:43:53] [b98453cac15ba1066b407e146608df68]
- RM D  [Multiple Regression] [Ws 7] [2014-11-10 14:38:44] [55a850ac261e4a7d4f206113c00d6f60]
- RMPD    [Central Tendency] [ws 7] [2014-11-13 18:37:13] [55a850ac261e4a7d4f206113c00d6f60]
- RM          [Skewness and Kurtosis Test] [ws 7] [2014-11-13 18:59:25] [0015a2406d94cac8c1a56a29b9122359] [Current]
Feedback Forum

Post a new message
Dataseries X:
-2.86147
0.436555
4.92072
0.686386
-0.19844
-1.80752
5.00826
-0.100907
-1.40457
-0.40838
0.572612
0.184295
1.28221
0.432179
1.5441
0.673767
0.34412
4.13315
2.11978
1.50755
0.905271
2.13345
3.34271
0.824564
1.50328
1.61001
0.640164
0.368328
1.50495
-0.441687
0.242491
-1.5589
-1.3253
0.753661
-0.405761
-5.12847
-2.86015
-1.02424
1.4914
0.988381
0.61799
-0.663865
4.33771
-0.49904
-0.946358
-3.90536
-2.03502
0.0918592
0.783177
-1.12772
0.700942
-0.0901226
-1.6802
1.20953
-5.44846
-1.00508
0.63553
1.27728
-0.385177
1.53372
-0.659394
0.82634
1.28944
-0.381552
1.44881
1.98521
3.64258
4.26069
-3.76996
0.985962
-5.28633
-0.639657
2.81918
1.91903
1.67415
2.88603
0.536867
2.02812
-0.938666
1.14496
0.934452
0.428648
-0.193054
0.30541
1.61762
-1.58917
1.27005
2.23692
1.93048
-2.7719
2.52231
0.559685
1.17875
-0.884325
0.255198
1.3623
1.19052
0.550052
-1.07492
0.179094
1.3623
4.59422
0.933081
1.25566
-1.17328
1.43599
0.438954
1.48638
-2.77599
1.73251
2.0875
1.77648
-1.21477
-3.40521
2.66272
-0.979245
-1.1928
-2.14304
0.936593
-1.49822
2.24808
-2.8121
0.0343061
0.0217066
1.50819
-0.831105
0.330458
-0.332461
-2.81069
1.40611
-2.83676
0.029672
-1.53495
-1.51984
0.855124
1.15121
0.312185
-2.85635
-3.11232
-3.53775
1.08248
0.429672
2.49761
2.27324
-5.45337
3.78961
-1.88197
1.63024
-0.662838
-5.76736
-0.260808
0.385304
0.805814
-0.126508
-3.75833
2.52231
-1.64105
-0.332461
1.05771
-2.14044
-1.47687
1.11667
-1.67322
2.59656
0.710135
-2.07007
-0.344983
-1.95062
-1.36736
2.64888
-1.8103
0.59422
-3.29171
-3.98923
-2.58599
0.0257743
-2.2801
-1.30664
-0.646046
-3.05339
0.694917
-3.88697
4.13863
-0.305907
-5.37968
2.0617
2.18671
-3.17309
-2.45764
-2.58192
-0.473622
0.0644652
-2.2815
1.4758
-1.31426
-0.319658
2.18431
1.36833
0.529363
2.32026
2.78208
0.436925
-3.90757
-2.38498
0.0918592
0.05529
0.829764
1.1094




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=254561&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'George Udny Yule' @ yule.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3748, z = -1.4586, p-value = 0.1447
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1889, z = 0.7715, p-value = 0.4404
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.1778, p-value = 0.0751
alternative hypothesis: greater
> geary
[1] 0.7864696

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3748, z = -1.4586, p-value = 0.1447
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1889, z = 0.7715, p-value = 0.4404
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.1778, p-value = 0.0751
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7864696
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=254561&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.3748, z = -1.4586, p-value = 0.1447
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1889, z = 0.7715, p-value = 0.4404
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.1778, p-value = 0.0751
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7864696
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=254561&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=254561&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.3748, z = -1.4586, p-value = 0.1447
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.1889, z = 0.7715, p-value = 0.4404
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 5.1778, p-value = 0.0751
alternative hypothesis: greater
> geary
[1] 0.7864696



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