testlist <- list(a = -9.82459501909337e-24, a1 = c(9.01759077219456e+269, 1.38132470505271e+189, 4.87533065195373e-255, 6.4658697437712e+299, 7.95413582065576e+131, -1.00073342069585e+287, -36540528024027800, -5.08222340286187e+282, 5.2410775155028e-118, -30883170442827423744, 2.01316690169769e-209, -7.18923027662418e-155, 8.03583537971706e-241, -1.33820533643905e+63, -5.4155903762936e+156, -2.30752834824478e+261, 3.1542161977728e+84, -3.72183930756279e-129, 6.54168214810125e+73, 3.73656643007676e+138, -5.71213217707006e+187, -1.29574937268231e+212, -2.77058189260118e-29, 8.62191586709886e-194, -5.09042695070302e-110, -3.45193026278311e+44, -2.11452703611125e-76, -7.95213852460129e-143, -1.15541923078645e+112, 1.12936295187619e-169, 1.8292931831502e-65, 1.63279797354333e+135, 1.41608123117205e-276, -3.81090666915336e+65, 1.36600810009539e+281, -1.06794222358144e+197, 1.25690837692473e-144, 2.94980178460674e+178, 4.70745471373091e+268), x = c(2.79236147670686e-196, 1.26379330258632e+187, 1.42068194191949e+49, 2.58035513749295e-206, 3.02005550013883e-260, -9.9122759758109e-57, -1.64035674249925e-118, 1.05390745649826e+182, 8.05606797801028e-38, -3.84354256622327e+136, 2.36081589563427e-100, 3.01724164497879e-124, 9.57301250646523e+229, -7.99809293195875e-243, 3.06030363511005e-110, 3.27695505950329e-93, -2.10373847983487e+36, -5.29514598795293e-20, 9.81127061830259e+30, -3403.88378037291, -364839.827923978, -8.45393891276032e+179, -4.53552102535884e+269, 3.95634524110619e-268, 8.72400335545415e-16, 7.84869121851595e-78, 7.10345658387002e+183, 6.87082786328043e-155, -6.90558603588891e+64, 1.10258217566985e+184, 1.69525406917008e-11, -3.2200871813294e+207, 1.87678984938135e-179, 7.6026610522376e-52, -3.18940703770689e-67, -4.07827651100228e-125, 1.24680700116839e+68, -2.75820195448307e-295, 5.67556876054047e+224, -3.54964583317729e-194, 1.60096399571375e-198, 4.16403222004086e-243, 1.67598413281535e+109, -2.35867586410091e+145, 4.45587038472864e-209, 3.27437460602372e+270, 1.99018496701793e+90, 7.3743152627684e-288, 3.21584708469381e+236, -4.62773240474319e+76, 50002022.6447766, -6.90295806583465e+295, -6.94996635625781e+150, -6.24894289801879e+226, -5.38464246327419e+306, 9.22390348570428e-177, -5.22812133068865e-276)) result <- do.call(EWGoF:::GoFHe,testlist) str(result)