R语言入门与实践读书笔记-0102模拟掷骰子——游戏1

本文主要是介绍R语言入门与实践读书笔记-0102模拟掷骰子——游戏1，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

##1.每次摇骰子结果都一样——调用函数

die<-1:6
die%*%die
die%o%die
round(3.14159)
round(mean(die))
sample(die,size=1)
#模拟掷骰子——调用函数
sample(die,size=2)
#从向量x中取size个元素并放回
sample(die,size=2,TRUE)
#TRUE：可放回，两次独立；否则就是默认不可放回抽样

##2.每次摇骰子结果都不一样——编写自定义函数

dice<-sample(die,size=2,TRUE)
sum(dice)
dice
dice
#结果一致，不会改变。要想每次摇骰子都不一样，见roll函数

roll<-function(){
  die<-1:6
  dice<-sample(die,size=2,TRUE)
  sum(dice)
}
#编写自定义函数roll
roll()

roll2<-function(bones=1:4){
  dice<-sample(bones,size=2,replace=TRUE)
  sum(dice)
}
#编写自定义函数roll2()
roll2()

replicate(10,roll())
replicate(10000,roll())
#重复函数
rolls<-replicate(10000,roll())
qplot(rolls,binwidth=1)

##3.改变骰子某个点数出现的概率——编写自定义函数
roll3

这篇关于R语言入门与实践读书笔记-0102模拟掷骰子——游戏1的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---