Nothing
#' Evaluate estimated parameters
#'
#' Compare estimated parameters to true parameters
#'
#' @template evaluation
#' @template evaluate-parameter
#'
#' @details The same \code{criterion}s are implemented for
#' \code{evaluate_parameters} and \code{\link{evaluate_imputed_values}}.
#' The possible choices are documented in \code{\link{evaluate_imputed_values}}.
#'
#' @param pars_est A vector or matrix of estimated parameters.
#' @param pars_true True parameters, normally a vector or a matrix.
#' @param est_pars Deprecated, renamed to \code{pars_est}.
#' @param true_pars Deprecated, renamed to \code{pars_true}.
#'
#' @export
#'
#' @examples
#' evaluate_parameters(1:4, 2:5, "RMSE")
evaluate_parameters <- function(pars_est, pars_true, criterion = "RMSE",
tolerance = sqrt(.Machine$double.eps),
est_pars, true_pars) {
# Deprecate true_pars, est_pars
check_renamed_arg(true_pars, pars_true)
check_renamed_arg(est_pars, pars_est)
if (!isTRUE(all.equal(dim(pars_est), dim(pars_true))) ||
length(pars_est) != length(pars_true)) {
stop("the dimensions of pars_est and pars_true must be equal")
}
calc_evaluation_criterion(pars_est, pars_true, criterion,
M = NULL,
tolerance = tolerance
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.