#' @title Magic model
#' @param df Pass in a dataframe
#' @export
MagicModel <- function(df, ...) {
model = structure(list(x = df[, -1], y = df[, 1]),
class = "MagicModel")
return(model)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.