Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "",
out.width = "100%"
)
## ----eval=FALSE---------------------------------------------------------------
# install.packages("hawkesbow")
## ----eval=FALSE---------------------------------------------------------------
# devtools::install_github("fcheysson/hawkesbow")
## ----hawkes, echo=FALSE, fig.align="center", out.width="90%", fig.cap="Realisation of an exponential Hawkes process, with $\\eta = 1$, $\\mu = 0.5$ and $h^\\ast(t) = 2e^{-2t}$. The crosses represent the arrival times of the process. (Top) Representation of the conditional intensity of the process: each event increases the probability of occurrence of future events, according to the reproduction function $h = \\mu h^\\ast$. (Bottom) Representation of the process as a poisson cluster process: each immigrant (black squares, of generation 0) can generate children (red dots, of generation 1), which can in turn generate children, and so on."----
knitr::include_graphics("hawkes.eps")
## ----eval= FALSE--------------------------------------------------------------
# hawkes(end, fun, repr, family, M=null, ...)
## ----eval=FALSE---------------------------------------------------------------
# x <- hawkes(10, fun = 1, repr = 0.5, family = "exp", rate = 2)
## ----eval=FALSE---------------------------------------------------------------
# x <- hawkes(10, fun=function(y) {1+sin(y)}, M=2, repr=0.25,
# family=function(n) {1 - sqrt(1 - runif(n))})
## ----eval=FALSE---------------------------------------------------------------
# plot.hawkes(x, intensity = FALSE, precision = 1e3, fun = NULL, repr = NULL, family = NULL,
# M = NULL, ...)
## ----eval=FALSE---------------------------------------------------------------
# mle(events, kern, end, init = NULL, opts = NULL, ...)
## ----eval=FALSE---------------------------------------------------------------
# x = hawkes(100, fun = 1, repr = .5, family = "exp", rate = 1)
# mle(x$p, "Exponential", x$end)
## ----eval=FALSE---------------------------------------------------------------
# whittle(counts, kern, binsize = NULL, trunc = 5L, init = NULL, ...)
## ----eval=FALSE---------------------------------------------------------------
# x = hawkes(1000, fun = 1, repr = .5, family = "exp", rate = 1)
# y = discrete(x, binsize = 1)
# whittle(y, "Exponential", 1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.