# example input for a diploid
geno <- data.frame(
Sample1 = c(0, 1, 2, NA, 0),
Sample2 = c(1, 1, 2, 0, NA),
Sample3 = c(0, 1, 1, 0, 2),
Sample4 = c(0, 0, 1, 1, NA)
)
row.names(geno) <- c("Marker1", "Marker2", "Marker3", "Marker4", "Marker5")
ploidy <- 2
# calculate allele frequency
result <- calculate_MAF(geno, ploidy)
print(result)
Run the code above in your browser using DataLab