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 computationSat, 01 Dec 2012 11:28:14 -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/01/t13543793142frighi8bwsm8b3.htm/, Retrieved Sun, 28 Apr 2024 19:47:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=195355, Retrieved Sun, 28 Apr 2024 19:47:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact145
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]
-       [Multiple Regression] [mu lin reg] [2012-10-31 10:14:49] [2f324ead08cc3849e52bae5d3f3d905a]
- RMPD      [Skewness and Kurtosis Test] [skewnesskurtosis3] [2012-12-01 16:28:14] [e357aba3893873b930815b56a53f1005] [Current]
Feedback Forum

Post a new message
Dataseries X:
-2,950927426978330
0.381817133424683
2,083335628339200
3,127025192635330
-2,358051987768170
-1,736016271757080
3,846299991492700
-2,007756050547860
-1,948445496639430
0.701963528835648
1,137382762208440
-0.101807700721448
0.610689034101525
0.592021391686478
-1,004395063055410
-0.379815923943083
0.489441182277558
3,616619183397030
2,625165134497640
0.506467833505857
0.697230534862408
0.958823175202897
2,546938147237920
1,010762104953450
0.833157851012718
0.778791225792725
1,028275393283400
-1,763968013898280
0.23383301576509
-0.0778957672030686
-0.746027283963927
-0.737377122432317
-0.797418619234848
0.0714998797812351
-1,602200306094290
-2,921926401309670
-3,014672990031160
-1,789991690074690
1,437350998711500
1,527886673384490
1,272815399881450
-1,828353334722140
2,425987886788690
-0.166310878185677
-0.492903544444921
-4,579946776279850
-2,604228985647020
-0.19422943412892
0.370906086774684
-1,730933527775650
-1,147151290076460
-0.221677408920302
-3,145340373452820
0.130447599287036
-2,364552177695210
1,599325081233890
-0.0107717121744094
0.412355641135433
-0.248651715103607
1,699039550281940
0.431959428762646
0.15190661485923
-0.732096822448143
-0.849165794690456
0.546781501160583
1,213271704701020
1,933602545001730
3,776399157994500
-3,703958864557730
0.552161863420334
-3,029195508180270
-0.699009794724861
1,178461282653490
0.952614163101955
0.938146133355616
3,731342199774870
-0.27445348438142
1,725904951442600
-2,033478553739770
1,075230232818890
0.434465248129707
0.463024793312068
-0.556378964773851
0.290823812108053
2,024351239547280
-0.00857332391764814
0.779169251006498
1,293406531085150
0.64524897347781
-1,705080737416820
0.321735886198806
0.256979711011826
-0.0195639849034682
-1,963598028672100
1,302627335705470
0.316937042917328
2,417701080095630
0.231489429954285
-0.319858081531102
-1,024703833760560
1,421202663716270
2,531232510295950
0.947695374061321
1,043666721783040
-1,801167421660320
1,341788163106110
0.285054576863643
1,734830472008470
-0.144502539944409
0.729968269891964
-0.0190228965520521
2,027100875672990
-1,623526260359230
-2,561106515237640
1,817433594802990
-1,874239202780090
0.936575638601393
-1,766415230067080
0.42724619588997
-1,406745684691490
0.560835234710133
-2,891167271223320
-0.904258186860854
-0.892153488946772
-0.902236170738301
0.296367937158025
1,388689572409520
1,016139203359060
-2,744083838490470
2,006357737384350
-3,757672591598220
2,482367885517180
-2,216163117791370
-1,623796371439230
-0.169866756362222
0.857844295374259
0.499053079900598
-2,468624924683490
-1,015724373858640
-2,419446534276200
3,116868494553710
1,244149428599770
-0.00977950660548293
1,726205341693290
-3,356731562514160
2,347253794042720
-2,022884771953820
1,037980817598440
0.122740837501083
-2,983866910785650
-1,149480124312880
1,972426862143270
4,088948984924600
1,118379703492860
-2,511077298298560
0.321735886198806
1,225159115393230
1,016139203359060
1,277952242966510
-0.902448708853643
0.276588643849074
0.640555248578502
-0,219714057890000
0.844074306989343
1,507288988968940
-1,369085648879320
-0.151183746564223
-3,047381402788280
-1,628420756908890
1,671359889890770
1,789630485111520
0.77058264871283
-1,678958916240210
-2,142243663121480
-2,813249493429920
0.563279912781797
-0.0443133302158332
-0.527125897983652
0.347961979312088
-1,242363629001490
1,097128567783510
-0.230816590851172
2,369755033225110
-0.0709573706773562
-6,500257228497550
1,261477725343550
2,598884231887540
-0.276935000932918
-0.337592691072861
0.766460631722878
-0.738347362672255
0.593164124039307
2,445135860848180
2,068898526535350
-0.589629361433986
0.067529462442679
3,102911980567040
0.98199052927266
1,650521445670400
1,458638605459760
2,055406796426970
0.677381538942582
-2,427517794616260
-2,436710987021590
2,330073086545160
0.541347574568722
1,532062753609930
1,068353079510020
-2,556278023983700
1,022060198203120
-2,202902205786250
-3,778443865191100
0.855979820899399
2,969296732284700
1,431517041045760
0.92686536580996
2,325387624558690
0.0576401774804177
1,109497162777210
-0.205965436350932
-1,671017170642970
-0.131920565559881
0.69988175348359
-1,109293774491140
0.288333593457519
-3,747213134275050
0.198419826035607
0.979732572076422
-1,229759183315850
-0.896838277694454
1,754791518045770
-3,213065761663230
4,632282599081560
2,052583830393920
-0.869328863803708
-2,343002738542470
-6,972696729831410
-1,267817848143290
1,693092913476200
-1,682392340516940
-0.287911979522082
-1,501192111694680
1,148577466832540
1,897137209777490
1,290751899520400
0.0314942682585027
1,122268013997320
-2,535800022795170
1,237586914115890
0.260609055995628
-0.922062430482111
-1,730463172570970
0.598033800572314
3,117443736717850
-1,376552282785240
0.0951709146478978
1,480120220034830
2,331720115159230
-1,356690156603050
-5,383345805948790
1,152740671599490
-4,108360953720810
-0.347629194317833
1,085550528595740




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=195355&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'Sir Maurice George Kendall' @ kendall.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.5581, z = -2.3528, p-value = 0.01863
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.7307, z = 2.1123, p-value = 0.03466
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 19.5754, p-value = 5.614e-05
alternative hypothesis: greater 
> geary
[1] 0.7838666

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.5581, z = -2.3528, p-value = 0.01863
alternative hypothesis: data have a skewness 
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.7307, z = 2.1123, p-value = 0.03466
alternative hypothesis: kurtosis is not equal to 3 
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 19.5754, p-value = 5.614e-05
alternative hypothesis: greater 
\tabularnewline
> geary
[1] 0.7838666
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=195355&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x 
skew = -0.5581, z = -2.3528, p-value = 0.01863
alternative hypothesis: data have a skewness 
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.7307, z = 2.1123, p-value = 0.03466
alternative hypothesis: kurtosis is not equal to 3 
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 19.5754, p-value = 5.614e-05
alternative hypothesis: greater 
[/C][/ROW] [ROW][C]
> geary
[1] 0.7838666
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=195355&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=195355&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.5581, z = -2.3528, p-value = 0.01863
alternative hypothesis: data have a skewness 
> anscombe
	Anscombe-Glynn kurtosis test
data:  x 
kurt = 3.7307, z = 2.1123, p-value = 0.03466
alternative hypothesis: kurtosis is not equal to 3 
> jarque
	Jarque-Bera Normality Test
data:  x 
JB = 19.5754, p-value = 5.614e-05
alternative hypothesis: greater 
> geary
[1] 0.7838666



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