Интеграция GIT в Sublime Text 3.2 все еще появляется

Вы можете легко определить точки разреза:

which(diff(v) != 1)

Исходя из этой попытки:

v <- c(1,3,4,5,9,10,17,29,30)
cutpoints <- c(0, which(diff(v) != 1), length(v))
ragged.vector <- vector("list", length(cutpoints)-1)
for (i in 2:length(cutpoints)) ragged.vector[[i-1]] <- v[(cutpoints[i-1]+1):cutpoints[i]]

В результате:

> ragged.vector
[[1]]
[1] 1

[[2]]
[1] 3 4 5

[[3]]
[1]  9 10

[[4]]
[1] 17

[[5]]
[1] 29 30

Этот алгоритм не очень приятный, но вы можете написать много более аккуратного кода на основе diff :) Удачи!

-1
задан Ghoul Fool 26 March 2019 в 10:04
поделиться