Defines functions lambdax

Documented in lambdax

lambdax <- function(rt, rx, ry, theta, revents)
  if (rt < revents[1,1])
  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 May 29, 2024, 3:32 a.m.