用r语言if语句分类讨论

怎么用if语句写
如果x小于200，输出0
如果x在200～3500之间，输出值=x-200
如果x大于3500，输出3500

f<-function(x){
    if (x<200)
    {return(0)}
    else if(x>=200 & x<=3500)
    {return(x-200)}
    else{return(3500)}
}
f(28)