Nothing
setGeneric("plot")
setMethod(
f = "plot",
signature = c(x = ".MoveTrackSingle", y = "missing"),
function(x, y, asp = 1, ...) {
plot(coordinates(x), asp = asp, ...)
}
)
setMethod(
f = "plot",
signature = c(x = ".MoveTrackStack", y = "missing"),
function(x, y, type = "p", asp = 1, ...) {
plot(coordinates(x), type = "n", asp = asp, ...)
if (type %in% c("p", "o", "b")) {
res <- points(x, ...)
}
if (type %in% c("l", "o", "b")) {
res <- lines(x, ...)
}
}
)
setMethod(
f = "plot",
signature = c(x = ".MoveTrackSingleBurst", y = "missing"),
function(x, y, type = "p", asp = 1, ...) {
plot(coordinates(x), asp = asp, type = "n", ...)
if (type %in% c("p", "o", "b")) {
res <- points(x, ...)
}
if (type %in% c("l", "o", "b")) {
res <- lines(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.