## ----setup, include = FALSE-------------------------------------------------------------------------------------------
options(width=120)
knitr::opts_chunk$set(
   collapse = TRUE,
   eval=interactive(),
   echo=TRUE,
   comment = "#>"
)

## ----eval=FALSE-------------------------------------------------------------------------------------------------------
#  library(igvR)
#  igv <- igvR()
#  setBrowserWindowTitle(igv, "AD GWAS")
#  setGenome(igv, "hg38")
#  tbl.gwas <- read.table(system.file(package="igvR", "extdata", "gwas", "bellenguez.bed"),
#                         sep="\t", as.is=TRUE, header=TRUE, nrow=-1)
#  track <- GWASTrack("bellenguuez", tbl.gwas, chrom.col=1, pos.col=2, pval.col=5, trackHeight=80)
#  displayTrack(igv, track)

## ---- eval=TRUE, echo=FALSE, out.width="95%"--------------------------------------------------------------------------
knitr::include_graphics("images/gwas-01.png")

## ---- eval=TRUE, echo=FALSE, out.width="95%"--------------------------------------------------------------------------
knitr::include_graphics("images/gwas-02.png")

## ----eval=FALSE-------------------------------------------------------------------------------------------------------
#  url <- "https://s3.amazonaws.com/igv.org.demo/gwas_sample.tsv.gz"
#  track <- GWASUrlTrack("igv sample", url,chrom.col=12, pos.col=13, pval.col=28)
#  displayTrack(igv, track)

## ---- eval=TRUE, echo=FALSE, out.width="95%"--------------------------------------------------------------------------
knitr::include_graphics("images/gwas-03.png")

## ---- eval=TRUE, echo=FALSE, out.width="95%"--------------------------------------------------------------------------
knitr::include_graphics("images/gwas-04.png")

## ----eval=TRUE--------------------------------------------------------------------------------------------------------
sessionInfo()