我试图弄清楚如何在向量中添加每个相应的组件并将其存储在另一个向量中。这就是我到目前为止所做的:
# Create a function to roll a die n times.
RollDie = function(n) sample(1:6, n, rep=T)
die1 = RollDie(500)
die2 = RollDie(500)
die3 = RollDie(500)
die4 = RollDie(500)
die5 = RollDie(500)
die6 = RollDie(500)
# Sum the values of the first component of each vector which represent the values
# of the six die rolled.
X = sum(die1[1], die2[1], die3[1], die4[1], die5[1], die6[1])
X
我想要做的就是将1到6的第一,第二等组件加起来。
因此,X的第一个组成部分将是
sum(die1[1], die2[1], die3[1], die4[1], die5[1], die6[1])
X的第二个组成部分是
sum(die1[2], die2[2], die3[2], die4[2], die5[2], die6[2])
X的第三个组成部分将是
sum(die1[3], die2[3], die3[3], die4[3], die5[3], die6[3])
等等。 X的长度为500.
我试图找到合适的命令,但没有运气。请帮忙。谢谢!
答案 0 :(得分:1)
采用矢量化方法的可能解决方案:
rowSums(replicate(6, RollDie(500)))