# 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(1000,1000),
selector=NULL,
plotParams=list(plot=FALSE,profile=TRUE,
heatmap=TRUE,device="x11"),
rc=0.5
)
# Re-design based on k-means
kmParams=list(k=2,nstart=20,algorithm="MacQueen",iterMax=20,
reference=NULL,seed=42)
design <- kmeansDesign(test.tss$data,kmParams=kmParams)
Run the code above in your browser using DataLab