R/f_post.R

In igutierrezm/ANOVABNPTestR: A Bayesian Nonparametric Factorial ANOVA

#' Return the posterior predictive pdf
#'
#' @param fit An object of class anova_bnp_model.
#' @return A tibble with the following variables:
#' \itemize{
#'   \item group the group id.
#'   \item y the value of the response variable.
#'   \item the posterior predictive pdf evaluated at y, given the group.
#' }
#' @export
f_post <- function(fit) {
  fit$f_post
}

#' Return the posterior predictive cdf
#'
#' @param fit An object of class anova_bnp_model.
#' @return A tibble with the following variables:
#' \itemize{
#'   \item group the group id.
#'   \item y the value of the response variable.
#'   \item the posterior predictive cdf evaluated at y, given the group.
#' }
#' @export
F_post <- function(fit) {
  fit$F_post
}