Nothing
SCAD <- function(x, lambda) {
x <- abs(x)
a <- 3.7
u <- (x<=lambda)
penalty <- lambda*x*u + (-0.5*pmax(a*lambda-x,0)^2/(a-1) + 0.5*(a+1)*lambda^2)*(1-u)
return(penalty)
}
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.