#' @rdname get_result
#' @importFrom methods setMethod new
#' @include n2k_model_class.R
#' @include n2k_result_class.R
#' @param verbose Print extra information on the screen
setMethod(
f = "get_result",
signature = signature(x = "n2kModel"),
definition = function(x, verbose = TRUE, ...) {
validObject(x)
anomaly <- get_anomaly(analysis = x, verbose = verbose, ...)
return(
new(
"n2kResult",
AnalysisMetadata = x@AnalysisMetadata,
AnalysisFormula = lapply(x@AnalysisMetadata$formula, as.formula),
AnalysisRelation = x@AnalysisRelation,
AnalysisVersion = x@AnalysisVersion,
RPackage = x@RPackage,
AnalysisVersionRPackage = x@AnalysisVersionRPackage,
Parameter = anomaly@Parameter,
ParameterEstimate = anomaly@ParameterEstimate,
AnomalyType = anomaly@AnomalyType,
Anomaly = anomaly@Anomaly
)
)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.