R/boundingcircle.R

In spatstat.geom: Geometrical Functionality of the 'spatstat' Family

Defines functions boundingcircle.ppp boundingcentre.ppp boundingradius.ppp boundingcircle.owin boundingcentre.owin boundingradius.owin boundingcircle boundingcentre boundingradius circumradius.ppp circumradius.owin circumradius

Documented in boundingcentre boundingcentre.owin boundingcentre.ppp boundingcircle boundingcircle.owin boundingcircle.ppp boundingradius boundingradius.owin boundingradius.ppp circumradius circumradius.owin circumradius.ppp

#'
#'    boundingcircle.R
#'
#'  bounding circle and its centre
#'
#'  $Revision: 1.6 $ $Date: 2017/06/05 10:31:58 $
#'

circumradius <- function(x, ...) {
  .Deprecated("boundingradius")
  UseMethod("boundingradius")
}
circumradius.owin <- function(x, ...) {
  .Deprecated("boundingradius.owin")
  boundingradius.owin(x, ...)
}
circumradius.ppp <- function(x, ...) {
  .Deprecated("boundingradius.ppp")
  boundingradius.ppp(x, ...)
}

boundingradius <- function(x, ...) {
  UseMethod("boundingradius")
}

boundingcentre <- function(x, ...) {
  UseMethod("boundingcentre")
}

boundingcircle <- function(x, ...) {
  UseMethod("boundingcircle")
}

#' owin

boundingradius.owin <- function(x, ...) {
  sqrt(min(fardist(x, ..., squared=TRUE)))
}

boundingcentre.owin <- function(x, ...) {
  z <- where.min(fardist(x, ..., squared=TRUE))
  Window(z) <- x
  return(z)
}

boundingcircle.owin <- function(x, ...) {
  d2 <- fardist(x, ..., squared=TRUE)
  z <- where.min(d2)
  r <- sqrt(min(d2))
  w <- disc(centre=z, radius=r) 
  return(w)
}

#' ppp

boundingradius.ppp <- function(x, ...) {
  boundingradius(convexhull(x), ...)
}

boundingcentre.ppp <- function(x, ...) {
  z <- boundingcentre(convexhull(x), ...)
  Window(z) <- Window(x)
  return(z)
}

boundingcircle.ppp <- function(x, ...) {
  boundingcircle(convexhull(x), ...)
}

Try the spatstat.geom package in your browser