########################################
#' Print method for \code{bmeta} objects
#'
#' Function to print output from function \code{bmeta}
#'
#'
#' @param x a \code{bmeta} object with results of the model
#' @param \dots other arguments
#' @author Tao Ding Gianluca Baio
print.bmeta<-function(x,...){
print(x$mod,interval=c(0.025,0.975),digit=3)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.