inst/unitTests/allequal_test.R

test_allequal <- function() {
  x <- c(1,2,NA,4)
  y <- x
  checkTrue(allequal(x,y))

  y <- c(1,NA,3,4)
  checkTrue(!allequal(x,y))

  checkTrue(!allequal(x,NULL))
}

Try the GWASTools package in your browser

Any scripts or data that you put into this service are public.

GWASTools documentation built on Nov. 8, 2020, 7:49 p.m.