Как создать функцию, определяющую нижний и верхний пределы для n чисел и возвращающую вывод в виде числа пар, имеющих такой диапазон

Question

Я хочу создать функцию, в которой я хочу определить список чисел, а затем соответственно определить нижний и верхний пределы.Ожидаемый результат - это количество пар в диапазоне.

n = (1,2,3,4,5,6,7,9)

q(lower limit) = где каждый i - нижний предел

q(upper limit) - где верхний предел определен для каждого i

функция должна возвращать массив из q целых чисел, попадающих в указанный диапазон.

Это я уже пробовал,

jobOffers <- function(scores, lowerLimits, upperLimits){

}

enter code here

answer <- jobOffers(scores, lowerLimits, upperLimits)
for (i in 1:length(answer)) write(answer[i], stdout())

Answer 1

с использованием базовых функций это будет:

length(which(n > min(n) & n < max(n)))
[1] 6

Если вы намереваетесь обернуть в функцию, это будет:

students <- function(x){
  length(which(x > min(x) & x < max(x)))
}

students(n)
[1] 6

Если нижняя и верхняя границы фиксированы для всехваши векторы, которые вы хотите проверить, скажем, если вы используете функцию по столбцам, тогда вы можете установить их как переменные:

upper_limit <- 9
lower_limit <- 1

и использовать их в функции:

students <- function(x){
  length(which(x > lower_limit & x < upper_limit))
}

students(n)
[1] 6