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

## ----setup, eval=FALSE--------------------------------------------------------
#  if(!requireNamespace("BiocManager", quietly = TRUE))
#      install.packages("BiocManager")
#  BiocManager::install("MouseFM")

## -----------------------------------------------------------------------------
library(MouseFM)

## -----------------------------------------------------------------------------
avail_strains()

## -----------------------------------------------------------------------------
df = prio("chr1", start=5000000, end=6000000, strain1="C57BL_6J", strain2="AKR_J")

## -----------------------------------------------------------------------------
comment(df)

## -----------------------------------------------------------------------------
get_top(df$reduction, n_top=3)

## -----------------------------------------------------------------------------
plots = vis_reduction_factors(df$genotypes, df$reduction, 2)
plots[[1]]
plots[[2]]

## -----------------------------------------------------------------------------
sessionInfo()