Мне нужно написать цикл, который имитирует 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'
Я использовал этот код в другом упражнении, и он был в порядке, но теперь, похоже, он не работает длянекоторые векторы, может кто-нибудь сказать мне, как это исправить?