testlist <- list(cm1 = c(-3.03976704785355e-137, 8.61880295204389e-55, -2.12938349213037e+146,  -4.18255047406038e-172), d = c(978085029L, -1189435842L), id = c(8.20480687507998e+66,  2.82807067679008e-29, 1.36040548070881e+283, -2.21818240231492e+194,  -2.35171103927106e-263, -1.76400336287941e+49, 1.03715242270817e-304,  -1.58081336180981e+207, -9.86896971412535e-133, -2.0772780998857e-242,  1.02764370645283e+129, 5.15095206800558e+218, -2.18835154685468e+305,  2.7187956209142e-140, -1.07579847745447e+293, -2.23094234489041e-87,  -1.48047624825645e+197, -6.25786796183681e-283, 5.30786433265637e+234,  -9.44439001751561e+226, -1.34623586838988e-65, 2.13494113147542e-132,  8.14824922749987e-171, -3.86510794206545e-42, 4.78799352607089e+119,  1.15940737132038e+148, -9.45546289107428e-242, -4.17532963125364e+192,  3.75475200013239e+229, -1.54470537685379e-213, 7.45766013310034e-31,  5.23357685814757e+103, -6.5142544435682e-102, -4.52405855396084e-88,  1.26897696078858e-256, 7.73593240223144e-100, 1.37142273453642e+84,  1.27853548402832e+124, 6.84114769671652e-179, 1.87916443236561e-136,  1.84907573969435e+298, 2.44623541659398e-13, -1.24173513072221e+269,  -1.27014271884788e+108, 0.00036993779429385, -5.37021249506796e-113,  2.40792997496163e+278), m = c(-2.94034311491954e-89, -1.10766329147117e+218,  -5.77261406657278e+206, -6.11871847532238e+278, -5.22287401127295e+91,  -3.38944908187214e+82, 1.76349423555288e+157, 2.29179552013443e-39,  -2.87171047652439e-18, -4.63430346876023e+27, -8.6559016970946e-103,  -2.13130660173351e-216, 7.1551074616782e+47, -1.61355850464273e+274,  -1.88125744914441e-107, 3.90773524744229e+175, 9.4399811736327e-247,  2.72681110169743e-290, 9.20571719208027e-33, 1.16804610861993e-262,  -1.78029054076674e-146, 5.75767198699398e-158, -4.46798908371862e-203,  3.10346455260482e-12, 1.08147706672567e-243, -3.6415128088704e-47,  -1.27753822871114e+231, 4.69558771078133e+110, -2.18763047774841e-107,  -4.80530123831646e-07, -2.28234727705936e-115, -2.61873572277952e-63,  1.53598838481115e+289, 2.32281719354154e-213, 2.13482811064434e+299,  -2.34805944508761e-129, 1.83602717133234e-65, -6.19733011441414e+268,  9.9898214435904e+169, -4.56544436274988e-250, -1.35196670411217e+67,  2.05884250878597e-261, -6.57866325828343e-246, -2.99930824883149e+184,  -1.26984951468573e+35, 1.63959623759277e-160, -5.50711269846502e+129,  -7.2324543606648e-262, 7.50428484358558e+87, -9.01716993660538e+177,  1.2405854442512e-136, -2.62539140213306e-194, -6.45499967711557e-10,  1.25002767284144e-57, 1.28820791111949e+239, 1.15949188678109e-117,  -6.48647820069293e+80, -4.37744757333407e-164, -1.17429080357994e+185,  5.80625313550006e+291, 4.27334378458999e-73, -5.95672532616941e-171,  3.32150515169306e+240, -2.90549895903465e-35, -0.000105759124338268,  6.33952435623554e-13, -4.73661064594262e-79, 1.55550156148045e+251,  3.64960216823639e+53, 1.74329450257232e-265, 4.89754019373027e-102,  -1.94671047587981e-281, 5.41616674756926e-191, 5.32254231696462e+196,  3.11790163592035e+175, 7.94599292694681e-268, -1.9793859953325e+139,  4.31753527824849e+190))
result <- do.call(trackdem:::muP1,testlist)
str(result)