Nothing
error.den <- function(band, eps, res.data)
{
res = as.numeric(res.data)
data.num = length(res)
std.res = sd(res)
epsilon = (res - mean(res))/std.res
eps.std = (eps - mean(res))/std.res
tem = (eps.std - epsilon)/band
tem2 = dnorm(tem)/band
hatf = (sum(tem2)/data.num)/std.res
return(hatf)
}
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.