Skip to content
Snippets Groups Projects
Commit 4bc3f866 authored by Jerome Mariette's avatar Jerome Mariette
Browse files

improve connectivity with SOMbrero

parent 829879cb
No related branches found
No related tags found
No related merge requests found
......@@ -56,7 +56,7 @@ compute.kernel <- function(X, kernel.func = "linear", ..., test.pos.semidef = FA
cl[[1]] <- as.name('compute.kernel')
result <- (list(call = cl, kernel = similarities, X = X,
kernel.func = kernel.func, kernel.args = kernel.args))
class(result) <- c("kernel")
class(result) <- c("kernel", "matrix", "array")
return(invisible(result))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment