FindStepLengthBinomial <- function(X, y, lam, pmax=10000, nmin=1000) {
## add more sophistication later.
Lmax <- norm(XX, "2")^2
stplngth <- 8/Lmax
return(stplngth)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.