Nothing
mylasso<-function(x,y,lambda,standardize=TRUE,intercept=TRUE)
# compute the lasso estimator for a given tuning parameter lambda
{
globalfit<-glmnet(x,y,standardize=standardize,intercept=intercept)
fitlasso = predict(globalfit, type = "coefficients", s = lambda)
beta0<-fitlasso[1]
beta<-fitlasso[-1]
object<-list()
object$beta0<-beta0
object$beta<-beta
object$lambda<-lambda
object
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.