R/concavity.matrix.R

Defines functions concavity.matrix

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)
  }
tkmckenzie/snfa documentation built on June 11, 2020, 4:34 a.m.