`ojaGradient.hyperplane` <- function(d, x){ return(rep(sign(round(d%*%c(x,1),digits=8)),length(x))*d[seq_along(x)]) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.