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 Nov. 28, 2018, 5:04 p.m.