set.seed (12345)
data <- paste(sample(c("A","C","G","T"),100000,replace=TRUE,prob=rep(0.25,4)))
data <- ifelse(data=="A",1,0)
Предположим, я конвертирую данные в 1 (нужный символ) и 0 (иначе). Затем возьмите сумму в каждой позиции. Если сумма до позиции совпадает с суммой до следующей, мы останавливаемся; в противном случае мы переносим сумму и сохраняем суммы в позициях. Тогда максимальная сумма в соответствующей позиции даст максимальную длину последовательности.
Я получил алгоритм, но не могу его закодировать. Пожалуйста помоги.
out <- which(data=='A')
. 24.09.2015