Nothing
#' This is an internal function. The kernel function
#'
#' @param x A numeric argument.
#' @return The value of the kernel function at x.
k <- function(x){
return( (2 * abs(x)^3 - 3* x^2 + 1) * (abs(x) < 1) )
}
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.