Количество символов в последовательности, игнорируя данный символ (R)

Question

У меня есть вектор строк из одного символа:

seq <- c("c","t","c","t","c","c","t","a","t", "g", "g", "c", "g", "g", "g", "a", "a", "g", "c", "-", "-", "a", "a","-", "-", "-", "c", "t", "g")

Я хотел бы создать вектор равной длины, который будет считать строки из начального целого числа, но игнорирует "-".

Например, если начальное целое число равно 1000

Выходная строка будет:

out <-c(1000, 1001, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, NA, NA, 1019, 1020, NA, NA, NA, 1021, 1022, 1023)

Любая помощь будет принята с благодарностью!

Answer 1

Это просто:

res <- rep(NA_integer_, length(seq))
res[seq != "-"] <- seq(from = 1000, by = 1, length.out = sum(seq != "-"))