模拟掷骰子并存储游程数R

Question

我必须编写一个循环，模拟10个5组骰子的51次抛掷，并存储+总和每个长度的行程数（1,2,3,4）。

这是我正在使用的代码

    i <- 0
    sum <- c(0,0,0,0)

    for (i in 1:100000) {
        a <- sample(1:6, 51, replace = TRUE)
        a <- table(rle(a)$lengths)
        a <- as.data.frame(a)
        b <- a[, 2]

        sum <- c(b, rep(0, length(sum) - length(b))) + sum
        i <- i + 1
    }

    print(sum)

}

除了这一部分之外，其他所有东西都在起作用（我认为这是在搞砸吗？）：

sum <- c(b, rep(0, length(sum) - length(b))) + sum

这给了我这个错误： rep（0，length（sum）-length（b））中的错误：无效的'times'参数

我在另一练习中使用了此代码，这很好，但是现在它似乎不适用于某些矢量，有人可以告诉我如何解决它吗？