Nothing
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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.