Error in nonlinearmodel fit for a function with Definite Integral and complex number


I am trying to fit a function fun and Here is the code which I am trying, Please find the data here dataset

Data = Import[    "E:\Shelender\codes\Mathematica\Aelastic \ relaxation\datat.asc"]; real = Data[[All, {1, 2}]]; imag = Data[[All, {1, 3}]]; w = 1.26*10^8; k = 1.38*10^-23;  f[H_, s_, d_] := ((1/(Sqrt[2*Pi]*s*H))*Exp[(-(Log[(H/d)])^2/(2*s^2))]) dynamic[x_?NumericQ, s_?NumericQ, d_?NumericQ, A_?NumericQ,    t_?NumericQ] :=   A*(1 - NIntegrate[      f[H, s, d]/((1 + (I*w*t*Exp[((H)/(k*x))]))), {H,        0, \[Infinity]}])  fit = ResourceFunction["MultiNonlinearModelFit"][    Rationalize[{real, imag}, 0],     ComplexExpand[ReIm@dynamic[x, s, d, A, t]],     Rationalize[{{A, 1.0*10^-4}, {t, 1.0*10^-12}, {d, 10}, {s, 0.25}},      0], {x}, PrecisionGoal -> 3, AccuracyGoal -> 3];  fit["ParameterTable"] Show[ListPlot[{real, imag}],   Plot[{fit[1, x], fit[2, x]}, {x, 0,     Max[real[[All, 1]], imag[[All, 1]]]}, PlotRange -> All],   PlotRange -> All] 

Although I am not getting any error but fit values are completely off