setGeneric(
name = "speedFilter",
def = function(A1,speed)
{
.loadPackages()
standardGeneric("speedFilter")
}
)
setMethod(
f = "speedFilter",
signature = c("Track", "numeric"),
definition = function(A1, speed)
{
if (is.null(A1)|| length(A1@sp) < 3){
return (A1)}
firstPoint = 1
lastPoint = length(A1@sp)
pointIndexsToKeep <- list()
pointIndexsToKeep[1]
pointIndexsToKeep[1] = firstPoint
pointIndexsToKeep[2] = lastPoint
size <- (length(A1@sp)-1)
for (i in 1:size){
sp<- A1@connections$speed[i]
if(sp<speed){
pointIndexsToKeep <- c(pointIndexsToKeep,i)
}
}
return(.IndexToTrack(A1,pointIndexsToKeep))
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.