#' Print function for madr.enumerate class
#'
#' This function prints results from madr.enumerate class
#'
#' @export
#'
#' @param x madr.enumerate object
#' @param ... ignored
#'
print.madr.enumerate <- function(x,...){
res = summary(x)
cat(paste("\nMA-DR with tau=",x$tau))
if (x$two.stage){
cat(" and two-stage procedure for calculating weights")
}else{
}
cat(paste("\n\nEstimate:",res$madr))
cat("\n\nPropensity score model inclusion probabilities:\n")
print(round(res$weight.ps,3))
cat("\nOutcome model inclusion probabilities:\n")
print(round(res$weight.om,3))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.