我需要拟合一个误差函数，该函数仅将数据的物理模型描述为 6 个实验数据点。 error 函数为： func_erf <- function(x, #m D, #m2/s t, #s s #m...