Nothing
typeII2typeI <- function(x)
{
if (!inherits(x, "ltraj"))
stop("x should be of class \"ltraj\"")
if (!attr(x, "typeII"))
stop("x should be of type II (time recorded)")
res <- lapply(x, function(i) {i$date <- 1:nrow(i);return(i)})
class(res) <- c("ltraj","list")
attr(res, "typeII") <- FALSE
attr(res, "regular") <- FALSE
attr(res, "proj4string") <- .checkp4(x)
res <- rec(res)
return(res)
}
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.