A simple card trick coded in R