我的代码如下，为什么运行完之后画出来的图不是我想要的，理论上讲画出来的图应该是两边是水平线，中间是光滑曲线，
但是最终画出来是条直线，求高手帮忙检查！多谢了！

a=-0.618034
b=1.618034

l=function(x){
s=2*log(1+x^2)
t=2*log(1+(x-1)^2)
s-t
}

de=function(x){
4*x/(1+x^2)-4*(x-1)/(1+(x-1)^2)
}


lstar=function(x){
if ((x > a)&(x < b)){
result=l(x)
  }
if (x<=a){
result=de(a)*(x-a)+l(a)
  } else {
result=de(b)*(x-b)+l(b)
  }
result
}

x=seq(from=-4,to=4,by=0.01)
y=lstar(x)

plot(x,y,type='l',ylab= "log-likelihood ratio")