fvg <- function(etaP, S = S) { PS <- t(t(S) * etaP[-1]) + t(t(1 - S)*(1 - etaP[-1])) etaP[1] * apply(PS, 1, prod) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.