Check data: #' @keywords internal rdatacheck <- function (rData, multi = FALSE) if ((dim(rData)[2] < 2) & (multi)) stop("Your rData object should have at least 2 columns")