Nothing
as.Dtable.ppp <-
function (X, ...)
{
# If the ppp is not a wmppp, convert it
if (!inherits(X, "wmppp"))
X <- as.wmppp.ppp(X, ...)
# Get the distance matrix
Dmatrix <- spatstat.geom::pairdist(X)
# Convert
return (Dtable(Dmatrix, PointType=X$marks$PointType , PointWeight=X$marks$PointWeight))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.