2 added 1 character in body edited Aug 20 '15 at 0:00 m_goldberg 91k88 gold badges7575 silver badges205205 bronze badges This is not an answer, but a extended comment on MarcoB's answer, which I think is a good one. However, I would like to suggest aan improvement to the way he plots the fit function together with the data, which makes the plot expression independent of the global variable data. I am assuming that nlm has been defined precisely as shown in MarcoB's answer. With[{pts = nlm["Data"]}, Plot[nlm[x], Evaluate @ Prepend[MinMax[pts[[All, 1]]], x], PlotStyle -> {Red, Thick, Dashed}, Epilog -> {PointSize[0.015], Point[pts]}]]  plot This is not an answer, but a extended comment on MarcoB's answer, which I think is a good one. However, I would like to suggest a improvement to the way he plots the fit function together with the data, which makes the plot expression independent of the global variable data. I am assuming that nlm has been defined precisely as shown in MarcoB's answer. With[{pts = nlm["Data"]}, Plot[nlm[x], Evaluate @ Prepend[MinMax[pts[[All, 1]]], x], PlotStyle -> {Red, Thick, Dashed}, Epilog -> {PointSize[0.015], Point[pts]}]]  plot This is not an answer, but a extended comment on MarcoB's answer, which I think is a good one. However, I would like to suggest an improvement to the way he plots the fit function together with the data, which makes the plot expression independent of the global variable data. I am assuming that nlm has been defined precisely as shown in MarcoB's answer. With[{pts = nlm["Data"]}, Plot[nlm[x], Evaluate @ Prepend[MinMax[pts[[All, 1]]], x], PlotStyle -> {Red, Thick, Dashed}, Epilog -> {PointSize[0.015], Point[pts]}]]  plot 1 answered Aug 19 '15 at 18:09 m_goldberg 91k88 gold badges7575 silver badges205205 bronze badges This is not an answer, but a extended comment on MarcoB's answer, which I think is a good one. However, I would like to suggest a improvement to the way he plots the fit function together with the data, which makes the plot expression independent of the global variable data. I am assuming that nlm has been defined precisely as shown in MarcoB's answer. With[{pts = nlm["Data"]}, Plot[nlm[x], Evaluate @ Prepend[MinMax[pts[[All, 1]]], x], PlotStyle -> {Red, Thick, Dashed}, Epilog -> {PointSize[0.015], Point[pts]}]]  plot