testlist <- list(x = 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(bartBMA:::orderforOW,testlist) str(result)