## Not run:
# dirPath <- system.file("extdata", package="LedPred")
# file.list <- list.files(dirPath, full.names=TRUE)
# background.freqs <- file.list[grep("freq", file.list)]
# positive.regions <- file.list[grep("positive", file.list)]
# negative.regions <- file.list[grep("negative", file.list)]
# TF.matrices <- file.list[grep("tf", file.list)]
# ngs.path <- system.file("extdata/ngs", package="LedPred")
# ngs.files=list.files(ngs.path, full.names=TRUE)
# crm.features.list <- mapFeaturesToCRMs(positive.bed=positive.regions,
# negative.bed=negative.regions, background.freqs=background.freqs,
# pssm=TF.matrices, genome="dm3", ngs=ngs.files,
# crm.feature.file = "crm.features.tab",
# stderr.log.file = "stderr.log", stdout.log.file = "stdout.log")
# names(crm.features.list)
# class(crm.features.list$crm.features)
# crm.features.list$stdout.log
# crm.features.list$stderr.log
# ## End(Not run)
Run the code above in your browser using DataLab