## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
options(warn=-1)

## ----echo=FALSE, out.width="70%", fig.align="center"--------------------------
knitr::include_graphics("images/schematic_for_vignettes.png")

## ----echo = T-----------------------------------------------------------------
# if (!require("BiocManager", quietly = TRUE))
#     install.packages("BiocManager")
# 
# BiocManager::install("SMTrackR")
# rmarkdown::html_vignette

## ----Load package, echo=TRUE--------------------------------------------------
library(SMTrackR)

## ----plot psuedo-bulk scNOMe-seq data, fig.width=4.5, fig.height=6, echo=TRUE----
SMTrackR::plotFootprints(organism = "mmusculus", model = "8cell", condition = "WT", 
                         genome_assembly = "mm10", type = "SMF", chromosome = "chr5", 
                         start = 113847750,  end  = 113847780, tr = "8cell", 
                         label = "8cell", fp_cap = 50, remove_dup = TRUE, target_dir = "smf")
SMTrackR::generateGvizCodeforSMF(organism = "mmusculus", model = "8cell", condition = "WT",
                                 genome_assembly = "mm10", type = "SMF", chromosome = "chr5", 
                                 start = 113847750,  end = 113847780, tr = "8cell", 
                                 label = "8cell", fp_cap = 50, remove_dup = TRUE,
                                 gviz_left = 1000, gviz_right = 1000, target_dir = "smf")


## ----Plot dSMF data, fig.width=4.5, fig.height=6, echo=TRUE-------------------
SMTrackR::plotFootprints(target_dir = "dsmf")

## ----Plot Methylation Calls on Nanopore Reads, fig.width=10, fig.height=5, echo=TRUE----
SMTrackR::plotMethylationCallsNanopore(target_dir = "nanopore") 

## ----List available tracks, echo = TRUE---------------------------------------

#SMTrackR::listTracks()

## ----Session Info, echo = TRUE------------------------------------------------
sessionInfo()