testlist <- list(x = c(2063434254L, -916522979L, -1410167379L, 393718998L, 152384749L, 370754527L, -1262166806L, 1211285698L, 809685497L, -1597434292L, -1146881582L, 447064100L, -1159917103L, -162221910L, 411931744L, -1085004817L, -1745557449L, -1107393672L, -1568912708L, 586342620L, -806179387L, 1180594015L, -352010326L, 1491245807L, -696113261L, -2119562461L, 659939145L, 1220551959L, -1294737928L, 827086620L, 1343735465L, -111109936L, NA, 1785694097L, -999892468L, 654255320L, -771632893L, 1294475166L, 1072056121L, 1189021993L, -1620275959L, -619406688L, 2071243937L, 1943042630L, -783595233L, 1936309683L, 1325722773L, -470433918L, 1632406333L, 1629871580L, -1719042803L, 1526158123L, 1117538998L, 84371796L, 190180079L, 1252618667L, -167909290L, 583348924L, 1336986025L, -1491282710L, -1205886786L, 638128690L, -912555523L, -1517136997L, -1891831374L, 19164752L, -734529157L, 1406035211L, -318387949L, 249316716L, -664398722L, -110618232L, -1542833499L, 782824962L, -537952718L, -1109180758L, -385368329L, -486316868L)) result <- do.call(bartBMA:::order_intvec_,testlist) str(result)