Nothing
"wawotest.ltraj" <- function(x,...)
{
if (!inherits(x, "ltraj"))
stop("x should be of class \"ltraj\"")
if ((!is.regular(x))&attr(x,"typeII"))
stop("x should be regular or of type I")
foo <- function(df){
res=apply(df[,c("dx","dy","dist")],2,wawotest)
return(res)
}
return(lapply(x,foo))
}
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.