R/GDLogisticStep.R

Defines functions GDLogisticStep

GDLogisticStep <- function(par, X, Xty, lambda, stplngth) {
  phat <- expit(X%*%par)
  xnew <- SoftThresh(par + stplngth*(Xty - crossprod(X, phat)), lambda=lambda*stplngth)
  return(xnew)
}
nchenderson/nidaarem documentation built on Feb. 19, 2020, 12:45 p.m.