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, 22 Dec 2011 05:05:57 -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/2011/Dec/22/t1324548372uvnqpaylhbom2jm.htm/, Retrieved Fri, 03 May 2024 04:20:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159230, Retrieved Fri, 03 May 2024 04:20:09 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact122
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [] [2011-12-22 08:20:03] [84fecfa8c8107ac4e0024d8b1730a531]
- RMPD    [Skewness and Kurtosis Test] [] [2011-12-22 10:05:57] [a23917169fba894c1fbb2182d294ed58] [Current]
Feedback Forum

Post a new message
Dataseries X:
6958.74845939681
20585.1715901564
19986.2301053938
23297.4761417268
-33474.4665551673
28244.3430271103
20599.9553077827
8495.97317337863
54066.4101218135
-21509.3905477798
-47756.3496282789
-12987.40533607
4679.06305349001
8562.97017549277
-24091.5657138078
-19214.8957797557
46480.4079273064
20280.6334691799
37800.8119837383
23140.4807475805
-1530.46728005327
-8679.31714880897
295.400068198832
20611.6890268401
-2856.96792928475
9953.38475206782
-16884.3359978004
-36448.1271898285
-23976.2100184565
-49944.4236257239
-2558.50215615722
-10583.3586929574
-38649.1528447205
21148.4978121132
-19731.6326430264
-15448.2048555641
-34710.8210573949
-17831.4000277316
-15763.7332380098
-21473.1916052085
-12879.2460444737
3349.69057727511
-12043.8985250838
-976.200180456396
-9439.88469218073
45738.2004852452
-18733.0845074653
-6407.25059141057
7166.89554003651
-7684.68219020636
-31047.0205007399
-8715.38030795032
3871.48607397962
2931.91786907234
-7045.7548765298
-2849.81736252319
3738.0623692738
9957.10884613139
-29306.8265468237
19077.6488560537
882.188320673559
28992.717255429
-26805.2786569956
1991.73329455406
-4114.81040144742
-41065.5169651729
47106.4471497468
-24158.5302645414
31130.8566787129
43594.024426069
-13164.0691870082
-10938.1455260979
-11108.2201564294
8912.34160044708
-5410.01697079527
11988.0702327734
-2246.092456824
110223.869364946
-11171.95319021
-6055.97951487589
-22074.7991249594
22726.7416506477
-22862.5337446011
-14635.8881901665
11235.5650289718
-21893.149095041
33151.8864883216
10843.5572273808
-51984.4662888013
58338.5347091217
-42813.5842465084
-16271.7951233163
-20121.5268188464
37244.7572192835
57577.3404854645
41167.7864820008
21731.8722004315
7623.47413262696
25077.2479923238
30900.2974516094
-3407.74142326222
-21137.810406128
11893.5417114689
-28105.1388985336
-13273.4942714076
-12758.4941449946
-18249.6095463429
64953.8900667022
61477.4111530711
7309.76074306124
198.630035199447
-12784.0423869834
-16900.5757535473
-6436.48329581097
-40203.216263649
-59612.4444509177
-12937.757921346
-925.553625026251
-9304.77191938773
-38796.1309713635




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159230&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.7795, z = 2.1888, p-value = 0.02861
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.3421, z = 2.4037, p-value = 0.01623
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 21.1581, p-value = 2.544e-05
alternative hypothesis: greater 
> geary
[1] 0.7691792

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.7795, z = 2.1888, p-value = 0.02861
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.3421, z = 2.4037, p-value = 0.01623
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 21.1581, p-value = 2.544e-05
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7691792
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=159230&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = 0.7795, z = 2.1888, p-value = 0.02861
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.3421, z = 2.4037, p-value = 0.01623
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 21.1581, p-value = 2.544e-05
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7691792
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=159230&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159230&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.7795, z = 2.1888, p-value = 0.02861
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 4.3421, z = 2.4037, p-value = 0.01623
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 21.1581, p-value = 2.544e-05
alternative hypothesis: greater 
> geary
[1] 0.7691792



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