Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.