矢量：如何篩選出遞減值的分區

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