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 computationFri, 12 Dec 2014 12:25:52 +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/12/t1418387267kxyizave87ch6rq.htm/, Retrieved Thu, 16 May 2024 03:51:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266600, Retrieved Thu, 16 May 2024 03:51:39 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact74
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [] [2014-12-12 12:25:52] [d3a85ea23f6d8881e8b5a834ebd3a404] [Current]
Feedback Forum

Post a new message
Dataseries X:
-26.003
925.559
-158.547
124.419
-98.547
-0.00298807
-170.642
-900.299
26.035
115.901
-470.642
154.419
0.848728
259.015
177.004
744.186
-115.581
229.358
399.701
211.453
788.671
844.186
259.015
755.216
929.358
0.145296
41.453
-355.814
102.936
-240.985
-238.547
-0.558137
429.358
-115.581
-355.814
355.216
625.559
0.590147
81.453
-244.784
-138.547
-315.127
-455.814
-195.581
-245.581
202.556
-555.814
729.358
192.556
-500.299
31.453
-200.299
-115.581
988.671
488.671
41.453
-127.064
199.701
-444.784
-655.814
729.358
570.044
-759.612
-115.581
184.873
-715.127
131.453
51.453
-600.299
-167.064
-440.985
-18.547
570.044
174.039
-989.269
699.701
-117.064
-131.513
122.936
-188.547
-155.814
-38.547
299.701
-555.814
699.701
-145.581
344.186
544.186
135.522
484.873
284.873
0.848728
-171.513
118.867
-208.547
-400.299
124.419
429.358
584.873
-574.441
145.522
344.186
114.419
-234.478
473.843
0.848728
-355.814
555.216
-28.547
884.873
570.044
929.358
141.073
-255.814
-385.581
-855.814
144.186
0.848728
129.358
-28.547
529.358
544.186
-0.00298807
-544.784
115.901
-170.642
-126.157
-175.581
-3.965
174.419
-440.985
-655.814
629.358
-200.299
844.186
-215.581
124.419
-940.985
-3.965
61.453
559.015
-13.041
-755.814
152.936
-255.814
0.441863
-118.547
184.419
-255.814
-455.814
-18.547
71.453
144.186
144.186
-247.064
114.419
114.419
167.384
129.358
944.186
-145.581
-855.814
259.015
-98.547
473.843
240.388
-370.642
-0.854704
0.29358
13.997
644.186
22.035
-18.547
484.873
229.358
229.358
-0.70642
-755.814
-252.996
-755.814
-0.892691
-0.299556
-959.612
-270.642
344.186
-178.547
429.358
799.701
999.701
118.487
-155.814
-68.547
124.419
61.453
102.936
-114.478
-455.814
-48.547
-655.814
-415.127
114.419
-755.814
929.358
51.453
-105.581
0.700444
-107.064
-126.157
-14.003
-189.269
310.731
-140.985
0.738431
629.358
725.559
399.701
-300.299
-167.064
273.843
-855.814
-18.547
429.358
688.671
-155.814
-315.127
-355.814
-329.956
444.186
829.358
488.671
-270.642
111.453
-0.854704
115.901
-455.814
-3.965
344.186
740.388
10.997
-227.064
788.671
164.419
-540.985
244.186
-159.612
-329.956
41.453
-141.133
-11.003
101.453
929.358
229.358
-18.547
-455.814
-334.099
-101.513
529.358
0.590147
122.936
355.216
-125.581
-170.642
370.044
-105.581
744.186
-155.814
-28.547
-168.547
214.419
114.419
573.843
61.453
-10.965
129.358
344.186
544.186
-105.581
584.873




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266600&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 time0 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = 0.0836, z = 0.3840, p-value = 0.701
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.0428, z = 0.3554, p-value = 0.7223
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.3452, p-value = 0.8415
alternative hypothesis: greater
> geary
[1] 0.7632782

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = 0.0836, z = 0.3840, p-value = 0.701
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.0428, z = 0.3554, p-value = 0.7223
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.3452, p-value = 0.8415
alternative hypothesis: greater
\tabularnewline
> geary
[1] 0.7632782
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=266600&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = 0.0836, z = 0.3840, p-value = 0.701
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.0428, z = 0.3554, p-value = 0.7223
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.3452, p-value = 0.8415
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] 0.7632782
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=266600&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266600&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.0836, z = 0.3840, p-value = 0.701
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 3.0428, z = 0.3554, p-value = 0.7223
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 0.3452, p-value = 0.8415
alternative hypothesis: greater
> geary
[1] 0.7632782



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