R/ojaGradient.hyperplanes.R

Defines functions `ojaGradient.hyperplanes`

`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))
}
fischuu/OjaNP documentation built on April 19, 2023, 9:50 a.m.