Re: Создать таблицу из векторов
Добавлено: 21 авг 2020, 17:06
Пока сделал так
Вручную всё посчитал, результат получается правильный.
Пробую на реальных данных, пока не получается.
В функции ошибка:
Ошибка в rep(x = c(0, 1, 0), times = c(a1 - 1, a2, dN)) :
неправильный аргумент 'times'
Код: Выделить всё
N <- 10 # Длинна вектора
a1 <- c(1,5, 8)
a2 <- c(5,9, 20)
b <- lapply(1:length(a1),
function(i) {
dN <- ifelse((a1[i]+a2[i]) %% N == 0, 0,
N-(a1[i]-1+a2[i]) %% N)
tt <- rep(x = c(0,1,0), times = c(a1[i]-1, a2[i], dN))
V <- colSums(matrix(tt, ncol = N, byrow=TRUE))
return(V)
}
)
B <- Reduce("+", b)
B
Пробую на реальных данных, пока не получается.
В функции ошибка:
Ошибка в rep(x = c(0, 1, 0), times = c(a1 - 1, a2, dN)) :
неправильный аргумент 'times'