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)])
  }

Try the OjaNP package in your browser

Any scripts or data that you put into this service are public.

OjaNP documentation built on Feb. 23, 2020, 5:07 p.m.