# We will use a dummy data set to demonstrate how this detects uninformative
# loci using both MAF and a cutoff.
genos <- c("A/A", "A/B", "A/C", "B/B", "B/C", "C/C")
v <- sample(genos, 100, replace = TRUE)
w <- c(rep(genos[2], 99), genos[3]) # found by cutoff
x <- c(rep(genos[1], 98), genos[3], genos[2]) # found by MAF
y <- c(rep(genos[1], 99), genos[2]) # found by both
z <- sample(genos, 100, replace = TRUE)
dat <- df2genind(data.frame(v = v, w = w, x = x, y = y, z = z), sep = "/")
informloci(dat)
if (FALSE) {
# Ignore MAF
informloci(dat, MAF = 0)
# Ignore cutoff
informloci(dat, cutoff = 0)
# Real data
data(H3N2)
informloci(H3N2)
}
Run the code above in your browser using DataLab