# NOT RUN {
minages <- runif(n = 10, min = 0.1, max = 25)
x <- data.frame(species = letters[1:10],
min_ma = minages,
max_ma = minages + runif(n = 10, min = 0, max = 10))
x <- rbind(x, data.frame(species = "z",
min_ma = 5,
max_ma = 5))
cf_equal(x, value = "flagged")
# }
Run the code above in your browser using DataLab