R/clm__clmCheckRequirements__checkResponseRequirements.R

In phmpacheco-ufjf/clm: A package to deal with complex longitudinal survey data

checkResponseRequirements <- function(response) {
  if (dim(response)[2] > 1) {
    stop("Response variable must be one-dimensional!")
  } else if (any(is.na(response$value))) {
    stop("Response variable shouldn't have NA values!")
  } else if (typeof(response$value) == "character" | typeof(response$value) == "logical") {
    stop("Response variable shouldn't be character or logical!")
  }

  return(NULL)
}