# NOT RUN {
#Load the minerals library
data(minerals)
minerals_keep <- subset(minerals,
refs = c("QUA.1", "QUA.2"),
mode = "keep")
minerals_remove <- subset(minerals,
refs = c("QUA.1", "QUA.2"),
mode = "remove")
# }
Run the code above in your browser using DataLab