inst/unitTests/test_SnpGRanges.R

test_SnpGRanges <- function(){
  g <- GRanges("chr1", IRanges(15L, 15L))
  sg <- SnpGRanges(g, isSnp=TRUE)
  checkTrue(validObject(sg))
  checkTrue(validObject(SnpGRanges()))
}
rscharpf/VanillaICE documentation built on May 15, 2019, 5:51 p.m.