if (FALSE) {
gr <- to_genomic_ranges_fast(
list(
pkg_name = "BSgenome.Hsapiens.UCSC.hg38",
seq = c("chr1:1000-1199:+:win1", "chr1:1200-1399:+:win2")
)
)
}
# Using a character vector with auto-generated complementary sequences
seqs <- c("ATGCG", "GCTAG")
names(seqs) <- c("chr1:1-5:+:seq_1", "chr2:1-5:+")
gr <- to_genomic_ranges(seqs)
gr
# Using a character vector with provided complementary sequences
seqs <- c("ATGCG", "GCTAG")
comp_seqs <- c("TACGC", "CGTA")
gr <- to_genomic_ranges(seqs, comp_seqs)
gr
# Using a FASTA file
gr <- to_genomic_ranges(system.file("extdata", "example1.fasta", package = "TmCalculator"))
if (FALSE) {
# Using a character vector with genomic coordinates
seqs <- c(
"chr1:1898000-1898050:+:BSgenome.Hsapiens.UCSC.hg38",
"chr2:2563000-2563050:-:BSgenome.Hsapiens.UCSC.hg38"
)
gr <- to_genomic_ranges(seqs)
gr
}
Run the code above in your browser using DataLab