# Load some data
data("recoup_test_data",package="recoup")
# Calculate coverages
test.tss <- recoup(
test.input,
design=NULL,
region="tss",
type="chipseq",
genome=test.genome,
flank=c(2000,2000),
selector=NULL,
plotParams=list(profile=FALSE,heatmap=FALSE),
rc=0.5
)
# Plot coverage profiles
recoupProfile(test.tss,rc=0.5)
Run the code above in your browser using DataLab