R/plotProfitLossDist.R

In jonathan-erdmann/optimizebets: Optimize Bet Placement

#' @export
plotProfitLossDist <- function(iBetCard, iPoints = 1000) {

    probability <- iBetCard$probability
    odds <- iBetCard$odds
    bet <- iBetCard$bet

    pnl <- simulateBets(probability, odds, bet, iPoints)

    g <- ggplot(pnl, aes(x = probability, y = profit)) + geom_point(shape = ".")
    g <- g + ylim(c(-1, 2))
    g <- g + ggtitle("") + xlab("Cumulative Probability") + ylab("Profit/Loss")
    g <- g + theme_minimal()

    plot(g)

}