Maximises the log-likelihood minus lambda sum |beta_j| with an unpenalised intercept (ESL eq 4.31) by proximal Newton: IRLS quadratic approximations minimised by coordinate descent with soft thresholding. This lambda is N times glmnet's.
Examples
i <- 1:40
X <- cbind(sin(i), cos(3 * i))
morie_esl_l1_logistic(X, as.integer(sin(3 * i) + X[, 1] > 0), 2)$beta
#> [1] 3.551168 0.000000
