testlist <- list(b = c(-6.80053031651135e+294, -7.21177529692373e+60, -1.0782753476314e+285, 4.30100660266052e-157, -1.78805133885694e-23, 1.66720474498239e-294, 2.8946039074899e+297, 1.24701527653198e+32, 3.40161217009284e-41, 3.53858516126058e+248, 2.309155245784e+271, 2.03817258115063e-269, 4.42153717152361e+291, NA, -1.70956040415721e+183, 1.01281157416932e-259, -8.51153067735639e-71, -5.62834411171647e-157, -1.87005346063882e+138, -6.68154821576835e+156, 857166.237844918, 1.89332403101812e-245, 2.79075948764409e+140, 5.77864001240157e+125, -2.40319866782758e-265, 1.00783648086884e-171, -1.96343128510748e-298, 1.46665589923582e+174, 4.66550332081207e-135, -3.31683027284707e-126, 5.71798262052194e-95, 3.70299961194577e+63, -6.2952117722157e-227, -1.10227469569136e-121, 1.62585559126458e-13, 1.71317974364624e-183, -1.31537473277427e-186, 1.59558787515496e+94, -5.43931071113089e+71, 3.57004569051983e+68, 4.17988307624017e+142, -3.22038283208571e-18, 2.70572091668907e+74, -2.10118041678282e-134, -1.97473965077872e+24, -3.19592337239195e-202, -1.4951807143588e-296, 1.06579668460925e-224, -Inf, -Inf, 4.99504811916982e+272, 7.92109707814702e+81, 5.11218920305268e-157, 2.46275000742975e-294, -3.23732820234903e+304, -5.72585701758683e+112, 2.39561296300357e+81, 1.17725653125901e+295, 4.84266130302883e+173, 3.1202819690947e-175, 6.65206911873609e+45, -Inf, -3.30956649168917e+174, 4.92752380849753e-08, 7.48324309941357e-69, -2.04509179718102e+134, -4.68907310230149e+288, -2.4290743479468e+255, -6.72692852490239e+144, 3.02682756434855e-71, 1.07201160838428e-194, -6.52950029977099e-185, -2.49191629270083e+169, 2.75799004039612e-196, 2.37561635664633e-61, -1.6870127700279e+297, 2.05470647638405e-19, -3.54028108762323e-269, NA, 8.9356950505979e+58, 2.31225651625457e-235, 1.60231899370452e+296, 0), G = structure(c(1.42738846320891e-154, 5.51460397582332e-167, 1.85475607299118e-291, 6.31003846550534e-244, 5.57000802912926e+251, 1.06387958859662e+166, 1.11296089658244e+70, 3.37357974622122e-305, 1.04227194174355e-196, 1.98889287876083e+116, 5.81524366258602e+153, 7.54878965661409e-268, 8.42067718264536e-271, 2.69601786404262e-37, 1.61907166897207e+246, 4.15459702777096e-302, 2.72768609291602e+162, 5.45503824952451e-168, 2.28041817999023e-224, 1.24503140459553e-19, 1.66929267612372e+281, 4.50730447881623e-141, 6.6446662982145e-150, 3488989243899.28, 1.26241352942204e-291, 1.77216611451059e-280, 1.36993194923079e+61, 106936.604066181, 8.26019468208882e-56, 1.31549946906012e-283, 3.20899054123232e-223, 1.95215616310152e+130, 9.97347802420323e+140, 1.21132055811487e-220, 3.54080088943499e+92, 1.70913738838386e-68, 5.1375882340485e+41, 3.16142814330275e+177, 3.79548218259215e+228, 9.89550898835675e-206, 1.99707336591169e+126, 1.28591136643522e-225), .Dim = 7:6), k = 1583288351L, n = 248424534L, offset = c(1.11372916112099e-248, 5.16070362406367e+220, -7.56763862677036e-134, 1.31458494770666e-240, Inf, 5.36407592938116e+199, -6.86940448530472e-64, -2.52210454999104e-153, -1.13358742133272e-157, 7.53993401911558e-263, -2.97507007954481e-250, -4.16291974846816e+202, 5.25146513963586e+238, -4.25353167253364e-243, -3.20490206688143e+83, -2.55544054403477e+307, -5.54382295875007e+81, -Inf, 3.95816036989435e-17, -Inf, -7.18276269534183e-242, 6.21360617126911e-196, -2.28069498255644e-189, 8.37034590568091e-221, -3.57549206356902e-07, 1646.48291520333, -14253755961.0496, -2.40809609991649e-86, -6.00223489915776e-283, 2.79282363076259e-240, -4.24731263790957e+214, 1.89485806165777e-181, 3.32514247993672e+261, -8.82161941032488e+183, 2.24431423839216e-101, -1.46050688311262e-127, NA, -2.24062537138947e+239, -3.03698753681308e-09, -2.01459362791997e+77, -1.25435213070443e+41, -4.31148599848702e-207, 7.78667733082913e+137, -1.42007995750962e+29, -2.67792652090243e-300, -2.23214554001023e+75, -2.10010078294388e-70, 0), p = 1875345985L, tau = -2.17833916317611e-131, type = 2051234765L, x = structure(3.99662540373038e+305, .Dim = c(1L, 1L)), yo = c(1.44997431887605e+260, -8.16097593155489e-218, -1.83049074095478e+161, 1.60303994556007e-127, 2.66885538516894e-246, -3.09492437996856e+66, 2.58499906747844e-143, -3.13408970402217e+58, -1.67107029518462e-90, NaN, 3518416455.08352, 1.92475566058062e+220, -4.57673490014852e+251, -2.90014248399583e+26, -7.12012780986589e-98, 4.01517297596527e+21, -8.10710182847456e+102, 1.89465198290255e-292, 3.91392925123343e-146, -2.1355384544324e-117, 2.23184944325053e+224, 2.52384394701467e-130, 7.5000398933408e-247, 2.20337456475591e-157, 7.05187990290388e+137, -Inf, -6.21731262455324e+119, 3.05793142225131e-85, 7.14944759187589e-109, 7.35087397172073e-79, 1.20949605760089e+38, -7.07856308924036e+133, 1.19553534110279e+110, 3.90144577390228e+167, 9.17391104114635e+264, -9.51413103082537e-261, -1.20311730634503e-101, 8.64787681280022e+127, -9.23372454566044e-32, -1.04622494137569e+272, -2.14058129458606e-117, 2.68523334835544e+269, 7.34849964140618e+81, 1.65368485244912e-93, 2.13151709571629e-61, 5.35734855530211e+299, 6.36494089795432e-161, -9.10387412731687e-169, 2.37783134179208e-285, -3.55258593317262e-113, 5.11224845140835e+54, 2.00258667259151e+133, 6.0999118586735e+22, -1.73845413005078e+30, 1.13534217142249e+248, NaN, -3.84396069863445e-300, 7.52455491484204e+62, -6.3323780505102e-295, 2.68266964863147e+75, 1.52352346321907e-204, 2.24554942160846e+217, -5.67674598676195e+158, 3.04927804467954e-238, -1.767668924674e-65, 4.45842561111253e+47, 1.27398616201153e+45, -1.08023341088809e-255, 2.92367883707178e+199, Inf, -6.87937219425561e-54, 5.0780320319976e+141, -5.42917662893143e+275, NA, 1.80373239079435e+56, -1.11541442373065e-19, -2.36042660741569e-253, -1.03533200419289e-66, 1.45917465106872e-180, -8.30798658414286e+212, 3.92923847691569e-286, 3.2763470391373e-63, 2.17358310774182e+27, 0)) result <- do.call(Qtools:::C_midrqLoss,testlist) str(result)