Nothing
"traj2spdf" <- function(tr)
{
## Verifications
if (!inherits(tr, "traj"))
stop("tr should be of class \"traj\"")
## Conversion to data frame
class(tr) <- "data.frame"
xy <- tr[,c("x","y")]
tr$y <- tr$x <- NULL
## Conversion to SpatialPointsDataFrame
res <- SpatialPointsDataFrame(xy, tr)
## Output
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.