## -----------------------------------------------------------------------------
library(marinerData)
hicFiles <- c(
    LEUK_HEK_PJA27_inter_30.hic(),
    LEUK_HEK_PJA30_inter_30.hic()
)
names(hicFiles) <- c("FS", "WT")
hicFiles

## -----------------------------------------------------------------------------
library(marinerData)
nha9Loops <- c(
  FS_5kbLoops.txt(),
  WT_5kbLoops.txt()
)

## -----------------------------------------------------------------------------
library(marinerData)
limaLoops <- c(
  LIMA_0000.bedpe(),
  LIMA_0030.bedpe(),
  LIMA_0060.bedpe(),
  LIMA_0090.bedpe(),
  LIMA_0120.bedpe(),
  LIMA_0240.bedpe(),
  LIMA_0360.bedpe(),
  LIMA_1440.bedpe()
)
names(limaLoops) <- c(
  "LIMA_0000",
  "LIMA_0030",
  "LIMA_0060",
  "LIMA_0090",
  "LIMA_0120",
  "LIMA_0240",
  "LIMA_0360",
  "LIMA_1440"
)
limaLoops

## -----------------------------------------------------------------------------
sessionInfo()