testlist <- list(depth = c(778171779L, 1357777111L, 1526175042L, 538317394L,  416607479L, -270378778L, 1829301331L, -1683812151L, 67521876L,  -195744690L, 1287753836L, -677134608L, 2007754598L, -1925231366L,  1211715299L, -597775136L, 1694053720L, 1315022747L, 574031865L,  -624498351L, 1909504254L, 268761432L, 1028078361L, -1511523830L,  -516988369L, -1878406478L, 1104325403L, -1735037687L, 1696925557L,  687918439L, 1191739629L, -260376623L, NA, 1674308516L, -1650999499L,  NA, 1363478395L, 1188356749L, -580748595L, -579756410L, -878788562L,  1772868102L, 1116814190L, -1099366385L, -1090024955L, -613641544L,  -821197396L, 2116235849L, -1024297173L, -1639370016L, -613593191L,  -414209882L, 1446226737L, -1623332242L, 1248795337L, -1823665579L,  1066041565L, -743260498L, 537741063L, 1559276978L, 593028034L,  -1781714464L, 1028368848L, -1732565544L, 1168487705L, 1483982712L,  -2146467876L, -13857246L), input_data = c("oeythlfrxtfjxzdeejol",  "mrwgmurgjf", NA, "tglpvzndhadidxnofcd", NA, NA, NA, "kkifqamgnkrmdnypk",  "alwsl", NA, NA, "deyblbjnrxlmflq", "drufrhgu", NA, "", NA, "rpufgzsjlfrfxj",  "k", "debdigxot", "hnqccwqunjtqwtlmwuvl", "cvtybxyehosv", "tyxywzcahlzvygwwlxio",  NA, "bxdyoyljwaovxnit", NA, "qkbbzzvfqrkkcakktvou", "ylirspbmtsiebt",  NA, "oyvfplfjkdgyblkuclje", "iqfhzwsn", "hlbjrcphtbflmknkgkso",  "cyvft", "fvbbuvwkfdolmvvsfoy", "gnhcdo", "dkvsodovrmropxuetwq",  "mmaezhmlzmduyceoiuvp", "zsktexlho", "vrfjgsjlle", "bonem", "smedmqbn",  "djpwkhrnbomtudmlvtxl", NA, "ehiatrkevxwpouxmotnz", "tnpepvmngtignueovd",  "tayheeeiznxujffvyicb", "psymffi", "", NA, "gqpdoqpwftndjkepcotj",  "javywxovxeofevjfbmcg", "focvjjnsjffzlybzxmyq", "btcxkjxvbcuyd",  NA, "jiobfmxyrb", "aucksxjefgvswxepdewo", "hszddhypebywrnpazbjt",  NA, NA, NA, "hqzbqxhrrgbbcrjwnzuj", "gvwzegyainqmqbhri", "onvppuuvdnjhtexeekdo",  "lvevwglscgkr", "", "topbogcerek"))
result <- do.call(BCT::ML,testlist)
str(result)