inst/unitTests/test_testMotif.R

test_testMotif <- function(){
  data(pandaToyData)
  data(pandaResult)
  regnet = slot(pandaResult,"regNet")
  p1 <- with(pandaToyData, testMotif(regnet, mode="augment", motif, expression, ppi, hamming=1))
  p2 <- with(pandaToyData, testMotif(regnet, mode="remove", motif, expression, ppi, hamming=1))
  checkTrue("ggplot" %in% class(p1) & "ggplot" %in% class(p2))
}

Try the pandaR package in your browser

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

pandaR documentation built on May 2, 2018, 4:35 a.m.