View source: R/plot_single_molecule_examples.r
| StateQuantificationPlot | R Documentation |
Plot states quantification bar
StateQuantificationPlot(SortedReads)
SortedReads |
Sorted reads object as returned by SortReads function |
Bar plot quantifying states
Qinput = paste0(tempdir(), "/NRF1Pair_Qinput.txt")
library(BSgenome.Mmusculus.UCSC.mm10)
if(file.exists(Qinput)){
QuasRprj = GetQuasRprj(Qinput, BSgenome.Mmusculus.UCSC.mm10)
MySample = readr::read_delim(Qinput, delim = "\t")$SampleName[1]
Region_of_interest = GRanges(seqnames = "chr6", ranges = IRanges(start = 88106000, end = 88106500), strand = "*")
Methylation = CallContextMethylation(sampleSheet = Qinput,
sample = MySample,
genome = BSgenome.Mmusculus.UCSC.mm10,
range = Region_of_interest,
coverage = 20,
ConvRate.thr = 0.2)
TFBSs = GenomicRanges::GRanges("chr6", IRanges(c(88106253), c(88106263)), strand = "-")
elementMetadata(TFBSs)$name = c("NRF1")
names(TFBSs) = c(paste0("TFBS_", c(4305216)))
SortedReads = SortReadsByTFCluster(MethSM = Methylation[[2]], TFBSs = TFBSs)
StateQuantificationPlot(SortedReads = SortedReads)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.