This function simulates a bet
     
    
    Usage
    random_bet(risk = 110, payout = 100, num_bets = 1, win_rate = 0.55)
 
    
    Arguments
    - risk
- The dollar amount risked to place the bet 
- payout
- The dollar amount the bet pays out if it wins 
- num_bets
- Number of bets to simulate 
- win_rate
- The average expected win rate of the bets (0-1) 
 
    
    Value
    
The dollar amount won/lost from the bet
     
    
    Examples
    random_bet(
  risk = 110,
  payout = 100,
  num_bets = 1,
  win_rate = 0.55
)
#> [1] -110