# dataPath <- system.file("extdata", package="Starr")
# bpmapChr1 <- readBpmap(file.path(dataPath, "Scerevisiae_tlg_chr1.bpmap"))
# newbpmap <- remap(bpmapChr1, nseq=5000000, path=dataPath, reverse_complementary=TRUE, return_bpmap=TRUE)
Run the code above in your browser using DataLab