如何创建R代码以根据条件检查下一个观察值

# 创建一个包含观察值的向量
observations <- c(1, 2, 3, 4, 5)

# 循环遍历观察值
for (i in 1:(length(observations)-1)) {
  current_value <- observations[i]
  next_value <- observations[i+1]
  
  # 根据条件检查下一个观察值
  if (next_value > current_value) {
    print("下一个观察值大于当前观察值")
  } else if (next_value < current_value) {
    print("下一个观察值小于当前观察值")
  } else {
    print("下一个观察值等于当前观察值")
  }
}