data("ATseqlengths")
path = system.file("extdata", package = "RTIGER")
files = list.files(path, full.names = TRUE)
nam = sapply(list.files(path ), function(x) unlist(strsplit(x, split = "[.]"))[1])
expDesign = data.frame(files = files, name = nam)
names(ATseqlengths) = paste0("Chr", 1:5)
myres = generateObject(experimentDesign = expDesign,
seqlengths = ATseqlengths,
rigidity = 10
)
Run the code above in your browser using DataLab