evalMultiHandSpecialK: Evaluate multiple poker hands using the SpecialK evaluator
In zachmayer/pokeR: Poker hand evaluator

Description Usage Arguments Details Value Note References Examples

Returns an integer vector, where higher = a better hand

1	evalMultiHandSpecialK(x)

`x`	An integer vector.

No details

an integer, where higher = better

No notes

https://gist.github.com/EluctariLLC/832122

n <- 2e7 #20 million hands
cards <- sample(1:52, 7*n, replace=TRUE)
t1 <- system.time(res_sk <- evalMultiHandSpecialK(cards))
hps <- prettyNum(n / t1[['elapsed']],big.mark=",",scientific=FALSE)
print(paste("evaluated", hps, "poker hands per second"))