obj_func<-function(X,Y,beta_score,X_ncol=X_ncol,maskv=maskv,lambda=0){
Xm=matrix(X,ncol=X_ncol)
#browser()
sum( (Xm %*% beta_score - Y)^2) * 0.5 + lambda * sum(Xm)
}
TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.