2014-01-04 18:02:45 +00:00
|
|
|
# Check for the validity of a parameter vector. Stop at error.
|
|
|
|
|
#
|
|
|
|
|
# Author: Francois Pelletier
|
|
|
|
|
#
|
|
|
|
|
# LGPL 3.0
|
|
|
|
|
###############################################################################
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#' Check for the validity of a parameter vector. Stop at error.
|
|
|
|
|
#' @param param Parameter vector
|
|
|
|
|
#' @param type Choose between "mu" or "kappa" parametrization
|
2014-01-04 22:32:36 +00:00
|
|
|
#' @param log Logical for log-parameters
|
2014-01-04 18:02:45 +00:00
|
|
|
#' @return logical
|
|
|
|
|
#'
|
|
|
|
|
#' @author Francois Pelletier
|
|
|
|
|
testparGAL <- function(param,type="mu",log=FALSE)
|
|
|
|
|
{
|
|
|
|
|
if(log)
|
|
|
|
|
{
|
|
|
|
|
if(type=="mu")
|
|
|
|
|
{
|
|
|
|
|
if(exp(param[2])<=0)
|
|
|
|
|
stop("param 2 must be positive")
|
|
|
|
|
if(exp(param[4])<=0)
|
|
|
|
|
stop("param 4 must be positive")
|
|
|
|
|
}
|
|
|
|
|
if(type=="kappa")
|
|
|
|
|
{
|
|
|
|
|
if(exp(param[2])<=0)
|
|
|
|
|
stop("param 2 must be positive")
|
|
|
|
|
if(exp(param[4])<=0)
|
|
|
|
|
stop("param 4 must be positive")
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if(type=="mu")
|
|
|
|
|
{
|
|
|
|
|
if(param[2]<=0)
|
|
|
|
|
stop("param 2 must be positive")
|
|
|
|
|
if(param[4]<=0)
|
|
|
|
|
stop("param 4 must be positive")
|
|
|
|
|
}
|
|
|
|
|
if(type=="kappa")
|
|
|
|
|
{
|
|
|
|
|
if(param[2]<=0)
|
|
|
|
|
stop("param 2 must be positive")
|
|
|
|
|
if(param[4]<=0)
|
|
|
|
|
stop("param 4 must be positive")
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
TRUE
|
|
|
|
|
}
|
