calc

ropensci · Oct 3, 2024 · 94ae322 · 94ae322
1 parent b227579
commit 94ae322
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/centroid_group.R b/R/centroid_group.R
@@ -107,5 +107,9 @@ centroid_group <- function(
     message(paste(out_ycol, 'column will be overwritten by this function'))
     data.table::set(DT, j = out_ycol, value = NULL)
   }
+
+  DT[, c(out_xcol) := mean(.SD[[xcol]], na.rm = na.rm), by = c(group)]
+  DT[, c(out_ycol) := mean(.SD[[ycol]], na.rm = na.rm), by = c(group)]
+
   return(DT[])
 }