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 20:22:17 +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/t14159101432l7u3ai64aytlwb.htm/, Retrieved Wed, 22 May 2024 09:29:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=254634, Retrieved Wed, 22 May 2024 09:29:32 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact36
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Skewness and Kurtosis Test] [] [2014-11-04 10:14:29] [32b17a345b130fdf5cc88718ed94a974]
- R  D    [Skewness and Kurtosis Test] [] [2014-11-13 20:22:17] [f11ff77f11120bba23ccca75f7c5b5e0] [Current]
Feedback Forum

Post a new message
Dataseries X:
-202.299
7.494
-328.892
-27.246
886.727
442.772
-12.973
682.049
-0.2965
369.717
368.786
-239.836
-156.832
-187.865
10.701
-123.056
442.937
122.132
-106.871
-151.104
-959.867
-0.467128
-196.324
-143.937
108.181
735.019
191.578
-131.256
690.733
-232.521
541.369
-134.635
-397.318
103.516
302.827
-348.996
105.703
-174.286
201.697
-384.932
-0.853791
340.719
-232.472
-173.174
-410.134
-188.461
-107.255
195.176
181.206
242.766
-292.171
-272.907
-259.056
-812.117
-679.598
544.658
0.700685
-707.565
0.137859
111.292
-825.729
478.038
91.329
-180.934
-177.844
870.295
-185.765
298.153
-98.386
-269.844
-41.493
-167.145
815.544
-668.813
122.151
136.579
-390.455
122.404
638.864
-196.264
557.687
-419.453
-0.529929
-0.201342
615.515
256.753
-302.497
-146.376
894.669
0.937884
-161.392
429.194
127.816
100.564
539.514
0.0670371
55.854
605.386
246.471
-0.19633
431.513
10.457
-425.997
89.642
299.667
127.668
-0.341277
-141.489
-165.542
142.728
58.288
154.524
-312.911
1.84
107.383
-170.249
-425.156
-478.924
191.791
-146.616
608.799
148.926
-0.514799
-0.506566
682.039
131.598
-303.872
586.966
0.419371
-0.707066
387.902
226.248
-376.795
0.721455
139.173
-637.364
-763.212
-125.051
-868.453
-141.311
-193.233
12.964
138.727
570.431
154.574
32.631
-100.058
374.379
910.721
119.552
942.455
-429.606
112.344
453.737
120.169
-161.392
-0.680447
586.966
105.527
179.739
0.795888
658.255
121.684
134.768
615.338
-599.276
681.101
667.135
153.195
854.235
-8.907
-17.883
80.654
-640.626
-0.00809423
471.089
185.628
376.599
-654.335
478.822
-193.224
-534.134
-378.684
608.905
180.436
940.579
295.884
147.808
-137.803
-176.174
-315.107
0.372594
0.253211
-600.097
166.763
-174.295
123.268
168.399
-122.693
740.696
39.433
-148.981
158.006
-156.927
-0.676103
204.732
125.709
-194.654
0.278092
111.612
-149.765
861.345
207.809
110.393
-0.270594
-499.331
105.954
105.283
-0.507829
100.943
567.545
-155.667
589.696
-146.109
-246.571
499.101
-20.553
-737.405
570.919
0.834923
0.168965
100.219
-157.744
247.166
-266.757
152.079
101.703
-203.949
227.432
252.005
175.841
-107.343
-724.632
-132.715
108.155
55.919
-0.750061
-196.754
-430.115
-115.273
0.223532
113.642
-0.496627
174.534
0.67617
-159.456
114.586
-197.289
-36.508
126.323
-660.879
-454.858
0.682932
128.438




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=254634&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'Gertrude Mary Cox' @ cox.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = 0.1244, z = 0.5565, p-value = 0.5779
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.3282, z = 1.1946, p-value = 0.2322
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.8663, p-value = 0.3933
alternative hypothesis: greater
> geary
[1] 0.7482725

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 0.1244, z = 0.5565, p-value = 0.5779
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.3282, z = 1.1946, p-value = 0.2322
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.8663, p-value = 0.3933
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7482725
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=254634&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = 0.1244, z = 0.5565, p-value = 0.5779
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.3282, z = 1.1946, p-value = 0.2322
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.8663, p-value = 0.3933
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7482725
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=254634&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=254634&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.1244, z = 0.5565, p-value = 0.5779
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.3282, z = 1.1946, p-value = 0.2322
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 1.8663, p-value = 0.3933
alternative hypothesis: greater
> geary
[1] 0.7482725



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