Skip to content

Instantly share code, notes, and snippets.

View soeque1's full-sized avatar

Hyung-jun Kim soeque1

  • Seoul, South Korea
View GitHub Profile
@cbare
cbare / poker.R
Created September 9, 2012 06:38
Evaluate poker hands in R
## Poker.R
## Evaluate poker hands
##
## by: Christopher Bare
############################################################
## define suits and ranks
suits <- c('c','d','h','s')
ranks <- c(2:10,"J","K","Q","A")
suit_names <- c(c="clubs", d="diamonds", h="hearts", s="spades")