Fix new hz_to_taxpartsize() example for metadata updates in #309

ncss-tech · Jun 25, 2024 · 9c3af4e · 9c3af4e
1 parent fdf1a4d
commit 9c3af4e
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/R/allocate.R b/R/allocate.R
@@ -697,6 +697,11 @@ allocate <- function(..., to = c("FAO Salt Severity", "FAO Black Soil", "ST Diag
 #' 
 #' depths(h) <- id ~ top + bottom
 #' 
+#' # set required metadata for estimatePSCS()
+#' hzdesgnname(h) <- "hzname"
+#' hztexclname(h) <- "texcl"
+#' hzmetaname(h, "clay") <- "clay"
+#' 
 #' pscs <- data.frame(id = h$id, rbind(estimatePSCS(h)))
 #' names(pscs)[2:3] <- c("top", "bottom")
 #' 

diff --git a/man/hz_to_taxpartsize.Rd b/man/hz_to_taxpartsize.Rd