data <- data.frame(matrix(rnorm(100*5), ncol = 5))
data$Batch <- rep(c("A", "B", "C", "D"), each = 25)
result <- compute_icm_distances(
data,
batch_col = "Batch",
mode = "all",
center_method_individual = "batch",
center_method_inter = "mean"
)
print(result)
Run the code above in your browser using DataLab