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 computationTue, 09 Dec 2014 09:33:10 +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/09/t1418117627m0z2ee5mwqa5g7s.htm/, Retrieved Thu, 31 Oct 2024 23:26:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264354, Retrieved Thu, 31 Oct 2024 23:26:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact152
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [] [2014-12-09 09:12:03] [a30ebaf79f34e9d2b1bcdd5006125d11]
- RM      [Skewness and Kurtosis Test] [] [2014-12-09 09:33:10] [fbbeb95c33c8ff026e5ecae513ae1a4b] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.788647
155.546
0.804609
-36.458
-373.178
-122.882
28.857
389.336
0.192475
-392.352
-0.333889
-465.271
127.299
-0.592593
-0.772991
157.499
0.338633
-117.163
-201.784
0.274245
-43.271
287.752
-392.859
141.637
0.607079
-354.384
368.036
309.364
-115.072
0.128362
-0.676746
-0.304062
-127.232
-160.345
177.963
154.967
-0.695907
177.835
-261.035
-0.291895
-383.766
0.342448
134.074
-0.781391
428.306
-20.836
275.479
-134.655
349.671
287.124
110.839
-0.4887
-0.0762528
-0.0157928
35.219
0.383231
-598.015
424.678
0.243905
309.108
-270.595
0.244925
-171.004
25.597
-413.286
0.651963
-172.227
-0.819322
20.013
143.301
-0.977559
0.79769
-0.908709
448.222
194.025
0.998415
200.179
118.189
0.900923
-158.675
0.0137252
272.521
0.94123
-527.164
-111.036
151.888
243.151
219.318
-170.284
14.569
377.349
-49.378
-160.221
-17.217
-213.913
-231.655
-399.999
15.555
3.698
-221.629
22.222
-0.0199941
-0.335398
-124.417
456.209
-173.408
343.824
-497.681
-189.564
-0.82813
0.411369
139.089
-703.218
126.729
264.204
208.347
0.485818
-0.322359
-0.861858
242.983
0.187527
0.981152
207.985
430.777
-258.886
-0.768782
122.887
0.552352
321.084
0.528052
0.278547
-0.508539
110.899
144.948
0.235916
0.242562
296.039
-153.091
230.876
190.934
-168.682
1.75
0.765164
336.301
0.172055
132.501
-0.451406
0.121986
-0.0518328
146.372
-659.251
185.813
225.258
-0.418306
142.656
-0.0546135
233.698
107.746
-133.143
-221.299
215.225
222.065
-0.186408
695.394
140.298
-119.505
221.247
0.756864
-0.111472
-288.406
153.504
234.866
-189.034
-109.064
-104.734
304.802
-0.898278
265.844
-105.103
-401.209
-149.378
-21.393
32.506
0.329592
-355.545
0.331875
1.742
-258.549
-368.308
0.221832
-259.049
148.466
-326.543
312.244
-0.511446
0.814855
-155.819
0.324036
10.222
0.761676
-0.44085
0.44602
-190.043
-0.0403802
-114.181
116.564
-0.546115
-0.110474
400.563
254.003
-0.779087
-0.276851
-170.008
-0.407898
0.053794
-0.751286
166.354
159.219
-14.018
-0.374637
232.538
-453.326
-190.857
135.805
256.572
195.865
172.377
191.714
43.247
304.601
251.389
333.648
-0.51165
-320.736
-256.739
-683.009
-0.790756
-116.604
0.0858566
-0.853281
-103.688
-142.423
0.498612
160.583
-29.507
-0.185396
0.794177
-0.154671
101.777
-112.852
-324.748
-109.485
0.586205
102.015
-333.903
111.957
-476.411
-563.266
-233.745
-666.835
-155.625
-230.465
-390.149
0.515657
183.422
0.389291
-0.315294
105.478
151.538
-14.733
-0.125959
-0.977684
153.734
216.946
0.697948
-0.483122
0.832608
-339.313




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264354&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.5035, z = -2.1980, p-value = 0.02795
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.0561, z = 2.7565, p-value = 0.005842
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 24.6639, p-value = 4.409e-06
alternative hypothesis: greater
> geary
[1] 0.6868921

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5035, z = -2.1980, p-value = 0.02795
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.0561, z = 2.7565, p-value = 0.005842
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 24.6639, p-value = 4.409e-06
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.6868921
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=264354&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.5035, z = -2.1980, p-value = 0.02795
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.0561, z = 2.7565, p-value = 0.005842
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 24.6639, p-value = 4.409e-06
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.6868921
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=264354&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264354&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.5035, z = -2.1980, p-value = 0.02795
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 4.0561, z = 2.7565, p-value = 0.005842
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 24.6639, p-value = 4.409e-06
alternative hypothesis: greater
> geary
[1] 0.6868921



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