Nothing
# ' calcul des modeles explicatifs
explicatif<-function(X=X,Y=Y,Z=Z,type=c("lasso", "lar", "forward.stagewise", "stepwise"),intercept=TRUE){
X=X[,colSums(Z)==0]
res=lars(x=X,y=Y,type=type,intercept=intercept)
return(res)
}
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.