`ojaGradient.hyperplanes` <-
function(Hyperplanes,x){
B <- apply(Hyperplanes,1,function(y){ojaGradient.hyperplane(d=y,x=x)})
if (is.matrix(B))
return(rowMeans(B))
else
return(mean(B))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.