data(centaurea)
centaurea.hybr = keepTaxon(centaurea, "hybr")
centaurea.PhHybr = keepTaxon(centaurea, c("ph", "hybr"))
centaurea.PREL = keepPopulation(centaurea, "PREL")
centaurea.NA_0.1 = keepSample(centaurea, missingPercentage = 0.1)
centaurea.stem = keepCharacter(centaurea, c("SN", "SF", "ST"))
Run the code above in your browser using DataLab