cmlalalala的博客

原创 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){f...