R/SubsetEcologicalSite.R

In R-Burke/SiteSummaryTool: Ecological Site Summaries using Assessment, Inventory, and Monitoring (AIM) and Landscape Monitoring Framework (LMF) data

SubsetEcologicalSite <- function(TDat_LMF, EcologicalSiteId){
  
  EcoSitePlots <- TDat_LMF[TDat_LMF[["EcologicalSiteId"]] %in% EcologicalSiteId, ]
# Add sagebrush indicator
  EcoSitePlots <- EcoSitePlots %>%
                 mutate(AH_SagebrushCover_Dead = AH_SagebrushCover - AH_SagebrushCover_Live)
   
  return(EcoSitePlots)
}