#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 ) )。
是磁盘
光盘
光盘
#结果一致，不变。 要在每次掷骰子时有所不同，请参阅roll函数
roll-function (
die-1:6
dice-sample(die，size=2，TRUE ) )。
是磁盘
}
#创建自定义函数roll
roll () )
roll2-function(Bones=1:4 ) }
dice-sample(Bones，size=2，replace=TRUE ) )。
是磁盘
}
#创建自定义函数roll2()
roll2()。
replicate(10，roll ) )
replicate(10000，roll ) )
#重复函数
rolls-replicate(10000，roll ) )
qplot(rolls，binwidth=1) ) ) ) ) )。
#3.改变有骰子分数的概率——写自定义函数
roll3-function () }
die-1:6
dice-sample(die，size=2，TRUE，prob=c )1/8，1/8，1/8，1/8，3/8，3/8，3/8 ) )
是磁盘
}
#编写自定义函数roll ()，prob赋予每个点数不同的权重，提高点数6出现的概率
roll3() )
rolls-replicate(10000，roll3) )
qplot(rolls，binwidth=1) ) ) ) ) )。