testlist <- list(grid = structure(c(1.07087442450951e+72, 3.33572279710254e+279, 6.58512259286819e-144, 3.40235306170502e+246, 2.84214920157746e-109, 2.4609716900359e+195, 5.48808688325419e-286, 2.9827583696455e-199, 5.48808688325419e-286, 1.31808130344188e+303, 1.05428752150036e+296, Inf, 1.93865808626448e+145, 8.10852847756192e-265), .Dim = c(7L, 2L)), output = structure(c(6.48116856435333e+243, 1.48269349886388e+203, 8.12746908595554e+54, 6.60531766240129e+240, 7.43721020410545e-29, 1.41546148512438e+92, 12294.4990552134, 5.45705345521291e-281, 3.21230191189337e-166, 1.59948666273167e+263, 6.27445346743148e+261, 8.26027936319865e+86, 3.77413427607249e-119, 2.2685704398232e+213, 4.71688465956924e+181, 1.78345144530128e-211, 1.71435176714975e+27, 1.09206504357957e+57, 6.24646248592427e-214, 2.07700253006869e-125, 2.85685049310965e+212, 2.8436519639493, 7.88699024031658e-116, 3.47489627504004e-288, 7.33765586620497e-143, 1.26152086800519e-252, 7.49664907444294e+293, 6.34966781180638e-114, 1.40838180313554e+30, 1.4530228291034e-14, 1.23655728130677e+101, 7.69619745326958e+261, 3.15214157546588e+268, 4.93296580245456e-209, 1.46848251267266e-111, 2.59553480281482e+130, 7.89613301814214e+73, 4.93775928725978e+96, 1.4539875856157e+172, 8.89135735916727e-54, 101720359.368851, 1.7844498584488e+290, 1.79922836443096e+64, 3228060.53029388, 1.91699339656427e+279, 1.85800757976839e-228, 1.94851027751339e-282, 3.08473320494967e+220, 7.37969695678299e+227, 3.31737088145275e+259, 8.18429322150112e+299, 4.98478127418534e-14, 2.04809539769149e+284, 1.0492665978148e-145), .Dim = c(6L, 9L)), x = c(-1.66667893622001e-49, 1.91698338082271e-80, 2.93871033907185e+294, 6.23890285463427e-80, 4.73594416852843e-68, 1.92374608756283e+304, 5.22278042553461e+77, -2.97932406633684e-194, -2.68155229469859e-130, -2.8443541465211e-188, -1.37830165814193e-303, 9.46138801054663e+185, 3.43512439634007e-26, -2.80408356385423e+194, -2.69315621855967e-264, 8.88375296519136e+93, -1.28149993449481e+192, -1.05378635096144e+270, 9.9348541420566e-272, -4.49673024853768e-166, 1.08790490440457e-197, -1.2041029401751e+269, 5.69436160505039e+304, -4.31279914103383e+297, -8.50762375722852e-293, 8.10981151245745e+266, 5.79154874698599e-162, -1.52841548347558e+202, 1.08404704783176e-287, 6.87024100783927e+274, -5.68764856223117e-181, -1.13844874214302e-199, 1.96260971350789e-252, 5.33405194998669e-300, 2.59208973630206e-42, -9.97306573534695e-54, -2.72162996958946e-171, -3.62546934961208e+168, -1.05877353233728e+151, 2.42723774121938e-180, 2.71379408558098e-129, -2.99574316180368e+172, -3.92218442701392e+180, 3.87644683863415e+40, 2.87529519465824e-21, 2.1613714735693e-216, -1.24268282218984e+93, 1.1295944748571e-232, 3.92159577538232e-79, -15667.1775954664, 4.57084549186976e-49, -1.25757101230842e+73, -8.79373529590978e+217, -9.77937136970318e+240, -6.91902272399548e+224, -1.16799430317206e+232, -1.9654566928719e+138, -2.97633622985238e-92, -2.12534603551549e-12, 3.06886759116986e+143, -3.91468555641316e-243, -5.48275336426756e+103, 9.28985945620188e-15, -3.80097643545023e-13, 4.66046102560888e-69), y = c(NaN, -1.64217809273048e+131, NaN, 4.23066581849164e+207, 2.48183270265646e+47, 8.28182054105106e-108, 1.38680336694119e-275, Inf, 5.78199949171137e-237, 6.2320075141858e-30, -2.11814402719399e-273, -1.27000634718051e-269, 1.09457818701388e+240, -3.14298318954663e+178, -2.74505505312392e+143, 4.27914432640749e+225, 6.36261492581283e-209, -8.98934695502905e-156, 2.33085174425266e+48, 3.00618321575548e+174, -8.78387566818307e+63, 7.56032999167439e-26, -1.25716071873292e-14, 2.25199374422079e-184, Inf, Inf)) result <- do.call(ProFound:::interpolateAkimaGrid,testlist) str(result)