R/concavity.matrix.R

concavity.matrix <-
  function(index.X, X.fit, y, A, A.grad){
    return((A.grad[index.X,,] %*% (t(X.fit) - X.fit[index.X,]) - t(A) + A[index.X,]) * y)
  }

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.