R/coef.xtune.R

In xtune: Regularized Regression with Feature-Specific Penalties Integrating External Information

#' Extract model coefficients from fitted \code{xtune} object
#'
#' \code{coef_xtune} extracts model coefficients from objects returned by \code{xtune} object.
#' @param object Fitted 'xtune' model object.
#' @param ... Not used
#' @details \code{coef} and \code{predict} methods are provided as a convenience to extract coefficients and make prediction. \code{coef.xtune} simply extracts the estimated coefficients returned by \code{xtune}.
#' @return Coefficients extracted from the fitted model.
#' @seealso \code{xtune}, \code{predict_xtune}
#' @examples
#' # See examples in \code{predict_xtune}.
#' @export

coef_xtune <- function(object,...) {
        beta.est <- object$beta.est
        return(drop(beta.est))
}