R/kernel.grad.mult.R

kernel.grad.mult <-
  function(index.0, H.inv, X, X.fit, K){
    return(t(K[index.0,] * t(-H.inv %*% (t(X.fit) - X[index.0,]))))
  }

Try the snfa package in your browser

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

snfa documentation built on May 1, 2019, 9:16 p.m.