Nothing
# TODO: Add comment
#
# Author: martin
###############################################################################
#' Sgl predict
#'
#' @param module_name
#' @param PACKAGE
#' @param object
#' @param data
#' @param ...
#' @returnType
#' @return sgl object
#' @author Martin Vincent
#' @export
sgl_predict <- function(module_name, PACKAGE, object, data, ...) {
res <- list()
if("beta" %in% names(object)) {
beta <- lapply(X = object$beta, FUN = function(m) as(m, "CsparseMatrix"))
beta <- lapply(X = beta, FUN = function(m) list(dim(m), m@p, m@i, m@x))
call_sym <- paste(module_name, "sgl_predict", sep="_")
res <- .Call(call_sym, PACKAGE = PACKAGE, data, beta)
} else {
stop("No models found - missing beta")
}
class(res) <- "sgl"
return(res)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.