R/get_anomaly_n2k_model.R

In INBO-Natura2000/n2kanalysis: Generic Functions to Analyse Data from the 'Natura 2000' Monitoring

#' @rdname get_anomaly
#' @importFrom methods setMethod new
#' @include n2k_model_class.R
setMethod(
  f = "get_anomaly",
  signature = signature(analysis = "n2kModel"),
  definition = function(analysis, verbose = TRUE, ...) {
    parameter <- get_model_parameter(analysis = analysis, verbose = verbose)
    return(
      new(
        "n2kAnomaly",
        Parameter = parameter@Parameter,
        ParameterEstimate = parameter@ParameterEstimate
      )
    )
  }
)