diff --git a/R/classes.R b/R/classes.R
index 54ed613..c03504c 100644
--- a/R/classes.R
+++ b/R/classes.R
@@ -383,7 +383,7 @@ summary.pc_matrix <- function(object, ...) {
 #' @param show_legend_title Logical, whether to display the legend title.
 #' @param ... Additional arguments passed to plotting functions.
 #' @return A ggplot object invisibly.
-#' @references Stavroglou et al. (2020) \doi{10.1073/pnas.1918119117}
+#' @references Stavroglou et al. (2020) \doi{10.1073/pnas.1918269117}
 #' @examples
 #' data(climate_indices)
 #' dataset <- climate_indices[, -1]
diff --git a/man/plot.pc_matrix.Rd b/man/plot.pc_matrix.Rd
index 46d5b9a..3799947 100644
--- a/man/plot.pc_matrix.Rd
+++ b/man/plot.pc_matrix.Rd
@@ -53,5 +53,5 @@ pc_matrix_obj <- pcMatrix(dataset, E = 3, tau = 1,
 plot(pc_matrix_obj, status = "positive")
 }
 \references{
-Stavroglou et al. (2020) \doi{10.1073/pnas.1918119117}
+Stavroglou et al. (2020) \doi{10.1073/pnas.1918269117}
 }