testlist <- list(lmd = c(-4.18659446719486e+167, 1.66805886969039e-175, -81514.0895251441, -2.25367563130472e-122, -1.56772876501086e+173, NaN, -3.26217640926216e-231, Inf, -4.38064727935534e-212, -1.96952522987237e-100, 1.09908411860243e-84, 7.44806712641438e-47, -1.82078285698519e+86, 3.21077139785815e-23, 4.2693569562817e+139, 5.52100371436852e-175, 1.14343460517271e-83, 3.89081726227692e-16, -4.61475080412839e-299, 8.03450536021307e-276, 1.35743699096601e+278, -1.13623928378801e+39, 6.82026054562818e-156, -5.18629822622801e-308, 3.14157388813207e-69, 1.89142089397322e-287, -0.000102791643083418, Inf, -1.73682158022451e-193, 7.88264455643647e-297, 8.22471988350403e+117, 1.52215430895019e+58, 4.18802883888595e-240, 3.9248069908113e+307, -2.96498777686721e+181, -3.32257209723309e+74, 3.64773661218517e-81, 1.06177336699503e+71, 8.3083871454297e+25, 4.07758865781611e+288, 6.48135013204415e-180, 2.40205138566378e-291, -600.042597645248, -5.26778655879729e+141, -1.94486412340683e-284, 8.73333140353509e-187, 1.11063814266589e-247, 3.13514270955743e-259, -2.21375984583055e-141, 1.28044378210206e+307, -1.44671574793045e-166, 4.06448255236881e-291, -4.53234220002052e+199, -1.28202827640907e-294, -4.0502463829512e+167, -8.03242077048038e+277, 1.51160705134199e+35, 8.23904429351193e-85, NA, -7.59882708762522e-281, 2.33312645923384e-265, 2.82508722641062e-34, 1.62422979150458e-228, 3.72847789899588e-233, 2.38049245263194e+259, 3.99914762530723e-116, -3.16507443629794e-237, 3.03571461346542e+269, -3.2415857296158e+178, 0), sigma = c(-5.35824866698816e+132, 1.17923250864722e-207, NaN, -5.14779446296763e+247, 24509294699169722368, -3.57457037449403e-169, -2.04359362615811e+217, -8.02934074049576e-171, -1.93324440012287e-181, -4.1342427940767e+136, 6.77338639477785e-68, -3.82655196833719e-89, 3.44225661990793e-279, NaN, 2.5228158044841e+284, 3.04111225878302e-62, 3.42846631150434e+295, 1.05122872233922e-204, NA, 3.03132814407577e+131, 2.57637324532589e-24, 2.10775338922399e+289, 1.10061120856511e+220, 8.30304680327891e+248, NA, -3.5435204746749e-32, 3.90199310508039e+154, -5.70883542766034e+75, 2.26607244850067e-170, -1.53584602134802e-223, -4.68143793099375e-68, 3.64040570178092e+80, 3.68537947839467e-241, 0)) result <- do.call(dng:::splitn_var,testlist) str(result)