testlist <- list(lb = c(2.30331788254351e+282, 52123312443.3807, -1.33159233019074e-127, 7.20290105836697e+264, Inf, 2.4040422552467e-20, 1.0691755703354e+301, 1.22557820090686e+308, -4.33406452626599e+164, 2.78859596254553e-55, 1.32902724188187e+280, -7.91288716278612e+212, -1.17893837256465e+184, -Inf, -2.61493025238796e-163, 1.8037066876461e+57, -3.72489781469259e-141, -9911.8542143164, -2.64865405547925e+300, -1.03562709896988e-265, -1.15023163420112e-263, 3.37036402348261e+192, Inf, -2.18092415974647e-282, 6.95562466427464e+21, 1.54072043568442e+187, 1.64950644201948e+31, -3.96952478167029e+27, 1286459962.81076, 2609679341.16388, NA, 1.2630731944716e+48, 1.98777888991185e+59, 0), ub = c(8.21143020382487e+231, NA, -Inf, Inf, -8.09100639888341e+187, 0), x = c(1.07778554465651e+115, -6.99907118805363e-170, -26041.3213332502, -7.18745964235637e-23, 1.52514144339677e+156, 4.06568999682668e+188, 2.21088713294373e-213, 2.65642466627358e+41, 9.5872406725567e-259, -1.12481722643588e+272, -4.80658635725658e-122, 2.65642466627358e+41, -1.31082469411377e+224, 5.42956368717421e-271, 1.3769242415349e+109, 3.69202247230887e-63, -6.29595263857478e-299, 4.3228495718573e-233, 2.83778728119249e-92, -4.1683846211528e+248, 1.13414931783095e+75, 2.71869538912319e-239, 8.64616883473739e+72, -5.17770337958136e+44, 4.01746440898586e+115, -4.33782415902253e-153, -2.06554652845755e+52, 3.61353173545563e-241, 2.93677624290839e+73, 1.62888125503528e+230, 1.51978919832125e+150, -1.09719205281856e+284, -5.72596959822411e-06, 6.17014773274233e-240, 1.14113487966137e-221, -5.14229016992749e-77, NA, -7.24012572721193e-175, -Inf, 7.7145923437525e-44, -Inf, -8.27397526036844e+138, 3.31469799763729e+252, -4759821228.04979, 1.26962325547272e+130, 1.06628323072247e-285, 3.19963449677167e+290, -2.26173848396275e-95, -3.99915427354221e+155, 2.85280014325133e+216, -3.96971536831722e-240, -2.39168473991034e-280, -1.41946407865593e+79, -2.30515069213354e+168, 0)) result <- do.call(RMPSH:::anti_transformation,testlist) str(result)