r - 如何在 if 函数中编写链式不等式（a <= b <= c）

Question

如何在 R 中的 if 函数中编写以下内容

假设 X 的范围是 121 到 212，Y 的范围是 122 到 212，那么如何编写一个 if 函数来表示如下内容：

如果 121 <= X <= 212 和 122 <= Y <= 212；然后做点什么。我正在尝试以这样的方式编写它，即任何超出范围的数字都会显示错误消息。

Answer 1

X = 15
Y = 25

f = function(X,Y) {
  if ((X >= 10 && X <= 20) && (Y >= 20 && Y <= 30)) {
    print("in range")
  }else{
    print("out of range")
  }
}

f(X = 15, Y = 25)

Answer 2

fun <- function(set.1, set.2, X, Y){
  if( (min(set.1) <= X & X <= max(set.1)) & (min(set.2) <= Y & Y <= max(set.2))){
    # Then do something
  }
}

基本上做这样的事情。