is.ipriorBVS <- function(x) inherits(x, "ipriorBVS")
is.ipriorBVS_data <- function(x) inherits(x, "ipriorBVS_data")
as.data.frame.ipriorBVS_data <- function(x) x$data
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.