diff --git a/R/Phenotypes.R b/R/Phenotypes.R
index 417cd6b5..fb758c4a 100644
--- a/R/Phenotypes.R
+++ b/R/Phenotypes.R
@@ -195,7 +195,9 @@ getPhenotypeLog <- function(cohortIds = NULL,
 #' A tibble.
 #'
 #' @examples
-#' getPhenotypeLog(cohortIds = c(1, 2))
+#' cohorts <- getPhenotypeLog()
+#' subsetIds <- cohorts$cohortId[1:3]
+#' getPlConceptDefinitionSet(cohortIds = subsetIds)
 #'
 #' @export
 getPlConceptDefinitionSet <-
diff --git a/man/getPlConceptDefinitionSet.Rd b/man/getPlConceptDefinitionSet.Rd
index a669b2de..851f975d 100644
--- a/man/getPlConceptDefinitionSet.Rd
+++ b/man/getPlConceptDefinitionSet.Rd
@@ -18,6 +18,8 @@ A tibble.
 Get conceptSets in cohorts
 }
 \examples{
-getPhenotypeLog(cohortIds = c(1, 2))
+cohorts <- getPhenotypeLog()
+subsetIds <- cohorts$cohortId[1:3]
+getPlConceptDefinitionSet(cohortIds = subsetIds)
 
 }