The nonlinear regression function to find the parameters is getting worse prediction than the original function

Question

I write the function below for dataframe DATA

Proposed <- function(N_b,Lanes,m,A,x.sqr,e_1,e_2,e_3,e_4,e_5,stiff.girder,stiff.deck,a,b) {
  e <