Last chance! 50% off unlimited learning
Sale ends in
if(require(spatstat.random)) {
X <- runifpoint3(20)
Y <- runifpoint3(30)
} else {
X <- osteo$pts[[1]]
Y <- osteo$pts[[2]]
Y <- Y[domain(X)]
}
d <- crossdist(X, Y)
d <- crossdist(X, Y, periodic=TRUE)
Run the code above in your browser using DataLab