Nothing
"poly.kernel" <-
function(x, y=x, param.kernel = 1,...)
{
if(is.null(param.kernel))
param.kernel <- 1
K= if(param.kernel == 1)
x %*% t(y)
else (x %*% t(y) + 1)^param.kernel
if(param.kernel==1) attr(K,"linear")=TRUE
K
}
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.