if (FALSE) {
## Hawkes process with power law kernel
# I. Law Definition:
my.rHwk2 <- function(n){
as.matrix(rep(1,n))
}
Law.Hwk2 <- setLaw(rng = my.rHwk2, dim = 1)
# II. Definition of the counting process N_t
mod.Hwk2 <- setModel(drift = c("0"), diffusion = matrix("0",1,1),
jump.coeff = matrix(c("1"),1,1), measure = list(df = Law.Hwk2),
measure.type = "code", solve.variable = c("N"),
xinit=c("0"))
# III. Definition of g() and kappa()
g.Hwk2 <- "mu"
Kern.Hwk2 <- "alpha/(1+(t-s))^beta"
# IV. Construction of an yuima.PPR object
PPR.Hwk2 <- setPPR(yuima = mod.Hwk2, gFun=g.Hwk2,
Kernel = as.matrix(Kern.Hwk2),var.dx = "N")
}
Run the code above in your browser using DataLab