У меня есть вектор под названием x.2, который я предоставил выборку из 100 значений
head(x.2, n=100)
[1] 6 10 12 14 15 18 20 21 22 24 26 28 30 33 34 35 36 38 39 40 42 44 45 46 48 50
[27] 51 52 54 55 56 57 58 60 62 63 65 66 68 69 70 72 74 75 76 77 78 80 82 84 85 86
[53] 87 88 90 91 92 93 94 95 96 98 99 100 102 104 105 106 108 110 111 112 114 115 116 117 118 119
[79] 120 122 123 124 126 129 130 132 133 134 135 136 138 140 141 142 143 144 145 146 147 148
Конкретный вектор не важен.
Я нашел все места, где целые числа были хотя бы последовательными по трем числам. Для этого я использовал
L<-split(x.2, cumsum(c(1, diff(x.2) != 1)))
L.2<-L[lengths(L)>2]
L.2 has a bunch of elements with different lengths
L.2
$`6`
[1] 20 21 22
$`11`
[1] 33 34 35 36
$`12`
[1] 38 39 40
$`14`
[1] 44 45 46
$`16`
[1] 50 51 52
$`17`
[1] 54 55 56 57 58
...
Вопрос:
Как бы вы удалили последние n целых чисел из каждого элемента?
Пример:
п = 2
> $`6` [1] 20
>
> $`11` [1] 33 34
>
> $`12` [1] 38
>
> $`14` [1] 44
>
> $`16` [1] 50
>
> $`17` [1] 54 55 56 ...
а как мне тогда превратить это обратно в вектор?
Спасибо!
Austin