R/spotAssholes.R

In alemiani/explora: Explore and Visualize Data

Defines functions spotAssholes

Documented in spotAssholes

spotAssholes <- function(df) {
  mindf <- c()
  maxdf <- c()
  difdf <- c()
  for(i in 1:dim(df)[1]) {
    difdf[i] <- diff(range(df[i,],na.rm = T))
  }
  strategy <- ifelse(difdf <= 0, 1, 0)
}