set.seed(2)
inh <- rstpp(lambda = function(x, y, t, a) {exp(a[1] + a[2]*x)},
par = c(.3, 6))
mod1 <- stppm(inh, formula = ~ 1)
resmod1 <- localdiag(inh, mod1$l, p = .9)
summary(resmod1)
Run the code above in your browser using DataLab