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

modification startparamGAL

Browse source
This commit is contained in:
François Pelletier 2014-03-05 19:28:18 -05:00
parent 861e3b6339
commit aaa7399384
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/startparamGAL.R
View file

@ -26,12 +26,12 @@ startparamGAL <- function(data,type="mu",log=FALSE)
mu <- mom[3]*sigma*sqrt(2/(3*(mom[4])))
theta <- mom[1]-tau*mu
if(log==FALSE)
return(c(theta,sigma,mu,tau))
c(theta,sigma,mu,tau)
else
return(log(c(theta,sigma,mu,tau)))
log(c(theta,sigma,mu,tau))
}
if(type=="kappa")
{
return(changetypeGAL(startparamGAL(data,type="mu",log),type="kappa",target="mu",log))
changetypeGAL(startparamGAL(data,type="mu",log),type="kappa",target="mu",log)
}
}