R 找到具有最大乘积的相邻元素对

给定一个整数数组，我能找到具有最大乘积的相邻元素对并使用apply返回该乘积吗

是否可以使用应用功能完成

预期投入：

x <- c(3, 6, -2, -5, 7, 3)

可能相关的类似职位：

---

您可以使用滚动

apply

max(zoo::rollapply(x, 2, prod))
#[1] 21

---

基本R选项为：

max(head(x, -1) * tail(x, -1))

---

使用base R和函数，如示例中所示：

x <- c(3, 6, -2, -5, 7, 3)

adjacent_elements_product <- function(x) {
  return(max(x[-1] * x[-length(x)]))
}

adjacent_elements_product(x)

---

x提供示例输入和预期输出，并链接可能相关的帖子。
x <- c(3, 6, -2, -5, 7, 3)

adjacent_elements_product <- function(x) {
  return(max(x[-1] * x[-length(x)]))
}

adjacent_elements_product(x)