in_df <- data.frame(line = c("CV1", "CV2", "CV3", "CV4", "CV5"),
gene1 = c("A", "A", "B", "B", "A"),
gene2 = c("B", "A", "A", "B", "H"),
gene3 = c("A", "A", "H", "H", "A"),
gene4 = c("A", "B", "H", "A", "B"))
util_haplo(in_df, target = "A", non_target = "B", hetero = "H", line_cul = "line")
Run the code above in your browser using DataLab