# anonymous-bootwar

This vignette shows how to play bootwar using a deck built with an anonymous function rather than the standard 52 card deck.

### Initialization:

    # Load bootwar
    library(bootwar)

    # Set up vectors for computer and player's cards and values
    comp_cv <- vector(mode = "character")
    comp_vv <- vector(mode = "numeric")
    plyr_cv <- vector(mode = "character")
    plyr_vv <- vector(mode = "numeric")

### Define Custom Deck

Use the deck_of_cards parameter of shuffle_deck() to define a custom deck of cards.

    seed <- 123
    set.seed(seed)

    # Shuffle the deck
    adeck <- mmcards::shuffle_deck(
      deck_of_cards = function(x) {as.integer(stats::runif(52, 1, 208))},
      seed = seed
      )

    head(adeck)
    #>    card value
    #> 7     7    30
    #> 27   27    99
    #> 32   32   123
    #> 38   38   147
    #> 25   25    95
    #> 34   34   136

The rest of the workflow follows the same structure as the README.

### Play the First Round:

    rres <- play_round(cdeck = adeck,
                       plyr_cv = plyr_cv, plyr_vv = plyr_vv,
                       comp_cv = comp_cv, comp_vv = comp_vv)

### Continue the Game for Four More Rounds:

    for (i in 1:4) {
      rres <- play_round(cdeck = rres$updated_deck,
                         plyr_cv = rres$plyr_cv, plyr_vv = rres$plyr_vv,
                         comp_cv = rres$comp_cv, comp_vv = rres$comp_vv)
    }

    # Ensure 10 cards have been dealt
    nrow(rres$updated_deck)
    #> [1] 42

### Analyze the Game:

    gres <- analyze_game(plyr_vv = rres$plyr_vv, comp_vv = rres$comp_vv,
                         mode = "pt", nboot = 1000, seed = 150, conf.level = 0.05)

    # Display game results
    gres$winner
    #> [1] "Computer Wins"
    gres$bootstrap_results$effect.size
    #> [1] -12.2
    gres$bootstrap_results$ci.effect.size
    #> 47.5% 52.5%
    #>  -2.4   0.6
    gres$bootstrap_results$p.value
    #> [1] 0.685