testlist <- list(eps_f = 4.67768173498895e+204, eps_g = -5.56271732420063e+234,      maxit = -173516921L, start = c(-1.3485238903537e+122, 1.767764747395e+51,      6.26373335504106, -9.96287210231791e-111, -8.23755216048711e+198,      -9.01896132453219e-271, 7.90107437849377e-59, -7.51099451765329e-234,      -9.32148991810111e-62, 2.6629741047074e-21, 2.85695391760371e-49,      4.90457643113392e-204, -1.30849503516874e-253, -1.07332665856543e-20,      -8.85386441082672e+100, -5.65012835516949e+262, 3.67043106586066e+302     ), x = structure(c(NA, -Inf, -Inf, NA, -Inf, 1.55275352858005e+40     ), .Dim = c(1L, 6L)), y = c(-5.02291637596725e+117, -5.72941592499415e+144,      3.57163680144006e+306, 5.1074502371164e-90, -2.60609401675829e-23,      -1.01324304677219e-174, 1.23214175407772e-272, -2.47342710164104e+92,      1.60773784325527e-28, -2.4671181621373e+282, 1.54162529563486e+153,      1.27626918971496e-286, NA, 5.05723775065159e-294, 2.12400470318687e-163,      -9.51322527977542e-197, 3.19247409491708e-184, NA, NA, 1.80254340298381e+45,      -1.19984617346502e-167, NaN, -2.85375313625005e-285, -4.96181582679852e+212,      2.93452688424718e+51, -3.48461004441606e-264, -2.09114629438106e-209,      2.70314661994904e+165, -4.35122767000865e-245, -4.7888039998992e-91,      -6.156071458036e-134, 1.58392495589908e+299, 1.75992208404568e-188,      2.92513266167968e-276, 2.05443988553919e-194, -8.74339335425147e-139,      3.22331413379946e-237, 6.20751978617475, 8.2741183176495e+256,      6.67259751396664e+42, 1.74060816995693e+94, -10461517900.5758,      8.21606235820788e-152, 2.27704808300536e+266, 1.32765433246678e-258,      -6.5879078243921e-221, -4.94509055290786e-161, 8.46074917608266e+220,      0))
result <- do.call(RcppNumerical:::fastLR_,testlist)
str(result)