geno <- rbind(c("C", "G", "C", "GG", "CG"),
c("A", "A", "AT", "TA", "TT"),
c("T", "G", NA, "GT", "TT"))
codes <- rbind(c("C", "G"), c("A", "T"), c("T", "G"))
geno_encoded <- encode_geno(geno, codes)
Run the code above in your browser using DataLab