# ===============================
# test function
# load data
data(p)
data(pdot)
# default plot
annoSegment(object = p,
annoPos = 'top',
xPosition = c(1:10))
# adjust rectWidth
annoSegment(object = p,
annoPos = 'top',
xPosition = c(1:10),
segWidth = 0.8)
# add branch
annoSegment(object = pdot,
annoPos = 'top',
annoManual = TRUE,
xPosition = list(c(1,3,4,7,9,11,12,15,17,19,20),
c(2,3,6,8,10,11,14,16,18,19,21)),
yPosition = 9,
segWidth = 0.8,
pCol = rep('black',11),
addBranch = TRUE,
branDirection = -1,
lwd = 3)
Run the code above in your browser using DataLab