inst/unitTests/test_mirsynergy.R

test_mirsynergy <- function() {
  
  load(system.file("extdata/toy_modules.RData", package="Mirsynergy"))
  
  # run mirsynergy clustering
  V2 <- mirsynergy(W, H, verbose=TRUE)

  # check with presaved module cluster assignment
  checkTrue(identical(V, V2))  
}

Try the Mirsynergy package in your browser

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

Mirsynergy documentation built on April 28, 2020, 6:09 p.m.