testlist <- list(k1 = 9.86170035335218e-147, k2 = 2.05137758875849e-165,      k3 = 4.28138567473201e-115, mu1 = 2.44894882833371e+41, mu2 = -2.20455175399719e-274,      x = c(-2.3196e+92, 9.2269e+293, -1.1523e+145, 2.5606e-11,      -1.0339e+270, 9.8894e-126, 2.1121e-89, 1.5951e-34, 5.5061e+176,      2.2367e-94, -1.4083e-49, -6.6824e+193, 3.0473e+25, 3.4473e+236,      3.7772e+49, 3.1732e+69, -5.8785e+44, -9.3834e+307, 9.4191e-87,      -4.6849e-17, -7.5641e-295, -5.1053e+56, 5.3091e+56, 2.7701e+55,      -7.0037e+78, -6.4225e+90, -9.0205e+282, 8.3336e-246, 9.7467e+236,      2.8075e+88, 2.1562e-161, -9.7918e-102, 8.2269e+151, -5.3531e-39,      -9.695e-41, -1.4804e+59, 7.6629e-156, -3.9481e-289, 1.0838e+204,      -3.994e+175, -2.2001e-20, -1.3666e+187, -1.6943e-158, -2.4226e-43,      -1.3747e+121, -1.8592e+35, 2.342e-54, 1.3187e+255, -3.9576e-222,      -2.2422e-67, 4.927e-60, 1.6539e+76, 1.268e+298, -1.5332e+102,      2.6053e+140, 1.7125e+148, -5.8788e+293, 4.1383e-92, -2.5114e+292,      -4.8901e-21, -1.7626e+307, 5.4903e+99, 6.6738e+218, 1.9719e-231     ))
result <- do.call(BAMBI:::dsin_manyx_onepar,testlist)
str(result)