data(santander)
X <- santander[sample.int(200)]
stIntensity <- dens.direct.sep(X,
dimyx = 32, dimt = 6,
at = "bins")
plot(spatstat.geom::as.solist(stIntensity[2:4]),
main = 'Direct separable example', equal.ribbon = TRUE)
Run the code above in your browser using DataLab