Как определить кусочную функцию в R

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

x<-seq(-5, 5, by=0.01)
  for (x in -5:5){
  if (-0.326 < x < 0.652) fx<- 0.632
  else if (-1.793<x<-1.304) fx<- 0.454  
  else if (1.630<x<2.119) fx<-0.227  
  else fx<- 0 }