R/lambda.R

Defines functions lambda

lambda <- function(t, data, m , alpha, beta){
  tmpl <- 0
  n <- length(data)
  for(i in 1:n){
    if(data[i] < t){
      tmpl <- tmpl + alpha*exp(-beta*(t - data[i]))
    }
  }
  lam <- m + tmpl
  return(lam)
}
AndrewC1998/lshawkes documentation built on Jan. 26, 2021, 10:18 p.m.