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