R/objectiveFast.R

In npmr: Nuclear Penalized Multinomial Regression

Defines functions objectiveFast

Documented in objectiveFast

objectiveFast <-
function(B, P, W, lambda) {
    -sum(log(P[W])) + lambda*sum(abs(svd(B)$d))
}

Try the npmr package in your browser