R/as.Dtable.data.frame.R

In dbmss: Distance-Based Measures of Spatial Structures

as.Dtable.data.frame <-
function (X, ...)
{
  # Convert X to a wmppp
  X <- as.wmppp.data.frame(X, ...)
  
  # Get the distance matrix
  Dmatrix <- spatstat.geom::pairdist(X)
  
  # Convert
  return (Dtable(Dmatrix, PointType=X$marks$PointType , PointWeight=X$marks$PointWeight))
}