## ----setup, include=FALSE------------------------------------------------
knitr::opts_chunk$set(
echo = TRUE,
fig.align = "center",
fig.height = 7,
fig.width = 7,
collapse = TRUE,
comment = "#>"
)
## ----popfly data, echo=TRUE, fig.width=7---------------------------------
## Load the iMKT library
library(iMKT)
## Load PopFlyData
loadPopFly()
## Check data object
ls()
names(PopFlyData)
## ----PopFly data retrieve automated no recomb, echo=TRUE-----------------
PopFlyAnalysis(genes=c("FBgn0000055","FBgn0003016"), pops=c("RAL","ZI"), recomb=F, test="DGRP", plot=TRUE)
## ----PopFly data retrieve automated, echo=TRUE---------------------------
geneList <- as.vector(unique(PopFlyData[PopFlyData$Chr=="2R",]$Name))
PopFlyAnalysis(genes=geneList , pops="RAL", recomb=T, bins=2, test="iMKT", xlow=0, xhigh=0.9, plot=TRUE)
rm(geneList)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.