R/densityImproperUniform.R

In luisdamiano/BayesHMM: Full Bayesian Inference for Hidden Markov Models

#' Improper uniform prior density (prior only)
#'
#' Improper uniform prior.
#'
#' @inherit Density
#'
#' @family Density
#'
#' @examples
#' # As a prior
#' Beta(ImproperUniform(), ImproperUniform())
ImproperUniform <- function(ordered = NULL, equal = NULL, bounds = list(NULL, NULL),
                    trunc = list(NULL, NULL), k = NULL, r = NULL, param = NULL) {
  PriorOnlyDensity("ImproperUniform", ordered, equal, bounds, trunc, k, r, param)
}

#' @keywords internal
#' @inherit prior
prior.ImproperUniform <- function(x) {
  sprintf("// %s%s%s ~ Improper Uniform Prior;", x$param, x$k, x$r)
}