Попробуйте следующую функцию.Обратите внимание, что хотя я и вызывал его без аргументов, это функция с тремя аргументами.
fun <- function(n = 1000, a = 9, b = 4){
A <- which((1:n) %% a == 0)
B <- which((1:n) %% b != 0)
x <- base::intersect(A, B)
c(Min = min(x), Max = max(x))
}
fun()
#Min Max
# 9 999
Второй вызов запрашивает наименьшее и наибольшее числа от 1
до 2000
, кратные 11
но не из 5
.
fun(2000, 11, 5)
# Min Max
# 11 1991