TESTING OUT YOUR R FUNCTION.

Suppose your function is called neverfold and you want to 
run a tournament with 6 neverfolds against 6
veras.  Try this.

install.packages(holdem) ## you must be connected to the internet for this step.
library(holdem) 
a = neverfold 
v = vera 
decision =c(a,a,a,a,a,a,v,v,v,v,v,v) 
name1 = c("n1","n2","n3","n4","n5","n6","v1","v2","v3","v4","v5","v6")
tourn1(name1, decision)

or 
tourn1(name1,decision,myfast1=0) ## to show key hands.