testlist <- list(x = c(603497922L, -2065975987L, -1981852649L, 900590154L, -2076391578L, -2146136927L, -9428150L, 1520036990L, -1852751851L, 1844863990L, -709423862L, 1693996265L, 874270644L, 819746351L, 1283029671L, 308684195L, -127551131L, 1528585009L, -748078280L, 1636835733L, -1401926948L, 1285557401L, 428228651L, -328872220L, -897103578L, -1549445257L, 244494191L, 584058062L, 1078897549L, -289987065L, 1030107689L, -889123179L, -2007516372L, -65887478L, -1521321529L, 578721378L, -868094021L, -132791755L, 2079678022L, -160637826L, -996693312L, -1437742257L, -1622927679L, -1028905841L, -317502747L, 688659108L, 24767479L, -439912791L, 1579182600L, 1848989453L, 2037305148L, 452184840L, 102100271L, 554226723L, -2118182298L, -2037378844L, -1317343969L)) result <- do.call(BondValuation:::NumToDate,testlist) str(result)