testlist <- list(freq = -6.05653513786999e-19, interp = -1210643590L, seed = -1364479485L, x = c(-1.85805978013799e-276, 6.36217494514229e+109, -3.48425652468503e+47, -1.15833169649017e-59, NA, 3.36113246816918e+194, -4.45782844413144e+100, 5.78796152617605e+146, 1.32350548903412e-255, 9.0145888146354e-114, 1.24942435614786e-286, 1.24727672670426e-169, 6.0934098075767e-122, 1.61798589432831e-226, -4.44298190688074e-19, -2.71945690413954e+206, -1.30122510371729e+177, 2170866581551629, -3.8289790054712e+34, 2.58051528176239e-235, -2.33559107485216e+20, -2.77952717733446e+188, 1.30736653373046e+29, -1.41986260837738e+170, 6.7073355939607e+217, -2.40131368413202e+48, 2.51980265926651e+197, 5.77890733683249e-145, 1.32350548903412e-255, -2.43663484592327e-191, -2.14186643872014e-38, 1.85834520143157e+92, -7.88087765988387e+241, -2.1982930305035e+66, -33.2429667128931, -1.67064657214252e+88, 9.36538770118562e+171, 0.787478975014192, 7.31854232802438e+168, -9.46865139308959e+191, -2.51239870668586e+27, 1.74372114045309e+273, -1.54280515473645e-228, -5.58990496750991e-194, 1.54190682246527e-267, 5.31253630937328e+194, Inf, -2.98514646773249e+40, 2.27610993028144e-77, 3.23230446153698e-149, 1.69319749547476e+46, -4.87447529461704e+207, 1.10295441174931e-80, 7.16607956596866e+183, -2.39336009182803e+87, 1.32350548903412e-255, -1.37892656002778e-175, 5.87787408169073e-19, 2.62229463352169e-300, 0), y = c(Inf, -7.30424118795388e-275, -Inf, NA, 9.27789803718677e-80, -2.63670611990902e+156, NA)) result <- do.call(ambient:::gen_perlin2d_c,testlist) str(result)