Update rc.merge.clusters.R

cbroeckl · Dec 12, 2023 · 89e72ba · 89e72ba
1 parent 5a341d2
commit 89e72ba
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/rc.merge.clusters.R b/R/rc.merge.clusters.R
@@ -71,6 +71,7 @@ rc.merge.split.clusters <- function(
   # 0.99888
 
   # collapse feature dataset into spectrum dataset
+  data1 <- ramclustObj$MSdata
   wts<-colMeans(data1[], na.rm = TRUE)
   ramclustObj$SpecAbund<-matrix(nrow=nrow(data1), ncol=max(clus))
   for (ro in 1:nrow(ramclustObj$SpecAbund)) {