Nothing
Soft <- function(a,b){
if(b<0) stop("Can soft-threshold by a nonnegative quantity only.")
return(sign(a)*pmax(0,abs(a)-b))
}
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.