R/coef.R

In StatsIMUWr/gslope: Graphical SLOPE

#' @title Prints precision matrix from gslope
#'
#' @param x an object of class `'gslope'`
#'
#' @return Prints output on the screen
#'
#' @examples
#' w = gslope(as.matrix(mtcars))
#' coef(w)
#'
#' @export
coef <- function(x){
  UseMethod("coef")
}

#' @rdname coef
#' @export
coef.gslope <- function(x){
  print(x$precision_matrix)
}