testlist <- list(a = -3.59872877491565e+296, b = 9.11343224192607e-239, c = -2.94034311491954e-89,      d = -1.10766329147117e+218, y = c(-5.22287401127295e+91,      -3.38944908187214e+82, 1.76349423555288e+157, 2.29179552013443e-39,      -2.87171047652439e-18, -4.63430346876023e+27, -8.6559016970946e-103,      -2.13130660173351e-216, 7.1551074616782e+47, -1.61355850464273e+274,      NA, 3.90773524744229e+175, 9.4399811736327e-247, 2.72681110169743e-290,      9.20571719208027e-33, 1.16804610861993e-262, -1.78029054076674e-146,      5.75767198699398e-158, -4.46798908371862e-203, 3.10346455260482e-12,      1.08147706672567e-243, -3.6415128088704e-47, -1.27753822871114e+231,      4.69558771078133e+110, -35616315521417.4, -4.80530123831646e-07,      -2.28234727705936e-115, -2.61873572277952e-63, 1.53598838481115e+289,      2.32281719354154e-213, 2.13482811064434e+299, -2.34805944508761e-129,      1.83602717133234e-65, -6.19733011441414e+268, 9.9898214435904e+169,      -4.56544436274988e-250, -1.35196670411217e+67, 2.05884250878597e-261,      -35616315521417.4, -2.99930824883149e+184, -1.26984951468573e+35,      1.63959623759277e-160, -5.50711269846502e+129, -7.2324543606648e-262,      7.50428484358558e+87, -9.01716993660538e+177, 1.2405854442512e-136,      -2.62539140213306e-194, -6.45499967711557e-10, 1.25002767284144e-57,      1.28820791111949e+239, 1.15949188678109e-117, -6.48647820069293e+80,      -4.37744757333407e-164, -1.17429080357994e+185, 5.80625313550006e+291,      4.27334378458999e-73, -5.95672532616941e-171, 3.32150515169306e+240,      -2.90549895903465e-35, -0.000105759124338268, 6.33952435623554e-13,      NaN, 1.55550156148045e+251, 3.64960216823639e+53, 1.74329450257232e-265,      4.89754019373027e-102, -1.94671047587981e-281, Inf, 5.32254231696462e+196,      3.11790163592035e+175, 7.94599292694681e-268, -1.9793859953325e+139,      4.31753527824849e+190, 1.47017245182097e-285, -7.60595972287432e+146,      8.20480687507998e+66, 2.82807067679008e-29, 1.36040548070881e+283,      -2.21818240231492e+194, -2.35171103927106e-263, -1.76400336287941e+49,      1.03715242270817e-304, -1.58081336180981e+207, -9.86896971412535e-133,      -2.0772780998857e-242, 1.02764370645283e+129, 5.15095206800558e+218,      -2.18835154685468e+305, 2.7187956209142e-140, 0))
result <- do.call(bartBMA:::scale_response,testlist)
str(result)