# \donttest{
# We don't run this example by R CMD check, because it takes >10s
# Generate plot of percent richness change for various percent flow reductions
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"
)
elfchange(elf$stats, "yaxis_thresh" = 25)
# }
Run the code above in your browser using DataLab