R/getDistToCtr.R

Defines functions getDistToCtr.default getDistToCtr.data.frame getDistToCtr

Documented in getDistToCtr getDistToCtr.data.frame getDistToCtr.default

getDistToCtr <-
function(xy) {
    UseMethod("getDistToCtr")
}

getDistToCtr.data.frame <-
function(xy) {
    xy <- getXYmat(xy, xyTopLeft=FALSE, relPOA=FALSE)
    NextMethod("getDistToCtr")
}

getDistToCtr.default <-
function(xy) {
    if(!is.matrix(xy))  { stop("xy must be a matrix") }
    if(!is.numeric(xy)) { stop("xy must be numeric") }

    xyCtr <- scale(xy, scale=FALSE, center=TRUE)  # centered data
    return(sqrt(rowSums(xyCtr^2)))                # distances to center
}
dwoll/shotGroups documentation built on Feb. 16, 2024, 2:21 p.m.