Nothing
## ----skipNoHITC---------------------------------------------------------------
# IMPORTANT: this vignette can not be created if HiTC is not installed
if (!require("HiTC", quietly = TRUE)) {
knitr::opts_chunk$set(eval = FALSE)
}
## ----loadLib, message=FALSE---------------------------------------------------
# library("adjclust")
## ----loadData-----------------------------------------------------------------
# load(system.file("extdata", "hic_imr90_40_XX.rda", package = "adjclust"))
## ----create-data-script-------------------------------------------------------
# system.file("system/create_hic_chrXchrX.R", package="adjclust")
## ----mapHiC, message=FALSE----------------------------------------------------
# HiTC::mapC(hic_imr90_40_XX)
## ----hicClust-HTCexp, message=FALSE-------------------------------------------
# fit <- hicClust(hic_imr90_40_XX)
## ----binning, message=FALSE---------------------------------------------------
# binned <- HiTC::binningC(hic_imr90_40_XX, binsize = 1e5)
# fitB <- hicClust(binned)
# fitB
## ----plotBinned, message=FALSE------------------------------------------------
# HiTC::mapC(binned)
## ----dendro-------------------------------------------------------------------
# plot(fitB, mode = "corrected")
## ----objectDesc---------------------------------------------------------------
# head(cbind(fitB$merge, fitB$gains))
## ----session------------------------------------------------------------------
# sessionInfo()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.