testlist <- list(ens = structure(c(1.58042506687473e+252, 2.85172327810782e+242,  3.13691699621086e-224, 1.00062523163033e+45, 1.29644783180201e-273,  1.36471147234479e-82, 1.98902091134341e-165, 1.05163583471414e-86,  2.75539719886035e-163, 1.19807667003707e-24, 7.45467197793182e-146,  7.95862977187991e+167, 1.99339791642773e-90, 1.44705797174347e-157,  1.61826054739816e-138, 7.98183013743239e-231, 3.21977434829665e+198,  7.44242008821143e-177, 8.04068284305654e+51, 3.06556771418229e-60,  2.29315707061652e-100, 1.13084778712872e-191, 1.64184164092272e-170,  7.53834485162758e+112, 6.07097871917351e+67, 7.10385191218407e+36,  5.26921032197232e+291, 2.58415006653957e+238, 4.42399175116013e+84,  1.21591262598198e-88, 4.4226443904896e+83, 7.26232694154364e+129,  4.50242930550656e-244, 8.58511044530832e+214, 1.71427791118245e+201,  1.204175049179e+134, 1.70985362369109e-63, 2.9687188672606e+193,  2.99061288276735e+189, 2.96332619788471e-289, 2.83957860419545e+52,  2.47326374557584e-172, 5.18370371923757e+136, 2.46056933319538e-284,  1.31826122408605e-141, 8.56471013744544e+113, 2.62234717897926e+208,  3.99820495177114e+213, 1.16140417155589e+180, 5.36701366732008e+100,  1.21399405676452e-256, 5.32593311789346e-300, 4.40555425123144e-85,  1.38360035043489e+231, 3.66842230369718e+55, 5.58053843665278e+47,  2.0245266957256e+299, 1.21849438202194e+21, 4.41945161235509e+170,  8.7294373544718e-167, 2.6997409183517e+138, 9.5568667854874e-150,  1.07953559079969e+169), .Dim = c(9L, 7L)), obs = c(-1.04667419059782e+71,  -5.43766830032691e+205, -1.88849064767615e-193, 7.31722225603333e+120,  -2.37893303331223e-54, -3.58634780891498e+245, 3.96652055906242e+67,  2.10859315583174e+257, 1.55725836470867e-172, 1.05132856078545e-69,  3.03965161900166e+252, -3.05853744201193e-113, -6.88681053737651e+196,  -4.46397989729251e-74, -2.95379199699987e+56, -1.08576220102808e-141,  -9.43005108466919e-31, -1.83828201109132e+167, -6.58851248952978e+302,  -1.22640139925706e-65, -3.41624300936723e+234, 2.45066086915793e-290,  -1.67632704152388e-306, -6.45201303970232e-114, -5.13272971165509e-220,  -1.26289454752636e+120, 6.5756078165092e+30, -5.87210669162208e+298,  -2.85798447406685e+29, 1.27243643024932e-270, 6.71092051764942e-143,  1.30752967843177e-13, -1.16070092047907e-17, -7.3110588741378e+270,  3.82354723668651e-251, -9.28877865724126e-63, -1.85952516769898e+104,  -2.52847241063751e+199, -6.37903063864218e+199, -2.10571845846285e-219,  3.27568915658775e+221, 1.56792210086577e-61, -271.794074602564,  -2.92131112562832e-296, 4.34230685085588e+125, -1.71412330365614e-305,  -5.5544121323641e+219, 4.36344915570299e-48, -3.63779439381096e-131,  -1.42582102491812e+39, NA, 1.38724705971903e-213, -1.30024180430462e+301,  2.57294920384975e+60, -Inf, -1.25096412159355e-27, 9.91110214075728e+123,  -1.53861012457221e-240, -1.42012948261333e+281, 1.41864667792784e+243,  5.81943813025569e+275, 3.68748901822939e+103, 7.26693028723474e-177,  -3.43336674005282e-37, 1.500383037365e+104, 1.8198223821083e+246,  1.44546487418003e+239, -1.77197764147072e-06, 1.23649556696365e-275,  -2.92842903064851e-125, NA, 1.26518820940572e+219, -5.20234282550512e+231,  -7.4060968655609e-139, 2.71047812073626e-60, 7.012844205502e-128,  2.01290412914067e-110, -3.61701478499407e+184, -3.26109280688849e+167,  8.82848075090752e+264, 8.1255692186237e+69, -9.43358314609126e-122,  2.78565918653884e+20, 2.42774933332873e-155, -1.01491769089316e+186,  9.40692730759525e+187, 1.21019637196543e+263, 4.63753319841014e-36,  -1.05984248630947e+219, -6.60378086538852e+84, -3146561058523095040,  1.11300436117569e+216, -123064620.233646, 2.48892356907697e+131,  0), R_new = -2.73413704869576e+152)
result <- do.call(SpecsVerification::enscrps_cpp,testlist)
str(result)