partage/GeneralizedAsymmetricLaplace
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Correction ordre des paramètres mGAL et cmGAL

Browse source
This commit is contained in:
François Pelletier 2014-03-05 22:20:16 -05:00
parent a7a238dd9b
commit a2ff837ec7
5 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/cmGAL.R
View file

@ -7,19 +7,19 @@
###############################################################################
#' Centered moments of the GAL distribution
#' @param order Order of raw moment
#' @param param Parameter vector
#' @param order Order of raw moment
#' @param type Choose between "mu" or "kappa" parametrization
#' @param log Logical for log-parameters
#' @return A numeric value of the centered moment
#' @export cmGAL
#' @author Francois Pelletier
cmGAL <- function(order,param,type="mu",log=FALSE)
cmGAL <- function(param,order,type="mu",log=FALSE)
{
testparGAL(param,type,log)
if(log)
{
return(cmGAL(order,exp(param),type,log=FALSE))
return(cmGAL(exp(param),order,type,log=FALSE))
}
else
{

6
R/mGAL.R
View file

@ -7,19 +7,19 @@
#' Raw moments of the GAL distribution
#' @param order Order of raw moment
#' @param param Parameter vector
#' @param order Order of raw moment
#' @param type Choose between "mu" or "kappa" parametrization
#' @param log Logical for log-parameters
#' @return A numeric value of the raw moment
#' @export mGAL
#' @author Francois Pelletier
mGAL <- function(order,param,type="mu",log=FALSE)
mGAL <- function(param,order,type="mu",log=FALSE)
{
testparGAL(param,type,log)
if(log)
{
return(mGAL(order,exp(param),type,log=FALSE))
return(mGAL(exp(param),order,type,log=FALSE))
}
else
{