testlist <- list(beta = c(-4.40542167393296e-65, 9.93765015009146e+292, 2.32002580293826e+83,  -3.79864241792839e-121, 1.8883108834625e-213, 2.45400007991628e-127,  -5.16833556972955e+138, -6.51850214476773e+234, 5.70876483084426e+39,  -1925.98874452245, 3.40619744136121e+177, 3.79124675916177e-141,  -3.78688578449402e-26, 6.67997172957005e+201, 1.9529638921179e-225,  3.6712239261411e+174, -6.02246826322777e+297, NA, -3.64068544838652e+264,  -1.02667353736304e+221, -4.93898503461023e-292, 1.18829283671081e+83,  4.54940249892308e+83, 6.14545433376592e-207, 2.68266245762969e+268,  -1.49404189804505e+247, 7.68738535365778e-208, NaN, -1.21095565819795e-290,  -9.56764834309804e-120, -1.23782442780946e+306, -6.58679767209119e-128,  6.87917021540263e+136, -4.09753193092625e-228, 5.93333407886065e-215,  2.89107199791954e+289, -1.646287653183e+219, 2.77718146285877e+36,  9.30500924864227e-126, -8.40171409844756e-48, -8.72773219496197e-222,  4.27064912662926e+243, 7.56179477482992e+267, 1.4852464645177e-139,  4.58275012087099e+262, NA, -8.2398052672162e-124, -1.61625624077693e-196,  Inf, NaN, 3.46444855761134e-66, 0), DataM = structure(c(5751568433806.45,  1.50711591646626e-229, 1.73980873758743e+63, 2.70069018675445e-86,  NA, Inf, 1.80936441693902e+62, 2.26975884251102e+185, 5.54532843469291e-219,  3.11163969626594e+235, 2.68896466575948e-45, NA, 7.60171011363865e+151,  6.22648230071222e-79, 3.60980598630293e-06, 3.92257647824843e-228,  6.58015765708003e-95, -3.56100684882739e+153, 1.25584663412294e-158,  1.34707818232906e+60), .Dim = 4:5), DataM0 = structure(c(1.55400774130778e-231,  3.61887737973145e-237, 923.433458900595, 3.18485324651006e-108,  8.49037023631839e+218, 4.32613704340585e-143), .Dim = 2:3), DataM1 = structure(c(5.92094378632644e-238,  3.65571424847799e-248, 2.98132520489336e+124, 8.23771365107623e+129,  6.07561460379064e+113, 3.53226133752927e-72, 1.51777447600444e-136,  1.41173257425695e-170, 1.08604123276986e+77, 4.79378252292872e+268,  1.90931893507571, 9.19771063867807e+111, 8.75836617814969e-124,  5.39966211799293e-146, 1.15415707775861e-97, 2.88267066865813e-201,  1.62735634478463e-270, 2.90067989757453e+47, 3.19648836004892e+101,  6.46534000176865e+30, 1.91528854958193e+40, 2.88198367165024e-134,  3.39160935378668e+153, 1.42740627571325e-29, 1.57141266095751e-294,  7.43159197713206e-151, 9.42040199896675e+225, 2.07491513856048e-254,  2.95152873516478e+23, 2.08310652442677e-37, 5.82875590058522e-43,  1.17853416107105e+217, 3.74927795954908e+273, 1.06806361087549e+248,  7.03346581978599e+93, 3.71885170897543e+284, 3.14963207554539e-43,  1.37402387750939e-255, 2.18439550969633e+266, 4.5564521633e-280,  5.70263482371457e-256, 6.72756192593249e+130), .Dim = 6:7), offset = c(-4.48126883069355e-148,  -9.22714936444737e-296, -1.89282518817311e+287, 1.01770223179179e+209,  -6.71947609005307e+297, -1.77647966435896e-189, 7.29334448642537e-83,  NaN, 2.59539441923571e+39, 6.20971776009587e-236, 1.6220891249467e+154,  NaN, 3.94425631166433e+163, 1.25242521664675e-304, NA, -2.88522045812768e-123,  2.89872800324399e-42, 4.6368186935136e+184, NaN, 1.27573499247281e-22,  1.8241839441711e+183, 1.07263056862421e+199, 1.58035867155828e-74,  4.6060216750352e-06, 5.1243717267203e-144, 7.6548318165913e-19,  0), phat = c(-5.16993558688228e-68, 1.50824684215468e+219, 0.0393985145414158,  -4.92702529758804e+281, -2.78722423811147e-71, 2.52321660415077e+250,  -8.1081989310315e+280, -6.57379848724041e+75, 1.27437785705975e+36,  2.96055724832708e+111, 2.13132303962358e-07, -2.98574850661165e-290,  1.03928726334986e-307, 8.62924963412042e-46, 1.73225837043038e+31,  -5.92350170603178e+237, 5.272530290923e-192), qhat = c(-Inf,  Inf), weight = c(6.04620445523328e-75, -1.15248673451699e-291,  -1.01246611536661e+63, 7.43645671112274e-206, -1.21536569749107e-252,  -2.55776373393411e-77), Y = c(-4.26535585626031e-172, -4.91159339879264e+144,  NaN, -5.78033365502816e+47, 3.14543417671943e+71, 1.45707072314645e-150,  -1.49647307269512e+55, 3.17593602330385e+283, -8.03700930127113e-63,  NaN, -6.8764198779315e+114, NaN, 6.06514241082836e-274, -Inf))
result <- do.call(augSIMEX:::scoreprobitcpp,testlist)
str(result)