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
}

Try the shotGroups package in your browser

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

shotGroups documentation built on Sept. 18, 2022, 1:08 a.m.