Nothing
rec <- function(x, slsp=c("remove","missing"))
{
## Verifications
if (!inherits(x, "ltraj"))
stop("x should be of class \"ltraj\"")
## Recomputation
slsp <- match.arg(slsp)
if (attr(x,"typeII")) {
y <- traj2df(ltraj2traj(x))
return(as.ltraj(xy=y[,c("x","y")], date=y$date,
id=y$id, burst=y$burst, slsp=slsp,
typeII=TRUE))
} else {
attr(x,"typeII") <- TRUE
y <- traj2df(ltraj2traj(x))
return(as.ltraj(xy=y[,c("x","y")], id=y$id,
burst=y$burst, slsp=slsp,
typeII=FALSE))
}
}
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.