Running examples in ‘wildpoker-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: wpgraphs
> ### Title: Wild Poker Graphs for Best Hand Analysis
> ### Aliases: wpgraphs
> 
> ### ** Examples
> 
> # These examples show the gstat output option.  For the graphs of these examples,
> # see \bold{value} section, above.
> #
> # example of normal wpgraphs use.
> wpgraphs(ngame = "Follow the Queen", players = 6, wcnum = 1, stats = TRUE)
$game
             ngame            players             wcards 
"Follow the Queen"                "6"     "Suicide King" 

$stats
numdeal    seed  wcdeck 
   1000      52       5 

$pmain
$pmain[[1]]
    HighCard Pair 2-Pair 3-Kind Straight Flush FullHouse 4-Kind StrFlush 5-Kind
1          0    0      0  0.002    0.021 0.083     0.147  0.347    0.741  0.993
2          0    0      0  0.001    0.013 0.008     0.010  0.121    0.019  0.006
3          0    0      0  0.005    0.008 0.002     0.003  0.042    0.002  0.001
4          0    0      0  0.000    0.004 0.000     0.000  0.004    0.000  0.000
5          0    0      0  0.000    0.000 0.000     0.000  0.001    0.000  0.000
6          0    0      0  0.000    0.000 0.000     0.000  0.000    0.000  0.000
tie        0    0      0  0.000    0.002 0.000     0.000  0.001    0.003  0.000


$cmain
$cmain[[1]]
    HighCard Pair 2-Pair 3-Kind Straight Flush FullHouse 4-Kind StrFlush 5-Kind
1          0    0      0      2       13    35        54    187      225    228
2          0    0      0      1       13     8        10    121       19      6
3          0    0      0      5        8     2         3     42        2      1
4          0    0      0      0        4     0         0      4        0      0
5          0    0      0      0        0     0         0      1        0      0
6          0    0      0      0        0     0         0      0        0      0
tie        0    0      0      0        2     0         0      1        3      0


$wmain
$wmain[[1]]
  HighCard Pair 2-Pair 3-Kind Straight Flush FullHouse 4-Kind StrFlush 5-Kind
5        0    0      0      8       29    27        42     71       23     10
8        0    0      0      0        3     4         4     24       20     19
9        0    0      0      0        8    14        21    261      206    206


$psplit
[1] ""

$csplit
[1] ""

$wsplit
[1] ""

$potpct

   50   100 
0.006 0.994 

> 
> # example of using wpstats to generate a nonstandard combination
> # note that if a gstat object is provided (by wpstats), the ngame, players, wcnum aren't used 
> wpgraphs(wpstats("High Chicago", 4, "Dr Pepper", numdeal = 10, seed = 100), stats = TRUE)
Error in `[[<-.data.frame`(`*tmp*`, i, value = c("High Chicago", NA)) : 
  replacement has 2 rows, data has 1
Calls: wpgraphs ... [<-.data.frame -> xpdrows.data.frame -> [[<- -> [[<-.data.frame
Execution halted