R/CheckYClass.R

In okg3/MultiDataAnalysis: Combine Data from Multiple Files or Experiments into One Analysis

#' Check Class of data provided to y parameter in ModelMultiData
#'
#' \code{CheckYClass} is an internal function that checks the class of y
#' parameter in ModelMultiData function.
#'
#' @param y A matrix containing values to be used on left-hand side of model
#'   (e.g. dependent variable).
#' @return matrix

CheckYClass <- function(y){
  if (class(y) != "matrix"){
    warning("Warning: Coercing y to matrix: some data may be lost\n")
    y <- as.matrix(y)
  }
  if(is.null(rownames(y))){
    rownames(y) <- seq_len(nrow(y))
  }
  if(is.null(colnames(y))){
    stop("Error: column names missing from y\n")
  }
  y
}