R/lines.bsims_transcript.R

In bSims: Bird Point Count Simulator

lines.bsims_transcript <-
function(x, event_type=NULL, tlim=NULL, ...) {
  if (is.null(event_type))
    event_type <- x$event_type
  z <- .get_detections(x,
    condition=x$condition, event_type=event_type,
    tlim=c(0, max(x$tint)), perception=x$perception)
  xy <- z[,c("x", "y")]
  for (i in seq_len(nrow(z))) {
    lines(c(x$xy[1L], xy[i,1L]), c(x$xy[2L], xy[i,2L]), ...)
  }
  invisible(x)
}