tests/testthat/test_stateswap.R

messageU("State swap")

### Test all binned data in folder stateswap for correct convergence ###
files <- list.files('stateswap', full.names=TRUE)

## H3K27Ac_GMP_Rep1
ID <- "H3K27Ac_GMP_Rep1"
file <- grep(ID, files, value=T)
unimodel <- callPeaksUnivariate(file, eps=1, verbosity = 0)
expect_that(unimodel$weights['modified'], is_less_than(0.2))

Try the chromstaR package in your browser

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

chromstaR documentation built on Nov. 8, 2020, 8:29 p.m.