## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/"
)

## ----echo=FALSE, out.width="50%", fig.align='center'--------------------------
knitr::include_graphics("../man/figures/TableofFreq.png",  dpi = 5000)

## ----echo=FALSE, out.width="50%", fig.align='center'--------------------------
knitr::include_graphics("../man/figures/Distributions.png")

## ----echo=FALSE, out.width="100%", fig.align='center'-------------------------
knitr::include_graphics("../man/figures/Figure02-ModelDesign.png",  dpi = 5000)

## ----eval=FALSE, fig.align='center', include=FALSE----------------------------
# Distributions <- c("Normal", "Normal-Uniform","Normal-Augmented", "Normal-Uniform-Augmented", "Beta", "Beta-Uniform", "Beta-Binomial", "Beta-Binomial-Uniform")
# Function <- c("emstepN()", "emstepNU()", "emstepNA()", "emstepNUA()", "emstepB()", "emstepBU()", "emstepBB()", "emstepBBU()")
# Input <- c("Allele Frequency","Allele Frequency", "Allele Frequency","Allele Frequency", "Allele Frequency", "Allele Frequency", "Coverage", "Coverage" )
# emtable <- data.frame(Distributions, Function, Input)
# 
# knitr::kable(emtable, align = "c")

