谢谢，不过我求的是极值。这里的话，极大值起码2个，分别为2和4.

位置分别为3 和 8 。

x <- rpois(100, lambda = 2)
x
plot(x, type = "l")
id <- vector(length = 100)
for (m in 1:(length(x) - 2)) {
    tmp <- which.max(x[m:(m + 2)])
    id[m + 1] <- tmp == 2
}
id

才明白你要干什么
楼上正解

感谢各位的关注，棒棒哒，哈哈。