# \donttest{
set.seed(2)
X <- rstpp(lambda = function(x, y, t, a) {exp(a[1] + a[2]*x)},
par = c(.005, 5))
Z <- rstpp(lambda = 30)
test <- localtest(X, Z, method = "K", k = 3)
test
# }
Run the code above in your browser using DataLab