2021-04-20 17:30:35 +00:00
|
|
|
#' Extracts the OPG or refined reduction coefficients from an nnsdr class instance
|
|
|
|
#'
|
|
|
|
#' @param object nnsdr class instance
|
2021-09-10 17:05:28 +00:00
|
|
|
#' @param ... Additional parameters passed down to `object$coef`.
|
|
|
|
#'
|
2021-04-20 17:30:35 +00:00
|
|
|
#' @return Matrix
|
|
|
|
#'
|
|
|
|
#' @method coef nnsdr
|
|
|
|
#' @export
|
2021-09-10 17:05:28 +00:00
|
|
|
coef.nnsdr <- function(object, ...) {
|
|
|
|
object$coef(...)
|
2021-04-20 17:30:35 +00:00
|
|
|
}
|