Skip to content
Permalink
Browse files

add AWC demo for sierra series

  • Loading branch information
brownag committed Nov 7, 2019
1 parent 4c72d4e commit 1f972d3d9b3cff93ba149c32aa48a30667758ab3
Showing with 3 additions and 0 deletions.
  1. +3 −0 AWC/awc_demo_sierra.R
@@ -171,6 +171,9 @@ f$awc_0to50_h[!is.finite(f$awc_0to50_h)] <- NA

quantile(f$awc_0to50, na.rm = TRUE)

f$awc_0to200 <- profileApply(f, function(p) sum(p$awc_r * (p$hzdepb - p$hzdept)))
quantile(f$awc_0to200, na.rm = TRUE)

plot(ecdf(f$awc_0to50), main = "MLRA 18 - Sierra series EVAL - Pedon Avail. Water Capacity\nEmpirical CDF",
xlab="cm of Available Water (0 to 50 cm)", xlim=c(5,11))
plot(ecdf(f$awc_0to50_l), col="RED", add=T)

0 comments on commit 1f972d3

Please sign in to comment.
You can’t perform that action at this time.