Nothing
#' Euclidian distance
#'
#' Euclidian distance.
#'
#'
#' @param y,x Coordinate vectors of starting positions
#' @param y1,x1 Coordinate vectors of end positions
#' @return Euclidian distance
#' @note Check order of coordinates (?), document distance functions together?
#' @seealso Called by \code{\link{variogram}}.
#' @keywords manip
#' @export pdistx
pdistx <-
function(y, x, y1, x1)
{
return(sqrt((x - x1)^2. + (y - y1)^2.))
}
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.