раскрыть целочисленную последовательность, где все значения, кроме одного, маскируются NA

Question

Скажем, у меня есть целочисленный вектор, где все записи, кроме одной, маскируются NA,

x <- c(NA, NA, 5, NA)

Есть ли способ снять маски с этих NA (путем модификации NA на месте или создания нового вектора)? Мой желаемый вывод

c(3, 4, 5, 6)

Answer 1

Может быть

id <- which(!is.na(x))
newx <- seq_along(x) + (x[id] - id)

Это работает для всех NA, но одно значение вектор.