Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_skewness_kurtosis.wasp
Title produced by softwareSkewness and Kurtosis Test
Date of computationSun, 09 Dec 2012 13:34:29 -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/09/t1355078080bmbtux9a1i176mm.htm/, Retrieved Thu, 18 Apr 2024 12:26:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=198029, Retrieved Thu, 18 Apr 2024 12:26:38 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact90
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [] [2010-12-05 18:56:24] [b98453cac15ba1066b407e146608df68]
- RMPD  [Skewness and Kurtosis Test] [Kurtosis Test] [2011-12-08 20:28:39] [bc54fcbdb4f9c071218969745a8ec94b]
- R  D      [Skewness and Kurtosis Test] [] [2012-12-09 18:34:29] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
-14.81039
-3.28274
-4.85329
-25.62907
-2.05413
-0.96706
9.96965
-6.81537
-3.85900
7.68954
-39.33000
-15.16607
-0.13154
1.55439
-1.21081
2.59094
4.25931
-0.34667
-21.90876
-4.51886
18.64956
-8.09796
27.19089
-4.93466
5.54314
14.67181
4.35485
-35.36298
21.09116
8.54014
-21.07678
0.70893
3.25688
-13.23521
-8.35929
-4.65221
-5.06926
-30.82941
7.17970
1.29943
-3.55868
-1.94040
-5.68342
10.24959
10.51949
-5.62233
17.90070
22.44965
9.43289
32.61133
-6.81711
-0.65314
4.75309
-13.44323
-4.80908
-0.04435
7.05527
2.01473
2.62446
-0.63780
-10.64846
-11.45022
6.12018
-8.18714
-4.23073
39.26613
4.87331
-15.42067
34.03244
3.53316
26.54658
2.94135
-3.46076
-0.05704
7.35246
-7.07442
-6.55026
-22.66062
7.13510
0.38424
-4.83275
-2.25130
-31.85808
10.77965
-31.82712
6.39089
0.01278
-2.19794
14.51179
3.65711
10.82303
9.07264
-11.37350
10.46728
-14.97325
30.67256
-18.92760
15.30698
-34.03504
-7.24521
10.61113
0.77871
-0.10387
-16.26651
-11.33622
2.84565
3.50492
6.10891
34.72095
4.36559
39.31253
2.45698
36.57613
-4.15898
-1.42988
-13.17862
0.68764
0.64259
9.81365
0.58821
9.06359
-21.45345
8.82159
-14.05202
-17.35022
-9.66790
3.34815
1.07363
-1.42596
-21.61176
4.76899
-7.45835
17.52726
-12.23760
-0.31758
-15.25193
-19.92141
-6.64785
-12.81371
0.64526
6.08556
5.70685
2.45812
-4.70240
-10.01302
15.30227
6.66024
-27.41800
-6.75046
-5.71698
28.08686
5.69599
2.03406
13.22204
8.88650
18.84657
25.04196
10.71160
1.13755
7.45398
-1.49701
12.55633
-14.74332
-1.99871
-10.90802
4.10447
-1.50770
-47.28901
13.63685
10.28751
-2.36258
-23.95407
60.80184
4.20974
-1.68746
29.84660
32.39293
7.24087
-5.94028
6.67141
16.13431
6.33344
-18.60496
-19.82071
16.01946
28.64296
60.62326
-17.61620
-21.91786
3.66145
-9.01293
1.02439
-14.67385
-5.32970
-2.78519
3.96277
-6.08144
-40.03321
31.72985
-15.47080
-1.91390
-35.43998
-8.19525
-30.12629
69.17736
-16.80747
-8.38222
-0.33511
-12.91487
-3.86879
-2.06974
-5.61551
11.97373
-8.03816
-6.42337
-8.63532
-4.51673
4.60513
1.38954
5.13314
-5.77963
11.59462
-3.09008
9.48020
-5.30047
6.13748
-21.69430
0.09540
-3.44514
10.83315
2.85724
15.20208
-8.97473
1.11793
-0.96618
-6.49897
-4.79496
-1.66741
-10.54649
-3.67153
-13.90539




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=198029&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'Herman Ole Andreas Wold' @ wold.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.6734, z = 2.6563, p-value = 0.0079
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.7266, z = 4.4904, p-value = 7.108e-06
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 92.8654, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.7016819

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.6734, z = 2.6563, p-value = 0.0079
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.7266, z = 4.4904, p-value = 7.108e-06
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 92.8654, p-value < 2.2e-16
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7016819
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=198029&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.6734, z = 2.6563, p-value = 0.0079
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.7266, z = 4.4904, p-value = 7.108e-06
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 92.8654, p-value < 2.2e-16
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7016819
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=198029&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=198029&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.6734, z = 2.6563, p-value = 0.0079
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 5.7266, z = 4.4904, p-value = 7.108e-06
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 92.8654, p-value < 2.2e-16
alternative hypothesis: greater 
> geary
[1] 0.7016819



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