# NOT RUN {
library(vegtable)
data(Kenya_veg)
## 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")
# }
# NOT RUN {
vegtable2kml(Kenya_veg, "Podocarpus.kml")
# }
Run the code above in your browser using DataLab