矢量：如何过滤掉递减值的片段

Question

假设有一个向量sim包含以下数字序列：

1
2
4
7
5
3
2.5
4
6

如何过滤掉所有递减值的片段，以便仅在增加值的情况下实现sim？预期结果：

1
2
4
7
2.5
4
6

Answer 1

基于@ akrun的建议：

dif <- diff(sim) > 0
sim[ c(dif[1], dif) | c(dif, dif[length(dif)]) ]
[1] 1.0 2.0 4.0 7.0 2.5 4.0 6.0