testlist <- list(parametrization = 2069757405L, rnd = c(1.27890654606226e-188, 7527485546020.59, -2.14488209182332e+105, Inf, -2.02048162434253e-44, NaN, 3.42032101584627e-93, 8.27932373953685e-269, -4.36408839884835e-38, Inf, 0)) result <- do.call(libstableR::stable_fit_init,testlist) str(result)