testlist <- list(coef = structure(c(4.19769022813496e+48, 264945326.103717, 0.00204564242040653, 1.05302731404967e-125, 4.89549508299734e+285, 8.5991559919584e+116, 2.74182027293896e-191, 1.6422889618774e+247, 7.65810413289921e+31, 2.9846156554732e-60, 1.26991707280971e-64, 4.06630305753544e-35, 2.98130850919638e+154, 4.91834470298169e-75, 6.60538190025155e+190, 53948588213107359744, 7.01557078642373e-91, 4.84609180300052e+72, 7.68095051168383e+205, 5.40549134875317e+49, 9.07932138900678e+36, 1.74182961478104e-104, 1630167865049175296, 3.57476615289864e+255, 2.81481554517787e+174, 2.23905596174566e-218, 4.57208776910346e+104, 3.59201960206349e-301, 8.09238157847419e-104, 3.19046437649265e+29, 2.14463189491324e-245, 2.32803663134303e-123, 2.88369521122677e-59, 5.9926183654784e+224, 3.43164383519474e-120, 2.54939928764806e-300, 3.3428571407642e-265, 9.37679520771031e-146, 7.02240513903004e+33, 2.40551527704397e-61), .Dim = c(8L, 5L)), sgn = structure(c(1.1643441611679e-63, 2.66009313535329e-125, 4.52543933075618e+154, 2.11353708549666e+83, 1.11587313561075e+93, 2.91572168045558e+104, 8.87621931632584e-208, 3.20136431415045e+289, 8.57554401136712e-134, 5.4439663514362e+219, 4.22871834884314e-246, 1.83758410580629e+104, 9.05744786100324e-300, 1.31895286868659e+214, 8.82142256786515e+91, 4.16776020013334e-189, 1.47735567462877e+215, 1.29186773580089e-247, 8.71879498875865e+157, 4.93233469101434e+269, 1.2892448176427e-225, 6.62282610991592e+60, 1.10899526566093e+39, 4.66268004464815e+125, 7.74725828589285e-290, 1.34796662949849e+156, 1.71242650563591e-85, 1.28254432023059e+266), .Dim = c(4L, 7L))) result <- do.call(factorcpt::func_input,testlist) str(result)