diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
index 69279b9..faf30de 100644
--- a/CRAN-SUBMISSION
+++ b/CRAN-SUBMISSION
@@ -1,3 +1,3 @@
 Version: 0.4.2
-Date: 2023-08-23 18:49:58 UTC
-SHA: 8f37c8a542e617bd3ef83c10e4c6d5a4e64beb9e
+Date: 2023-08-23 20:04:10 UTC
+SHA: e61280ab179e5741779e969ee5c2ccf2a5c9727e
diff --git a/R/cluster_label_change.R b/R/cluster_label_change.R
index 6940c2b..a5bc7d8 100644
--- a/R/cluster_label_change.R
+++ b/R/cluster_label_change.R
@@ -1,4 +1,4 @@
-ClusterLabelChange <- function(dpObj, x, newLabel, currentLabel, aux=0) {
+ClusterLabelChange <- function(dpObj, i, newLabel, currentLabel, aux=0) {
   UseMethod("ClusterLabelChange", dpObj)
 }
 
diff --git a/R/mixing_distribution_prior_draw.R b/R/mixing_distribution_prior_draw.R
index 6247b67..8e5c369 100644
--- a/R/mixing_distribution_prior_draw.R
+++ b/R/mixing_distribution_prior_draw.R
@@ -3,6 +3,7 @@
 #' @param mdObj Mixing Distribution
 #' @param n Number of draws.
 #' @return A sample from the prior distribution
+
 #' @export
 PriorDraw <- function(mdObj, n) UseMethod("PriorDraw", mdObj)