如何返回买入点？

如果股价符合一定条线买入，符合一定条件卖出。假设持有算1，空仓算0。大致持仓情况假设如下。第一个1是买入，最后一个1是卖出。

1 1 0 0 0 1 1 1 1 0 0 1 1 1 1

那么对于卖出日，如何往前找到买入日的价格呢？

也就是，在下面的图，如何让b找到a呢？
1 1 0 0 0 1 1 1 1 0 0 1 1 1 1
               a        b

谢谢

x <- rep(c(1,0,1,0,1), 2:6)

x.1 <- rle(x)

pos.start <- c(1,cumsum(head(x.1$lengths,-1))+1)

pos.end <- cumsum(x.1$lengths)