5 Fig5

suppressMessages(library(ggplot2))
options(stringsAsFactors = F)
hic = read.table('data/hela-hic-rDNA')
nhic = read.table('data/hela-nhic-rDNA')
hic_actd = read.table('data/hela-hic-actd-rDNA')
nhic_actd = read.table('data/hela-nhic-actd-rDNA')