Nothing
jTestVaR <-
function(Ret, VaR, p,test_significant,type){
v <- jSmallerVaRCount(Ret, VaR)
n <- length(Ret)
k <- length(v)
switch(type,
p_value = jPValue (n,k,p,test_significant),
pof = jPofTest (n,k,p,test_significant),
tuff = jTuffTest (n,v[1],p,test_significant),
mixkup = jMixKupTest (n,v,p,test_significant),
)
}
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.