## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
# library(MethScope)
# 
# query_file <- "sample.cg"
# reference_pattern <- "mm10_Liu2021.cm"
# 
# input_pattern <- GenerateInput(query_file, reference_pattern)
# 
# model <- Liu2021_MouseBrain_P1000()
# prediction_result <- PredictCellType(model, input_pattern)