g <- rbind(c("NA", "N", "A", "A", "T", "G", NA, "H"),
c("C", "C", "G", "G", "A", NA, NA, NA),
rep(NA, 8),
c("C", "C", "G", "G", "G", "C", "G", "G"))
consensus <- find_consensus_geno(g)
Run the code above in your browser using DataLab