inst/unitTests/test_FilterParam.R

In VanillaICE: A Hidden Markov Model for high throughput genotyping arrays

test_FilterParam <- function(){
  fp <- FilterParam()
  checkTrue(length(probability(FilterParam()))==1)

  data(snp_exp)
  fit <- hmm2(snp_exp)
  checkTrue(is(unlist(fit), "HmmGRanges"))
  checkTrue(is(as(unlist(fit), "GRanges"), "GRanges"))
  checkTrue(identical(length(fit), ncol(snp_exp)))
}