testlist <- list(k = 1713230968L, m = 1084438640L, Q2 = structure(c(Inf,  -Inf, 2.46562043224079e-85, NaN, 1.78433108967668e+169), .Dim = c(5L,  1L)), w = c(4.63625237377298e+225, -7.30279503773962e+223, -5.71889725370159e-122,  2.41182711510353e+268, 3.45534046901303e+254, 3.36408298050972e+153,  -1.23690952043621e-244, 2.37201805081875e+91, 1.96952841094448e-39,  2.88757035905688e-81, 1.12535251626312e-183, -8.81271540028603e-44,  1.00447269690174e-151, 7.07311124213846e+59, 5.80162653645509e-269,  4.68236993207559e+124, -3.96937419515415e-190, 1.20294968162019e+173,  1.0182879099391e+254, 1.81825936220401e+256, 5.97401140186148e-150,  6.51122619209867e-110, 5.7308545597787e-141, 2.30490309438007e-186,  1.0560008913284e-283, -1.77033849198721e-192, 1.08098288880456e-11,  -1.68378573263851e-260, -5.94930195995272e+278, -9.52835856466906e+75,  -1.54422122789673e-204, 1908501705420148480, -2.0653360795449e+23,  -1939397.43313155, 1.20595177879068e-167, 1.78111917736412e-81,  -4.28296836575557e-110, -4.8927331321365e+250, 1.55449886553059e+210,  1864472060033067, 5.60014103866386e+50, -2.97339872262147e+61,  -6.53022037705503e+211, 5.07780542997879e+235, -3.79746454969183e-197,  -3.07079775495066e+43, -48603571.5337989, 2.3566906714095e+99,  -1.33698660466065e+53, -3.02572039529584e-63, -1.96975805132333e+72,  1.26817317254928e+168, 3.62182926739918e+128, -1.6784234595817e-149,  1.68203628804983e+173, -9.06568165877148e-121, -1.17329755822429e-301,  5.87163517871365e-141))
result <- do.call(selectiveInference:::update1_,testlist)
str(result)