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...