if (FALSE) {
#Extract site data first:
my.data <- get_ausplots()
#Extract vegetation point intercept data for plots with revisits
#Here, subsetting my.Plots_IDs to revisits in one bioregion
my.data <- get_ausplots(veg.PI = TRUE,
my.Plot_IDs = unique(subset(my.data$site.info, visit_number > 1
& bioregion_name == "MAC", select=site_location_name))[,1])
#Display species composition trajectory for all plots with at least 3 revisits
ausplots_trajectory(my.data, choices = "PCoA")
#Display fractional cover trajectories (community index example)
my.data$community.indices <- fractional_cover(my.data$veg.PI)[,c("site_unique",
"bare", "brown", "green")]
ausplots_trajectory(my.data, choices = "diversity")
}
Run the code above in your browser using DataLab