# sample data
data(sp4)
depths(sp4) <- id ~ top + bottom
# proposed vector of relative positions, overlap likely
pos <- c(1, 1.1, 3, 4, 5, 5.2, 7, 8, 9, 10)
# try it
explainPlotSPC(sp4, name = 'name', relative.pos=pos)
# attempt to fix using an integer sequence, short-circut will prevent adjustments
explainPlotSPC(sp4, name = 'name', relative.pos = fixOverlap(1:10))
# attempt to adjust using defaults
explainPlotSPC(sp4, name = 'name', relative.pos = fixOverlap(pos))
# attempt to adjust and tinker with defaults
explainPlotSPC(sp4, name = 'name', relative.pos = fixOverlap(pos, adj = 0.2))
# enforce larger space between
explainPlotSPC(sp4, name = 'name', relative.pos = fixOverlap(pos, thresh = 0.7))
# more complex adjustments required
pos <- c(1, 2, 3, 3.3, 5, 5.1, 5.5, 8, 9, 10)
# tinker
explainPlotSPC(sp4, name = 'name', relative.pos = pos)
explainPlotSPC(sp4, name = 'name', relative.pos = fixOverlap(pos))
explainPlotSPC(sp4, name = 'name', relative.pos = fixOverlap(pos,
thresh = 0.7))
explainPlotSPC(sp4, name = 'name', relative.pos = fixOverlap(pos,
thresh = 0.7, adj = 0.2))
# SANN: solution requires many iterations, and will not always converge
explainPlotSPC(sp4, name = 'name',
relative.pos = fixOverlap(pos, thresh = 0.85, adj = 0.2)
)
# electrostatics: solution requires larger charge (q)
explainPlotSPC(sp4, name = 'name',
relative.pos = fixOverlap(pos, thresh = 0.85, method = 'E', q = 2)
)
Run the code above in your browser using DataLab