Как написать цепочечные неравенства (а <= Ь <= с), если функции

Question

Как можно написать следующее, если функции в R

Предположив вы Х в диапазоне от 121 до 212 и Y находится в диапазоне от 122 до 212, как вы можете написать функцию if, чтобы представить что-то вроде:

если 121 < = X < = 212 и 122 < = Y < = 212; затем сделайте что-нибудь. Я пытаюсь записать его таким образом, чтобы любое число за пределами диапазона отображало сообщение об ошибке.

Answer 1

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 
    } 
} 

В основном делать что-то подобное.

Answer 2

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)