rda<-paste(system.file('rda',package='diffloop'),'loops.small.rda',sep='/')
load(rda)
# Compute number of interactions on same chromosome
dim(intrachromosomal(loops.small))
samechromo <- intrachromosomal(loops.small)
# Compute number of interactions on same chromosome
# dim(interchromosomal(loops.small))
# This will throw and error since the toy only has intrachromosomal loops
Run the code above in your browser using DataLab