knitr::opts_chunk$set( collapse = TRUE, warning = F, message = F, comment = "#>" )
library(devtools) install_github('wbaopaul/rGMAP')
install.packages('path to rGMAP_1.4.tar.gz', repos = NULL, type = 'source')
Data from Rao et al., Cell 2014, A 3D map of the human genome at kilobase resolution reveals principles of chromatin looping
KR normalized Hi-C data for IMR90 cell line, on chr15 with resolution 10kb
library(rGMAP) hic_rao_IMR90_chr15 res = rGMAP(hic_rao_IMR90_chr15, index_obj = NULL, resl = 10 * 1000, dom_order = 2) names(res) #quickly visualize some hierarchical domains pp = plotdom(hic_rao_IMR90_chr15, index_obj = NULL, res$hierTads, chr0 = NULL, 5950, 6900, 30, 10000) pp$p2
chr1 0 10000 1 chr1 10000 20000 2 chr1 20000 30000 3 chr1 30000 40000 4 ......
10 127 10.372577 10 188 4.161271 10 281 36.072713 17 5822 2.418056 ......
set.seed(1) simu_res = data_simu('poisson-dist-hier') true_domains = simu_res$hierTads simu_mat = simu_res$hic_mat predicted_domains = rGMAP(simu_mat, resl = 1)$hierTads pp = plotdom(simu_mat, NULL, predicted_domains, NULL, 1, 1000, 20, resl = 1) pp$p2 #true_domains #predicted_domains
devtools::session_info()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.