如何在r中找到局部最小值？

Question

我有一个如下的数值向量，我想找出序列中的局部最小值。在这种情况下，即第5个和第15个元素，或如图所示。我该怎么办？

f <- function(x)  ifelse(x < 15 & x >5, 80,(x-10)^2)
x <- seq(1,20) %>% f() 
x[8:12] <- 5
plot(x)

# x
#[1]  81  64  49  36  25  80  80   5   5   5   5   5  80  80  25  36  49  64  81 100

我已经尝试过how to find local maximum in graph中描述的方法，但是它没有任何结果，我认为这是因为我的数据是离散的而不是连续的。