R/profitLoss.R

Defines functions profitLoss

#' @export
profitLoss <- function(iCapital, iResult, iOdds, iBets) {

	profitLoss <- iCapital - sum(iBets) + sum( iResult * iBets * (1 + iOdds) )

    return(profitLoss)

}
jonathan-erdmann/optimizebets documentation built on Sept. 1, 2022, 10:35 p.m.