testlist <- list(depth = c(-1557274596L, 1346892834L, 657832403L, -1035293283L,  58018725L, -871382133L, -1510186748L, 1362871540L, 1755582649L,  -335160557L, 982836988L, -560686367L, 166037461L, -196451943L,  1187159447L, -43938970L, 110895090L, -1577450021L, -1897146516L,  2138132105L, 1456823883L, 532669542L, -2122121857L, -477501975L,  621075398L, -18833012L, -864487349L, -364456896L, 456362811L,  -227499660L, -224463915L, 668516172L, -593882406L, 2075354695L,  744395286L, -1519954240L, -1696400500L, 1385955396L, 1005787490L,  -874991705L, 1942061550L, 1978086817L, 1187493867L, 772647880L,  -274246335L, 1129678206L, 1235214612L, 2005974250L, 1363007686L,  621635435L, -719432189L, 738315291L, -1474208276L, 1994549951L,  -2125736711L, -611261651L, -843254798L, -916759138L, 2041815717L,  -1251032739L, -1893840635L, 11847042L, -6718501L, 694028534L),      input_data = c("sgfefsqksogrldtbchaq", "olwjythkvqfyacxxedna",      "drefqnkeibsrdgwkjrlc", NA, "lwjofrkbeecxopxugonv", NA, NA,      "zsllmqzdodqkrtbgfzzl", "hsvzwqbkpwbzhexhdtbc", "bobtiirrekyjbmnwwsem",      "cotfw", "xgtsomu", NA, "wdggznlicbfqezvcwczr", "xfrjmyzr",      "gs", "ot", NA, "xacupvudujke", NA, "ttrfm", "grepkytllzrditpiyffv",      "fui", NA, "vebsketagamupskbh", NA, "yzthal", NA, "vfojfhwnraiydwkqtcvi",      NA, "fbsxxwjkggrgrxbdogeo", "kuvbdpnfrhiqgemfoaql", "gfxjwruegpkayewgdwau",      NA, "ozccpgcszh", NA, "gejsjstpgcjuhfecazum", "", "ludvowuwooajpnnahzzy",      NA, NA, "hbsazyeqwzxfio", NA, "nhpqeaizxmcueiavfllf", NA,      "wfykvaodgqrnodebwtma", NA, "yczosbhqb", "wbsfoofllevjmfrflqdt",      "cmjeoxaj", "iirmtzayuztsrqhvpvts", "odbntc", "ufnnewbrgzovbqqoxzma",      "gmqeub", "os", "hvakikmabwgaudslwetm", NA))
result <- do.call(BCT::compute_counts,testlist)
str(result)