R/FHT_link_function.R

In vegarsti/fhtboost: Boosting for High-Dimensional First Hitting Time Threshold Regression

#' FHT link function
#'
#' Given design matrices, returns the corresponding link function, taking \code{beta}, \code{gamma}. Essentially encapsulating the design matrices.
#'
#' @param X Design matrix for \code{ln y0 = beta^T * X}
#' @param Z Design matrix for \code{mu = gamma^T * Z}
#'
#' @return \code{link_function} Function taking \code{beta}, \code{gamma} and returning \code{y0}, \code{mu}.
#'
#' @keywords keywords
#'
#' @export
#'
#' @examples
#' R code here showing how your function works

FHT_link_function <- function(X, Z) {
  link_function <- function(beta_vector, gamma_vector) {
    y0 <- exp(X %*% beta_vector)
    mu <- Z %*% gamma_vector
    return(list(y0=y0, mu=mu))
  }
  return(link_function)
}