diff --git a/R/allocate.R b/R/allocate.R
index 037b8305..7a8eabcc 100644
--- 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
index 2daefdf8..0e40c149 100644
--- a/man/hz_to_taxpartsize.Rd
+++ b/man/hz_to_taxpartsize.Rd
@@ -69,6 +69,11 @@ fragvoltot = h$frags
 
 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")