R/sumGroups.Spectra2D.R

In bryanhanson/ChemoSpecUtils: Functions Supporting Packages ChemoSpec and ChemoSpec2D

#'
#' sumGroups.Spectra2D
#'
#' @author `r .writeDoc_Authors("BH")`
#' @noRd
#' @export
#'
sumGroups.Spectra2D <- function(spectra) {
  .chkArgs(mode = 21L)
  chkSpectra(spectra)

  gr.l <- levels(spectra$group)
  count <- length(gr.l)

  g.sum <- data.frame(group = NA, no. = NA, color = NA)
  for (n in 1:count) {
    gi <- match(gr.l[n], spectra$groups)
    gr <- gr.l[n]
    no. <- length(which(gr == spectra$groups))
    col <- spectra$colors[gi]
    g.sum <- rbind(g.sum, data.frame(group = gr, no. = no., color = col))
  }

  g.sum <- g.sum[-1, ]
  g.sum <- subset(g.sum, no. > 0) # drop groups with no members
  rownames(g.sum) <- c(1:nrow(g.sum))
  return(g.sum)
}