Nothing
fvg <- function(etaP, S = S)
{
PS <- t(t(S) * etaP[-1]) + t(t(1 - S)*(1 - etaP[-1]))
etaP[1] * apply(PS, 1, prod)
}
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.