Nothing
jKernelHistVaR <-
function(s, alpha){
hh <- jOptWidthKernel(s)
h <- 0.01
x <- min(s)
cdf <- jSimsonKernel(1000,-10,x,s,hh,jKernelFitPdf)
while (cdf < alpha){
x <- x+h
cdf <- jSimsonKernel(1000,-10,x,s,hh,jKernelFitPdf)
}
return(-x)
}
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.