testlist <- list(alpha = -1.06555455625355e-283, beta = -2.74530346247827e-74, eps = c(-3.75323586036646e+170, -1.08896204805431e+133, -6.31479970580864e-74, 86868510028692307968, 1.06163188371494e-30, Inf, 1.31345233575244e-90, -6.9327266948997e-228, -5.23895425986569e+67, NA, -3.48803007385725e+134, 3.40685220653618e+75, 1.55525398683257e-157, -9.73602540061255e+106, -7.86080340637312e+27, 1.20477605193978e+55, -8.02821149048004e-296, 8.72749830136664e-303, 5.1143198951259e+147, 1.2067387725858e+83, 6.78260557014296e-288, -8.26951415158571e-224, -3.83717494465595e+28, 9.09704507153478e+142, -7.29844220813911e+251, -1.33843812249508e-206, 1.35058104076511e-291, -9.90512823719381e+234, -4.2595873416699e+247, -7.91420116449202e+37, 2.07287074806515e-188, -1.28217212608922e-196, -36765690595328112, 5.79811641370623e-207, NaN, 1.30251522913449e+39, -1.57050091567297e-185, -6.19310012268077e+307, 1.08269831455452e-137, -4.02731298152406e-286, -1.7721236345158e-305, 1.74092099383693e+129, -1.43260396957686e-236, -3.74694450391035e+227, -1.70027902931147e+106, NaN, Inf, 1.89379827859725e-73, 0), init_vals = c(-6.75941857848697e+306, 2.14120549690083e-270, Inf, 1.36058588745479e+199, -5.71559453514901e+150, NaN, -2.67839455543199e+281, 2.56212611611168e-172, 5.87700963463871e+63, 1.87625487088356e+178, 1.37497452716594e+92, -1.96207661867493e-271, -Inf, 2.23232168407921e+26, 4.60247461539766e-122, -1.29827496512074e-127, 1.5438116695889e-105, -5.65207241798945e+158, -4.06665233744602e-215, 49867702481.0957, -6.54136178801521e-274, 1.6962938786028e+266, -4.63105379350989e-253, 1.74480943146741e-273, 6.21195379904455e+149, -7.92971780097201e-289, 1.04928008379228e+152, 1.42787402346024e+244, -4.14165048164851e-100, 1.06917457986955e+101, -4.63040504609488e-156, 8.17498362243591e+108, -1.21494054903414e-124, -1.17768072123286e+114, NaN), omega = -3.0199579773245e-229, var = c(-0.000180200169849249, 1.42593290730215e+265, 4.12504323501695e-166, -1.7880075872278e-120, -4.68075790793577e-237, 2.27467820492831e+247, 6.15860591090583e+105, 8.01172567769148e-191, -4.78287581551903e-148, 1.1342063161006e-54, 2.09228077355592e-291, 109356490416303696, 7.62826259083968e+67, 9.42317903562738e-35, -1.65246627407357e-149, 1.21577046418788e-39, Inf, 1.15641648626029e-218, -3.01258356467409e-195, 7.25874223558252e-71, -2.02954701731393e-171, 1.66167259797395e+267, -1.64413655831685e-88, Inf, 9.02176385167638e+198, 5.50280931344958e-290, -5.48757774224013e-87, 1.79734886106223e-50, -1.33474690913062e-210, -2.7788902222058e+248, 1.97664947897781e-77, -1.77215480954136e+113, -3.6088372786595e+37, -5.61242650631764e-27, 5.51668509932766, 6.91313808012716e-274, 1.53627145431885e+209, -6.08268717488704e+139, 1.34539786892986e+128, 3.27075143247389e-96, -Inf, 2.39091373956528e-178, 8.57517715699886e+199, 3.15522993584858e-231, -3.50722013135285e-20, -7.86409676119038e+246, 1.74396163286378e+250, -3.7135738467504e+129, -3.37223645201133e+173, -1.00480271623503e-64, -1.04218499626445e+100, -1.30991832895575e-13, -3.24072103921736, NA, 1.20095908968619e-232, 646504.198184071, -2.87009654545864e+109, -9.81133121632207e+262, 2.28209550748762e+285, 2.12004232154536e+44, 3.82756264729256e+226, -2.31196167510538e+222, -6.09401538096379e+30, 1.8313995153473e+99, -1.52369233448324e-266, -7.74843831528404e-105, 1.99001766653805e+271, 1.05458839107229e-257, 7.65825186624251e+236, 7.19469534449832e+110, 3.97978934913322e+94, -4.9716426998961e-228, 3.4905593597633e-173, -3.03859382977405e-169, -8.91821074041794e+117, 3.58400081687237e+114, 6.46254024547318e-79, 21237.784655356, 2.66766801817712e+208, 2.74187129793368e+213, -5.93077470604174e-239, -9.31821055070856e-292, 2.73306420551577e+180, 1.40888335691444e+199, -1.07780068971131e+91, 1.75436188797662e+125, -4.2961841956758e-51, 2.0787359175132e-85, -3.05634230646689e-140, 3.61254130580588e-210, 8.85054967857159e-95, -2.7264346413562e+250, -8.117431503591e-206, 2.01226853517242e-25, 2.9557424774106e-296, 0)) result <- do.call(CPAT:::cond_var_gradient_hessian_cpp,testlist) str(result)