R/nonzeroCoef.RobZS.R

#' nonzeroCoef.RobZS
#'
#' @param beta
#'
#' @return
#' @export
#'
#' @examples
nonzeroCoef.RobZS  <- function (beta){
  beta <- as.matrix(beta)
  beta <- abs(beta)>0
  beta <- which(beta)
  names(beta) <- 1:length(beta)
  return(beta)
}
giannamonti/RobZS documentation built on July 15, 2021, 3:22 a.m.