decondata <- function(data){
class(data) <- "decon"
data
}
searchdata <- function(data){
class(data) <- "search"
data
}
fitdata <- function(data){
class(data) <- "fit"
data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.