R/jerr.mrelnet.R

In jeffwong/glmnet: Lasso and elastic-net regularized generalized linear models

jerr.mrelnet=function(n,maxit,pmax){
    if(n==90000){
      msg=paste("Newton stepping for bounded multivariate response did not converge")
      list(n=n,fatal=FALSE,msg=msg)
    }
    else jerr.elnet(n,maxit,pmax)
}