R/defaults.R

Defines functions default_r

Documented in default_r

#' Default range vector
#' @param x point pattern, internal format
#' @param r most likely missing. if not , returned.
#' Compute the range vector
#'  

default_r <- function(x, r){
  if(!missing(r)) return(r)
  r <- min(apply(x$bbox, 2, diff))/3
  rlarge <- sqrt(1000/(pi * x$n/x$area))
  m <- min(rlarge, r)
  seq(0, m, length=50)
}

Try the SGCS package in your browser

Any scripts or data that you put into this service are public.

SGCS documentation built on May 29, 2017, 12:59 p.m.