Nothing
is.regular <- function(ltraj)
{
if (!inherits(ltraj,"ltraj"))
stop("ltraj should be of class \"ltraj\"")
if (!attr(ltraj, "typeII")) {
return(FALSE)
} else {
return(sum(unlist(lapply(ltraj, function(x) {
ddt <- x$dt[-nrow(x)]
return(sum(abs(ddt-x$dt[1]) > 1e-7))
}))) ==0 )
}
}
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.