R语言—老虎机编写案例

#展示老虎机的3个随机数
get_symbols<-function(){
wheel<-c(“DD”,“7”,“BBB”,“BB”,“B”,“C”,“0”)
sample(wheel,3,replace = T,prob =
c(0.03,0.03,0.06,0.1,0.25,0.01,0.52))
}
#定义score函数
score<-function(symbol){
fh<-symbol[!symbol==“DD”]#去掉砖石剩下的数
zs<-sum(symbol==“DD”)#砖石的数量
yt<-sum(symbol==“C”)#樱桃的数量
same<-length(unique(fh))1#去掉砖石以后去重为1是否为真
bars<-fh%in%c(“B”,“BB”,“BBB”)#判断slots是否都为杠
if(zs3){
price<-100
}else if(same){
payout<-c(“7”=80,“BBB”=40,“BB”=25,“B”=10,“C”=10,“0”=0)
price<-payout[[fh[1]]]
}else if(all(bars)){
price<-5
}else if(yt>0){
price<-c(0,2,5)[yt+zs+1]
}else {price<-0
}
price2^zs#对砖石加倍
}
#将函数封装，整体调用
play<-function(){
symbol<-get_symbols()
print(symbol)
score(symbol)
}
play()
#对老虎机求数学期望值
wheel<-c(“DD”,“7”,“BBB”,“BB”,“B”,“C”,“0”)
#生成数据框，将各种可能进行排列
rolls<-expand.grid(wheel,wheel,wheel,stringsAsFactors = F)
rolls
p<-c(“DD”=0.03,“7”=0.03,“BBB”=0.06,“BB”=0.1,“B”=0.25
,“C”=0.01,“0”=0.52)
rolls p r o b 1 &lt; − u n n a m e ( p [ r o l l s