如题，求大神帮忙解决下如何在R里边，对一个vector，找到7个连续递增或者递减的数，并提取出来。给一个简单例子如下：

3  8  10  12  15  18  22  17  12  16

对于以上数列，我们需要通过R里边编程输出3  8  10  12  15  18  22;

请求大神帮忙下~

谢谢！