R/internal.R

In pedro-teles-fonseca/polya: Bayesian Hypothesis Testing for Categorical Data

getmode <- function(v) {
  uniqv <- unique(v)

  uniqv[which.max(tabulate(match(v, uniqv)))]
}

# ver se tenho alguma função/condição a garantir que null_par tem a length certa.
# no FBF se frac==0 os hyper-par podem ser igual a zero? posso deixar o resultado ser INF ou é supsoto ser indefinido?
# e no full bf, hyper par = c(0,0) deve dar Inf, NaN ou erro?
#

# check_args_binomial <- function(
#   x,
#   success,
#   null_par,
#   prior,
#   hyper_par,
#   in_favour) {
#
#   inspector::inspect_data_cat_as_dichotomous(x, success)
#   inspector::inspect_par_bernoulli(null_par)
#   inspector::inspect_character_match(prior, c("Haldane", "haldane", "Beta", "beta"))
#   inspector::inspect_par_beta(hyper_par)
#   inspector::inspect_character_match(in_favour, c("H0", "H1", "h0", "h1", "null", "alternative"))
# }
#
# check_args_multinomial <- function(
#   x,
#   categories,
#   null_par,
#   prior,
#   hyper_par,
#   in_favour) {
#
#   inspector::inspect_data_categorical(x)
#   inspector::inspect_categories(categories)
#   inspector::inspect_par_multinomial(null_par)
#   inspector::inspect_character_match(prior, c("Haldane", "haldane", "Dirichlet", "dirichlet"))
#   inspector::inspect_character_match(in_favour, c("H0", "H1", "h0", "h1", "null", "alternative"))
#
#   if(tolower(prior) == "dirichlet") {
#     inspector::inspect_par_dirichlet(hyper_par)
#     }
#   if (length(null_par) != length(hyper_par)) {
#     stop("null_par and hyper_par must have the same length.")
#     }
# }
#
#

release_questions <- function() {

  c(
    "Have you updated the version number in inst/CITATION (two fields)?",
    "Have you run all the tests listed in cran-comments.md?",
    "Have you evaluated the impact on downstream dependencies?",
    "Have you updated the 'downstream dependencies' section of cran-comments?"
  )
}