testlist <- list(freq = 4.92396699924015e-47, interp = -1368823196L, seed = 60306996L, x = c(7.23774323845603e-92, 2.22953065530609e+302, -5.78122418168572e-43, -2.6103555446721e-244, -1.78804588003579e+196, 1.95866737364521e-171, 4.10509608356411e-175, 7.5832095822506e-246, -2.86619128389266e-218, -1.95228274198441e-137, 4.6120729816937e+59, -1.05134996521581e-27, NaN, 2.58264016177127e-87, -2.99452745708968e-267, -2.94616422660653e-97, -2.11053872094484e-276, 4.43603945354646e-103, NA, -2.95660642121698e+141, -1.27298894064111e+303, -3.5697189712032e+177, -884738598897768, -1.95438884777224e-31, -3.90486114993725e-107, -2.52478633422944e+53, 3.08405310853007e+26, Inf, -2.01935799068564e-154, -71.1156327149983, 5.89138551322805e-151, 3.27717920599389e+102, -8.47248000927181e-82, -1.2749539337165e-76, 3.12150853478367e-126, 1.12885279210389e-100, -2.66541839058211e-159, 8.33980808508253e+235, Inf, 4.72189173425664e-245, NA, -2.76781258388567e+100, 7.75083634571442e+163, -6.29917704414014e-247, 4.29924917253072e-86, 7.28034798773781e+62, -4.89471462135337e+292, 1.0349977163983e-69, -2.95349857560965e+65, -1.31255782568307e-119, -4.73719272285595e-238, -1.38463976859811e-06, 8.31387022457917e+211, -3.55732275112354e+162, 1.07688614002435e-146, 0), y = c(5.80920129506023e-141, 7.11279190131642e-127, 1.59560311102905e-194, 4.56769993830557e-184, NaN, 1.75706981885098e-51, 4.03908562828326e+206, -1.01149330892213e-140, NA, 1.52304316310994e+91, 1.48871187796902e-188, 2.14984865332384e+223, 4.59594528023685e+275, 16331872242953465856, -5.27449070946663e+132, NA, NA, 6.70791464888666e+303, 1.02359626217974e-128, -3.03843275838548, 8.8912950508126e-157, -2.59165565285808e+284, -6.34602452815214e+295, -2.39492952418536e+232, 1.91026159675697e-28, -2.05736041295189e-163, 5.72885097880583e-64, 8.54164350065358e+130, 0)) result <- do.call(ambient:::gen_value2d_c,testlist) str(result)