R/sgl_predict.R

In SglOptimizer: Sparse group lasso optimizer

# 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)
}