[R-br] dificuldade em ajustar um quadratica a um plato de resposta linear

Estou tentando rodar esta rotina no R mas esta dando este erro e tambem ele não esta estimando b2, poderiam me ajudar? lrp.fit<-nls(cv ~ (b0 + b1*x + b2*I(x^2))*(x<=x0p)  +(b0 + b1*x0p + b2*x0p^2)*(x>x0p),  start=list(b0=10, b1=7, b2=15, x0p=5),  trace=F) Erro em nls(cv ~ (b0 + b1 * x + b2 * I(x^2)) * (x <= x0p) + (b0 + b1 *  :   gradiente singular