GDLogisticStep <- function(par, X, Xty, lambda, stplngth) {
phat <- expit(X%*%par)
xnew <- SoftThresh(par + stplngth*(Xty - crossprod(X, phat)), lambda=lambda*stplngth)
return(xnew)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.