R/DrawLine.R

DrawLine <-
function (start, end, arrow = F, ...) 
{
    if (arrow) 
        arrows(start[1], start[2], end[1], end[2], ...)
    else lines(c(start[1], end[1]), c(start[2], end[2]), ...)
}
Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.