testlist <- list(x = c("mozzwixsehisnavbbddi", "qlticntqpfnnscjohrgy", "nhtu", "i", NA, "qnlycdwvtkfvzzoccnok", "uwipaisslycgbssjilab", "glgvvpthbifdhynnnhde", NA, NA, NA, "cvcpdqbsreswfdvdrnug", "brmenikbxdebyxnxpq", NA, "nmxn", NA, NA, "llkvpktmolaaewly", NA, NA, "m", NA, "hgwkqhcahwyy", NA, "fgrtsaew", "iggputknaunv", "bansvuushyvlzobrvkxf", "dpteytnatxnznsqgchow", "smuwpxzavzaaiazroiqx", NA, "pxhxvsphrwgosziwpohu", "hrvjerojzkytyodcbzya", "czfnkwkfqtjlzihedjet", "io", "ywphvwvawjlikwq", NA, "tfklrynvjaplktclgz", NA, NA, NA, NA, "yfhakygjujzifwonnxlc", "eqkaybzxrhiuxyerozlj", "bqwcenwloascalhacoo", "lgvypdqtctpyvijwuwvl", "", "esifsdnqpeasirdw", "fiysxeatzsidgjnqoswq", NA, "wxweopnavjspwjaghzkj", NA, NA, NA, "bdkjeejrftbjcykunrse", NA, NA, "amrobelckuahkbafbsbx"), y = c(NA, "yemvpatgptyjolrmvhmr", NA, "bjxwgfjrzjbekbaqslfz", "qrr", NA, NA, "yxn", "juwvmdhqeaxoloprozlo", "bqsxkussmxsbvkqrakbu", "nkkdbuaczumjueybrhfo", "", "wguvuequowwvsuxzenzc", "wxcsiylpqieobomojked", "hytljrlypffttywbgede", "zvyadhziuevleojzamoh", "cdwdfvzcqi", "edxmpbikdivssklrjflf", "x", "auwkphnndelhsi", "faiivmkozfaafhahrjkz", "actks", NA, "iabysumninspkgsgwjos", "xhvcnjwgvjlkavokmjeu", "pscueaphd", "jsfijtyit", "kcnaauovufy", "dmlqjiszvtygqpli", "wafjnvpnytdxenoldstj", NA, "thngonujcfrrggrqupnc", "cnbdxdlbgeqjbrzqgkue", "sqipauqzihedhixfniqk", NA, NA, NA, "ibtj", "veqkrocvfljpl", "scgtmmkuwizdofjlde", "wopusddttljfuhkpqked", NA, NA, NA, NA, "br", "cqepafuhwflfqj", "gkfkwlnktpvuazf", NA, "auhottfuqjgjqxoyfjak", "toovpggjxudppvtadrpe", "orikueqcidfxuqizuf", "wogvnekshxxeoguxqucq", "qaijoupkbyslhmmelbpn", "uqirjdssgbioamcmcoyw", "cedsat")) result <- do.call(jiebaR:::cpp_ham_dist,testlist) str(result)