if (FALSE) {
#Default output
#Plot locations; visualisations for 5 random plots (including revisits):
ausplots_visual()
#Map tree cover only for all sites:
#Extract data first:
my.data <- get_ausplots(veg.PI=TRUE)
#Set maximum number of plots to all available in the veg.PI data:
ausplots_visual(my.data, map = FALSE, map.attribute = TRUE,
fraction.pie = FALSE, growthform.pie = FALSE, cumulative.cover = FALSE,
whittaker = FALSE, outfile = "AusPlots_treeCover.pdf",
max.plots=length(unique(my.data$veg.PI$site_location_name)))
}
Run the code above in your browser using DataLab