R/counttest.R

Defines functions counttest

counttest <- function(x, y) {
  X <- x - mean(x)
  Y <- y - mean(y)
  outx <- sum(X > max(Y)) + sum(X < min(Y))
  outy <- sum(Y > max(X)) + sum(Y < min(X))
  return(as.integer((outx > m1) | (outy > m2)))
}
zheng017/SC19062 documentation built on Jan. 2, 2020, 12:53 a.m.