R/lambdax.R

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

Any scripts or data that you put into this service are public.

ETAS documentation built on March 18, 2018, 2:02 p.m.