data = {{},{},{}...,{}}; = ; rate = Function[{,,,,t}, Piecewise[{{ PDF[HypoexponentialDistribution[Table[i,{i,1,}]],t] + PDF[HypoexponentialDistribution[Join[Table[i,{i,1,}],{}]],t] ,t ≥ 0}},0]]; fit = NonlinearModelFit[data,rate[,,,,t], {{,},{,},{,},{,}},t,Method -> "NMinimize"]; fit["ParameterTable"] Mean[Map[Abs, fit["FitResiduals"]]] |