Nothing
kPCA.kernelMatrix <-
function(x, ...){
old.class <- class(x)
class(x) <- "kern"
object <- kPCA.kern(x)
class(object$K) <- old.class
class(object) <- c("kPCA.kernelMatrix", class(object))
return(object)
}
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.