Displaying 1 result from an estimated 1 matches for "tile1".
Did you mean:
tile
2004 Jun 29
0
gambling problem
...this function calculates the number of times each of the
various payoff combinations occur
COUNTER<-function(reelpic,nreels,countcombs,payoffcombs,payoff,bet)
{
rowcounter<-1
for (ci in 1:(nreels-1))
{
ifelse (reelpic[1,ci+1]==reelpic[1,ci],rowcounter<- 1 +
rowcounter,break)
}# nextci
tile1<-reelpic[1,1]
countcombs[3*tile1+rowcounter-3]<-1+countcombs[3*tile1+rowcounter-3]
payoff<-payoffcombs[3*tile1+rowcounter-3]-bet
list(countcombs=countcombs,payoff=payoff)
}
####################################################################################
#FORMATCOMBSPDF - this funct...