Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_skewness_kurtosis.wasp

Title produced by software

Skewness and Kurtosis Test

Date of computation

Wed, 07 Dec 2016 20:04:52 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Dec/07/t1481137502029kx0l48yhsmta.htm/, Retrieved Tue, 07 May 2024 20:07:40 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=298310, Retrieved Tue, 07 May 2024 20:07:40 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Skewness and Kurtosis Test] [N2596] [2016-12-07 19:04:52] [85f5800284aab30c091766186b093bb4] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0.0075063668930923 
-0.280788438588458 
0.513065215865864 
-0.296056970486178 
0.0362932639189727 
0.412730475497576 
-0.195942962834264 
-0.268477736234799 
0.157095336153263 
-0.0776490136846 
0.267376903065095 
0.392508722373886 
-0.435625818477395 
-0.586124841279234 
0.491910547954536 
-0.176939170612101 
0.208819896771553 
0.208921119441518 
-0.180929667700859 
-0.303394079759038 
0.0940462086198769 
0.113956440274725 
-0.270983785625762 
0.133038344779353 
0.116240098973128 
-0.240109944970642 
0.161460527084112 
0.112480127420891 
0.192128511742859 
0.251382791953871 
-0.231949952148991 
-0.0252968995314948 
0.144758319753986 
-0.0481937983274859 
-0.0938340322112646 
-0.287742874885512 
0.513079270244356 
-0.19701261379693 
0.366869029045588 
0.02401816745894 
0.517334587363149 
0.464692706540017 
0.0507982114875162 
-0.314445617075339 
-0.212569037911174 
-0.010985124135163 
-0.428759742962028 
0.314238477216513 
-0.244074539779063 
-0.465202034651774 
0.233550046944657 
0.284044647895914 
0.0410184741241124 
0.493781606429811 
-0.648168112887918 
-0.735096178614847 
-0.0309688234192364 
0.173258089812626 
0.674835066613517 
-0.153632039901733 
-0.798219868005473 
0.254256233076233 
0.181171637448541 
-0.151236268889532 
0.203540690164713 
-0.0425578400700779 
0.067191294954065 
0.383713535482846 
0.183862458455974 
0.543752931383461 
0.121903366958103 
0.0244963855068345 
0.0561171928300901 
0.166936604186915 
0.400204546355395 
0.244902570461363 
0.254830615648828 
-0.209828273527828 
-0.288714544425893 
-0.302005321556873 
-0.138358308584101 
-0.221233611747 
0.146702124094549 
-0.0862292895668197 
0.0978613805503867 
0.304602032473362 
-0.234658242698909 
-0.300324532047931 
-0.0993225121305219 
-0.237563053649042 
0.0715340345150359 
0.298051602830593 
-0.0470842082407437 
0.337259280635856 
-0.195886643657969 
-0.0234742122591065 
0.0279691332612542 
-0.0085091048562429 
0.0349348614323803 
0.271737850939422 
0.243175083049046 
0.234313643445322 
0.298642687115949 
0.1897089199565 
-0.142374066585381 
-0.00662710096744945 
0.231880501893798 
0.56552905357672 
-0.0409738868879632 
0.350894270655369 
0.509261844389243 
0.282961282452149 
-0.314766728037727 
0.468180435339418 
-0.379023650524227 
0.121986336321976 
-0.58996751671846 
0.365204966987775 
0.208602990316257 
0.317519329606807 
0.0362686184777541 
0.193766297127226 
0.415044363174102 
-0.207156129354036 
-0.0200206102191611 
0.0656592902137128

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=298310&T=0

[TABLE]
[ROW]

Summary of computational transaction[/C][/ROW] [ROW]

Raw Input[/C]

view raw input (R code) [/C][/ROW] [ROW]

Raw Output[/C]

view raw output of R engine [/C][/ROW] [ROW]

Computing time[/C]

1 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=298310&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298310&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center

Skewness and Kurtosis Test
> agostino D'Agostino skewness test data: x skew = -0.36529, z = -1.71570, p-value = 0.08622 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.879000, z = -0.019916, p-value = 0.9841 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 2.8792, p-value = 0.237 alternative hypothesis: greater
> geary [1] 0.8106111

\begin{tabular}{lllllllll}
\hline
Skewness and Kurtosis Test \tabularnewline
> agostino
	D'Agostino skewness test
data:  x
skew = -0.36529, z = -1.71570, p-value = 0.08622
alternative hypothesis: data have a skewness
 \tabularnewline
> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.879000, z = -0.019916, p-value = 0.9841
alternative hypothesis: kurtosis is not equal to 3
 \tabularnewline
> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.8792, p-value = 0.237
alternative hypothesis: greater
 \tabularnewline
> geary
[1] 0.8106111
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=298310&T=1

[TABLE]
[ROW][C]Skewness and Kurtosis Test[/C][/ROW]
[ROW][C]> agostino
	D'Agostino skewness test
data:  x
skew = -0.36529, z = -1.71570, p-value = 0.08622
alternative hypothesis: data have a skewness
[/C][/ROW]
[ROW][C]> anscombe
	Anscombe-Glynn kurtosis test
data:  x
kurt = 2.879000, z = -0.019916, p-value = 0.9841
alternative hypothesis: kurtosis is not equal to 3
[/C][/ROW]
[ROW][C]> jarque
	Jarque-Bera Normality Test
data:  x
JB = 2.8792, p-value = 0.237
alternative hypothesis: greater
[/C][/ROW]
[ROW][C]> geary
[1] 0.8106111
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=298310&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298310&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.36529, z = -1.71570, p-value = 0.08622 alternative hypothesis: data have a skewness
> anscombe Anscombe-Glynn kurtosis test data: x kurt = 2.879000, z = -0.019916, p-value = 0.9841 alternative hypothesis: kurtosis is not equal to 3
> jarque Jarque-Bera Normality Test data: x JB = 2.8792, p-value = 0.237 alternative hypothesis: greater
> geary [1] 0.8106111

Parameters (Session):

par1 = -1.0 ; par2 = 1 ; par3 = 0 ; par4 = 1 ;

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code