R/ojaGradient.hyperplane.R

Defines functions `ojaGradient.hyperplane`

`ojaGradient.hyperplane` <-
  function(d, x){
    return(rep(sign(round(d%*%c(x,1),digits=8)),length(x))*d[seq_along(x)])
  }
fischuu/OjaNP documentation built on April 19, 2023, 9:50 a.m.