# simulate some points
set.seed(123)
pop <- sim.linearpopn(glymemask, N = 40)
# restrict edges to overcome a glitch in this particular linearmask
tmp <- linearkd(X = pop, linmask = glymemask, sigma = 30,
which = 1:325, finespacing = FALSE)
plot(tmp, cov = 'density', cex = 1.7)
plot (pop, add = TRUE, cex = 1.4)
# view covariates
head(covariates(tmp))
Run the code above in your browser using DataLab