testlist <- list(i = -964263231L, j = 1730110856L, min_seg = -1172579327L,      w = c(5.92115276343642e-212, -4.96017880465218e-294, NA,      Inf, -4.83013259402048e-179, NaN), x = c(-4.48592173417133e-83,      5.33877276098529e+141, 9.79435373829355e-236, 5.70575645637294e+304,      -8.1085217884305e-66, Inf, 7.09680523799834e+180, -1.62669741096812e+44,      1.70499212083354e+163, -1.21625740738089e-123, -4.77337920195975e-122,      -6.62321758977747e-119, -2.09627007088026e+117, -1.71579138615852e+266,      1.31777069001509e-286, 1.94629565765221e-61, -1.55501665640566e+37,      Inf, -6.32182305412655e-214, 530.538721563617, Inf, -8.71776070995648e+138,      -199836094207763712, 4.11912930836164e-265, 2.64528604460715e-247,      1.77033372784091e+106, 4.74787085903535e-93, -6.06848376248181e-227,      3.71402987213617e-222, 1.68055467213229e-06, -2.26228675551942e-151,      -1.41562900980319e-155, 1.3061654341806e-30, -4.34377655131955e+85,      -2.31756080162898e+51, -3.36424003928439e+185, 1.93326528548466e-296,      -8.07333113253943e+188, 6.89831870794873e+235, 1.15109700705805e-290,      -1.38219775630364e+54, -2.07281823507955e+296, -8.11319174978468e+145,      -1.79742552614282e+186, -7.88470657280994e+77, 1.09933844790839e-107,      -7.17967794197295e-56, 0), y = c(6.94086949603517e-62, -1.25599953609517e+145,      NA, NA, 1.23952263588997e+206, -282.224994251543, -4.51477589619614e+68,      0))
result <- do.call(RcppDynProg::lin_cost,testlist)
str(result)