R/lambdax.R

In ETAS: Modeling Earthquake Data Using 'ETAS' Model

Defines functions lambdax

Documented in lambdax

lambdax <- function(rt, rx, ry, theta, revents)
{
  if (rt < revents[1,1])
   return(0)
  theta <- sqrt(theta)
  storage.mode(revents) <- "double"
  .Call("clambdax", as.double(rt), as.double(rx), as.double(ry),
        as.double(theta), revents, PACKAGE="ETAS")[[1]]
}

Try the ETAS package in your browser