我现在有一个分段函数，自变量是x，因变量是area，我想看看当x从0到100取值的时候，area是如何变化的

我的编程如下：

a<-1
b<- 1.5
xmax<-30

area=function(x) if(x<xmax) area<- a*x   else if (x==xmax) area<- a*xmax  else if (100>x & x>xmax) area<- a*xmax-b*x  else area<- 0  }
curve(area,0,100)

但是总是显示In if (x < xmax) area <- a * x : 条件的长度大于一，因此只能用其第一元素，不知道为什么，那位给咱解释解释？不胜感激。