diff --git a/R/evaluate-clusters.R b/R/evaluate-clusters.R
index 8020f6f..78ca798 100644
--- a/R/evaluate-clusters.R
+++ b/R/evaluate-clusters.R
@@ -344,7 +344,7 @@ calculate_stability <- function(
 #' # Calculate Principal Components
 #' pca_matrix <- reducedDim(sce_object, "PCA")
 #'
-#' # We can put in a single data frame of cluster results:
+#' # We can calculate a single data frame of cluster results:
 #' cluster_df <- calculate_clusters(
 #'   pca_matrix,
 #'   algorithm = "leiden",