R/merlin_p_rp.R

Defines functions merlin_p_rp_s merlin_p_rp_logch merlin_p_rp_ch merlin_p_rp_h

#predict fucntions for family(rp)

merlin_p_rp_h <- function(gml,t=NULL)
{
  if (length(t)==0) t = merlin_util_timevar(gml)
  return(exp(merlin_util_xzb(gml,t) + log(merlin_util_xzb_deriv(gml,t))))
}

merlin_p_rp_ch <- function(gml,t=NULL)
{
  if (length(t)==0) t = merlin_util_timevar(gml)
  return(exp(merlin_util_xzb(gml,t)))
}

merlin_p_rp_logch <- function(gml,t=NULL)
{
  if (length(t)==0) t = merlin_util_timevar(gml)
  return(merlin_util_xzb(gml,t))
}

merlin_p_rp_s <- function(gml,t=NULL)
{
  if (length(t)==0) t = merlin_util_timevar(gml)
  return(exp(-exp(merlin_util_xzb(gml,t))))
}

Try the merlin package in your browser

Any scripts or data that you put into this service are public.

merlin documentation built on July 8, 2020, 7:31 p.m.