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 computationMon, 15 Dec 2014 13:17:35 +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/15/t1418649478a7e4nx9yaexkg7i.htm/, Retrieved Thu, 31 Oct 2024 23:42:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268317, Retrieved Thu, 31 Oct 2024 23:42:09 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact109
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Skewness and Kurtosis Test] [paper] [2014-12-15 13:17:35] [627bde65e5570be47fd7fc8a9f75ea40] [Current]
Feedback Forum

Post a new message
Dataseries X:
-1,487
-5,985
-1,321
-1,166
-6,644
-6,888
-2,658
1,091
-1,360
-3,487
-6,913
-2,481
-7,666
-1,600
-3,034
-4,453
-0,378
-2,664
-3,534
-4,186
-1,998
-6,336
-1,005
-3,701
-0,767
-2,501
-4,114
-0,137
0,788
-3,861
-1,061
-3,603
-2,059
-6,843
-3,904
-5,072
-2,035
-2,823
-2,007
-0,197
-5,946
-1,939
-7,411
-2,887
-1,251
-2,266
0,846
-3,583
-1,347
-5,070
0,929
0,052
-0,895
-4,342
-2,190
-0,699
-0,287
-2,612
-6,472
1,350
-2,157
0,276
-5,598
-0,900
-4,198
0,778
-5,006
-2,725
-3,821
-2,818
0,186
-0,367
-3,474
-1,378
-3,589
0,273
-7,245
0,164
-0,925
-0,442
-0,824
-1,537
-5,231
-2,076
1,712
-1,368
-7,309
-2,757
-1,804
-1,162
-0,318
-3,720
0,870
0,739
-6,483
-3,018
-3,123
-4,548
-2,938
-5,751
-0,568
1,655
-4,940
-0,900
-1,532
-2,707
-3,183
1,874
-3,925
1,367
-6,436
-4,525
-2,913
-0,725
-0,749
-7,504
0,747
4,787
4,399
1,372
1,127
1,102
3,638
-0,617
2,367
3,943
4,227
-2,177
0,677
3,219
-1,158
3,873
1,413
1,789
0,725
2,277
1,864
0,772
-0,073
4,681
-1,821
4,589
1,486
-0,096
4,870
1,883
5,190
2,782
2,663
3,150
-0,062
-0,854
1,451
2,240
3,902
-2,788
1,859
4,193
3,135
2,640
1,297
3,475
2,908
0,542
-0,459
4,593
4,115
2,577
5,598
3,612
-1,009
4,990
3,041
1,815
-1,060
3,153
4,731
0,571
1,573
1,678
5,072
-0,334
5,793
1,789
-3,582
-0,612
0,782
5,035
2,989
0,113
2,534
4,750
0,264
-0,674
1,404
-1,553
3,575
-1,945
5,693
1,435
1,216
1,177
2,274
2,749
3,135
1,189
1,153
0,836
3,402
0,994
2,766
-1,232
0,587
0,448
7,043
3,987
-0,248
2,295
-0,730
2,329
2,601
-0,402
3,105
0,644
4,786
-0,439
1,934
4,889
-2,610
-0,539
4,060
5,784
3,580
4,855
2,863
5,202
6,030
5,516
4,756
1,549
-0,238
-1,379
-7,100
1,313
0,102
-1,062
0,533
0,638
0,763
2,033
4,162
4,790
-1,710
2,054
3,725
0,865
3,205
0,907
-0,817
-0,175
2,255
2,883
-0,413
3,215
-3,397
-3,780
-0,313
-5,196
-1,912
0,424
-3,252
1,998
4,161
1,310
1,712
3,599
3,910
-0,419
3,491
0,632
3,534
4,501
2,317
1,147
3,881
-2,694
NA




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

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







Skewness and Kurtosis Test
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2855, z = -1.3072, p-value = 0.1911
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5297, z = -1.9635, p-value = 0.04959
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = NA, p-value = NA
alternative hypothesis: greater
> geary
[1] NA

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2855, z = -1.3072, p-value = 0.1911
alternative hypothesis: data have a skewness
\tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5297, z = -1.9635, p-value = 0.04959
alternative hypothesis: kurtosis is not equal to 3
\tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = NA, p-value = NA
alternative hypothesis: greater
\tabularnewline
> geary
[1] NA
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=268317&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]
> agostino
	D'Agostino skewness test
data:  x
skew = -0.2855, z = -1.3072, p-value = 0.1911
alternative hypothesis: data have a skewness
[/C][/ROW] [ROW][C]
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5297, z = -1.9635, p-value = 0.04959
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW] [ROW][C]
> jarque
	Jarque-Bera Normality Test
data:  x
JB = NA, p-value = NA
alternative hypothesis: greater
[/C][/ROW] [ROW][C]
> geary
[1] NA
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=268317&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268317&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.2855, z = -1.3072, p-value = 0.1911
alternative hypothesis: data have a skewness
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.5297, z = -1.9635, p-value = 0.04959
alternative hypothesis: kurtosis is not equal to 3
> jarque
	Jarque-Bera Normality Test
data:  x
JB = NA, p-value = NA
alternative hypothesis: greater
> geary
[1] NA



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