Определение функции с более чем 2 диапазонами в R

Question

Я пытаюсь создать функцию плотности вероятности в R, как показано на рисунке ниже

k = 1
ff = function(x)
{
  ifelse( x > 1, k,0)
}
f = function(x){
  scale  = integrate(ff,0,8);
  ff(x) / scale$value
}
a = f(5)

Приведенный выше код работает нормально. Но когда я пытаюсь проверить, находится ли x между 0 и 7, или имеет более одного утверждения ifelse() (происходит также с нормальным оператором if)

k = 1
ff = function(x)
{
  ifelse(x < 7 && x > 1, k,0)
}
f = function(x){
  scale  = integrate(ff,0,8);
  ff(x) / scale$value
}
a = f(5)

, я получаю такую ​​ошибку:

Error in integrate(ff, 0, 8) : 
  evaluation of function gave a result of wrong length

Как моделировать функции с более чем 2 диапазонами?