OmegaRatio <- function(x,L,Rf){
numerator = exp(-Rf) * mean(pmax(x - L, 0))
denominator = exp(-Rf) * mean(pmax(L - x, 0))
omega = numerator/denominator
return(omega)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.