#' @export
profitLoss <- function(iCapital, iResult, iOdds, iBets) {
profitLoss <- iCapital - sum(iBets) + sum( iResult * iBets * (1 + iOdds) )
return(profitLoss)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.