R/setGroupLabel.R

setGroupLabel <- function(matrix, groupLab) {
  groupLabel <- c(groupLab, rep(NA, ncol(matrix$matrix) - 1))
  matrix$matrix <- rbind(groupLabel, matrix$matrix)
  matrix$plot.DF <- rbind(NA, matrix$plot.DF)
  matrix$is.summary <- c(TRUE, matrix$is.summary)
  matrix
}
pmur002/metaplot documentation built on May 25, 2019, 10:21 a.m.