R/checks.R

In ppsr: Predictive Power Score

Defines functions is_binary_numeric is_binary is_same is_constant is_id

is_id = function(x) {
  return(is.character(x) & length(unique(x)) == length(x))
}

is_constant = function(x) {
  return(length(unique(x)) == 1)
}

is_same = function(x, y) {
  if(is.factor(x) & is.factor(y)) {
    return(all(as.character(x) == as.character(y)))
  }
  return(all(x == y))
}

is_binary = function(x) {
  return(length(unique(x)) == 2)
}

is_binary_numeric = function(x) {
  return(is_binary(x) & is.numeric(x))
}

Try the ppsr package in your browser