testlist <- list(x = c(4.79212291154048e-250, 9.60637084360072e+283, NA,  7.5237852778943e-133, -2.04487411959785e-51, 10.9345067732263,  4.13144201556705e+182, -8.40393096897214e-124, -1.71931330848151e-91,  -3.98832297126172e+298, -1.72121110193461e+187, Inf, -3.17527792159287e+212,  2.46667859116869e-86, 2.28393946356129e-55, 2.59435238785996e+241,  -7.22582527675169e-217, 1.19332100706673e+132, -7.27981286484918e+99,  4.54275966796705e-241, 2.40253181968106e-278, -3.60970586076332e+55,  5.50503779583268e+287, 9.25655737728814e+260, 1.04605174696511e+288,  -4.4694629616439e+285, -3.80852836383004e+121, 4.03822529379671e+81,  2.24933085208246e-239, -5.29460184341088e-202, -2.95649015643718e+65,  -7.30542942853672e+59, -1.54533096332541e+76, 6.63715323843657e+22,  2.38120591739431e-167, -3.30714814111543e+68, 1.49612666398753e-304,  5.92763247244698e-300, 7.38635892888145e-168, -1.50355849130314e+120,  7.79189537043807e-90, -7.86497255493703e+286, 4.51759444758205e+123,  1.34691502274029e-60, -1.87211214018436e-60, 3.63993254633641e-237,  5.72006140659017e-299, 2.88948288135357e+251, 1.63927996117561e+214,  8.41436942146831e-249, 3.0866943068786e+146, 6.64200953013091e-211,  8.02333399776015e-162, -9.81121896337603e+249, 1.65858972486813e+214,  6.44985967557696e+171, 2.53752375086282e+224, -5.20507372462404e+113,  NaN, 1.50712886437367e-55, -5.28210217420807e-140, -3.03975601780025e+168,  2.9051375558049e-216, 5.47527408382013e+116, 1.48608521537159e-263,  -3.46513552921348e+276, -26787953951748456448, -Inf, 5.07008292913763e+306,  -2.65910972012679e-237, 4.75701027696458e+290, -1.30987643422211e-205,  6128448941123941, -5.00992105764816e+172, 141.55125637396, 1.60464191672871e+160,  -6.43816105057669e-168, 1.23487065227391e-251, -1.86166436697181e-136,  1.39483564155368e-252, 3.64565681897759e+301, -6.40193026482825e+177,  5.52539270460206e+159, 0), y = c(2.90449856437688e-123, -1.57858384602129e-162,  4.37957011676717e+203, -1.45733645291922e+46, 9.51026490208293e+82,  -1.05502431887227e+142, -2.71742296653187e-37, -9.10216701458033e+104,  1.57216143843613e+25, -1.62061185586629e-235, 3.33914734871815e-44,  1.22056335625578e+245, 3.42196950435674e+283, -1.92169842038376e-271,  -3.22823657417796e-17, -2.9412490891621e-53, -3.55924897200419e-13,  4.75789439479347e-35, -4.8105775048464e-272, 6.06598663150603e-232,  4.2608487329163e-145, 1.61402192614486e+81, 1.95264855143311e-287,  9.68489190160437e-198, -7.7909573366696e-84, 3.83135956615186e-227,  1.18308586487834e-295))
result <- do.call(CENFA:::doSpmin,testlist)
str(result)