Nothing
sharpen <-
function(x, y, lambda, B) {
# result of sharpening operation using penalty summarized by matrix B
# x, y are vectors of n original observations
# output is the vector of sharpened y values
solve(diag(rep(1, length(y)))+lambda*B%*%t(B), y)
}
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.