FALSE, как посчитать длины цепочек последовательностей?
Например, для вектора x <- c(T, T, F, F, F, T, F) это должно быть 2, 3, 1, 1.
Я думал сгенерировать счётчик, который идёт по вектору и, при переходе на другое значение, сбрасывается и начинается сначала, но не могу придумать как это написать, чтобы не резало глаз.
Или, если внутри цикла, но не только для ТФ, то что-то типа такого (с телефона и не проверяла, простите): a <- c(T, T, F, F, T) len <- 1 last <- a[1] new_vec <- c() for (i in 2:length(a)) {if (a[i] == last) {len <- len + 1} else {new_vec <- c(new_vec, len) len <- 1 last <- a[i]}} new_vec <- c(new_vec, len) new_vec
#RTFM rle.
rle()
Обсуждают сегодня