inst/unitTests/test_regular_mode.R

In gevaertlab/EpiMix: EpiMix: an integrative tool for the population-level analysis of DNA methylation

test_Regular_mode <- function(){

  data(MET.data)
  data(mRNA.data)
  data(LUAD.sample.annotation)

  EpiMixResults <- EpiMix(methylation.data = MET.data,
                        gene.expression.data = mRNA.data,
                        sample.info = LUAD.sample.annotation,
                        group.1 = "Cancer",
                        group.2 = "Normal",
                        met.platform = "HM450",
                        OutputRoot = tempdir())

  RUnit::checkEquals(nrow(EpiMixResults$FunctionalPairs), 5)

}