Nothing
# Functions for the book Applied Hierarchical Modeling in Ecology (AHM)
# Marc Kery & Andy Royle, Academic Press, 2016.
# HELPER FUNCTIONS
# e2dist
# Function to compute Euclidean distances
# (from the R package that goes along with the
# Spatial Capture-Recapture book by Royle et al. (2014))
e2dist <- function(x, y=NULL){
if(is.null(dim(x)) && length(x) == 2) # length 2 vector
x <- matrix(x, nrow=1)
if(ncol(x) != 2)
stop("Argument 'x' must be a 2-column matrix or data frame, or a length 2 vector.", call.=FALSE)
if(is.null(y)) {
y <- x
} else {
if(is.null(dim(y)) && length(y) == 2)
y <- matrix(y, nrow=1)
if(ncol(y) != 2)
stop("Argument 'y' must be a 2-column matrix or data frame, or a length 2 vector.", call.=FALSE)
}
i <- sort(rep(1:nrow(y), nrow(x)))
dvec <- sqrt((x[, 1] - y[i, 1])^2 + (x[, 2] - y[i, 2])^2)
matrix(dvec, nrow = nrow(x), ncol = nrow(y), byrow = FALSE)
}
# ....................................................................
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.