diff --git a/R/CodeAndRoll2.R b/R/CodeAndRoll2.R
index c30f4ba..e1fa61e 100644
--- a/R/CodeAndRoll2.R
+++ b/R/CodeAndRoll2.R
@@ -2511,7 +2511,7 @@ get_max_colname_per_row <- function(
   if (na.remove) mat[is.na(mat)] <- -Inf
 
   # Function to find the maximum indices (1 or more ) of values in a vector
-  .which.max.multi <- function(x) which(x == max(x, na.rm = TRUE)) # unique formatting needed to avoid pattern matching.
+  .which.max.multi = function(x) which(x == max(x, na.rm = TRUE)) # unique formatting needed to avoid pattern matching.
 
   # Apply function to find the maximum indices to each row and return appropriate result
   max_indices_per_row <- lapply(seq_len(nrow(mat)), function(i) .which.max.multi(mat[i, ]))