testlist <- list(K = -1559011488L, num_init = -1855630784L, x = structure(c(5.21759762639622e+255,  1.76683442015307e-160, 8.84080573240912e-176, 4.2974709964444e+62,  5.28759453728666e-207, 9.21614663210312e-140, 1.02079146220343e+127,  1.35675333535438e-11, 3.23632216785178e-139, 1.19928472523663e+231,  3.84482002543757e+49, 6.7024872314994e+101, 2.20177836945808e-244,  2.64177502081492e-57, 1.31994510519557e+41, 2.57523857778567e+232,  6.39581507823611e+243, 1.9348528479188e+79, 2.61260421143191e+135,  1.39809128807062e-27), .Dim = 4:5))
result <- do.call(offlineChange:::OrderKmeansCpp,testlist)
str(result)