R/generic.spatstat.R

In dbmss: Distance-Based Measures of Spatial Structures

sharpen.wmppp <- function(X, ...)
{
  X <- sharpen.ppp(X, ...)
  class(X) <- c("wmppp", "ppp")
  return(X)
}

split.wmppp <- function(...)
{
  Xlist <- split.ppp(...)
  as.wmppplist <- function(X) {
    class(X) <- c("wmppp", "ppp")
    return(X)
  }
  Xlist <- lapply(Xlist, as.wmppplist)
  return(Xlist)
}

superimpose.wmppp <- function(...)
{
  X <- superimpose.ppp(...)
  class(X) <- c("wmppp", "ppp")
  return(X)
}

unique.wmppp <- function(x, ...)
{
  X <- unique.ppp(x, ...)
  class(X) <- c("wmppp", "ppp")
  return(X)
}

"[.wmppp" <- function(i, j, drop=FALSE, ..., clip=FALSE)
{
  X <- "[.ppp"(i, j, drop=drop, ..., clip=clip)
  class(X) <- c("wmppp", "ppp")
  return(X)
}