Find sub-sequences of identical elements in a vector.
sub_seq(x, item = NULL)
subSeq(x, item = NULL)
A dataframe.
x <- c(1, 1, 1, 0, 0, 1, 1, 1, 2, 2, 2, 1, 2, 2, 2, 3)
sub_seq(x)
#> first last slength midpoint value
#> 1 1 3 3 2 1
#> 2 4 5 2 5 0
#> 3 6 8 3 7 1
#> 4 9 11 3 10 2
#> 5 12 12 1 12 1
#> 6 13 15 3 14 2
#> 7 16 16 1 16 3
sub_seq(x, item=1)
#> first last slength midpoint value
#> 1 1 3 3 2 1
#> 2 6 8 3 7 1
#> 3 12 12 1 12 1