# \donttest{
# We don't run this example by R CMD check, because it takes >10s
watershed.df <- elfdata(watershed.code = '0208020104',
ichthy.localpath = tempdir(), use_cache = FALSE)
breakpt <- 500
elf <- elfgen(
"watershed.df" = watershed.df,
"quantile" = 0.95,
"breakpt" = breakpt,
"xlabel" = "Mean Annual Flow (ft3/s)",
"ylabel" = "Fish Species Richness"
)
# Calculate absolute richness change
richness_change(elf$stats, "pctchg" = 10)
# Calculate percent richness change at a specific stream size
richness_change(elf$stats, "pctchg" = 10, "xval" = 50)
# }
Run the code above in your browser using DataLab