Nothing
# simulate data
ex <- simulData(p=100,n=100,r=0.8,rSN=5)
ex1.tuneLasso <- tuneLasso(ex$Y,ex$X)
load(system.file("extdata", "diabetes.rda", package="LINselect"))
attach(diabetes)
ex.diab <- tuneLasso(y,x2)
detach(diabetes)
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.