https://github.com/cran/spatstat
Raw File
Tip revision: 3aca716ce2576a0dab83f08052acd47afed8ee6a authored by Adrian Baddeley on 29 February 2012, 00:00:00 UTC
version 1.25-4
Tip revision: 3aca716
is.cadlag.R
is.cadlag <- function (s) 
{
if(!is.stepfun(s)) stop("s is not a step function.\n")
r <- knots(s)
h <- s(r)
n <- length(r)
r1 <- c(r[-1],r[n]+1)
rm <- (r+r1)/2
hm <- s(rm)
identical(all.equal(h,hm),TRUE)
}
back to top