## Plots containing Podocarpus observations
Kenya_veg@species <- subset(Kenya_veg@species, grepl("Podocarpus", TaxonName),
slot="names")
Kenya_veg <- subset(Kenya_veg, TaxonUsageID %in%
Kenya_veg@species@taxonNames$TaxonUsageID, slot="samples")
if (FALSE) vegtable2kml(Kenya_veg, "Podocarpus.kml")
Run the code above in your browser using DataLab