testlist <- list(k1 = 7.88892511232088e-246, k2 = 1.52405152827346e-303,      k3 = 6.16750139759955e+161, mu1 = -1.76370084307625e-191,      mu2 = 2.8206225290491e-90, x = c(1.0234e+26, -7.7422e-38,      4.5366e-125, 8.9825e-278, -9.2617e+13, -1.4424e-275, -5.8172e+63,      -4.1928e-72, -1.2634e-138, 1.8516e+171, 3.7949e-289, 8.5339e+195,      -2.857e+75, 1.1218e-112, -8.6941e-59, 1.6379e+34, -4.7362e-237,      -2.7241e+108))
result <- do.call(BAMBI:::ldsin_manyx_onepar,testlist)
str(result)