# Determine what samples have loops with 1-20 counts
rda<-paste(system.file('rda',package='diffloop'),'loops.small.rda',sep='/')
load(rda)
nLoops <- numLoops(loops.small, 1:20)
# Determine what samples loops with 1-10 counts by default
nLoops <- numLoops(loops.small)
Run the code above in your browser using DataLab