R/euclidean.compx.f.R

In MATTOOLS: Modern Calibration Functions for the Modern Analog Technique (MAT)

 

 
euclidean.compx.f <- function(modsite, fossite){ 
 
#modsite is a two element vector containing the x and y coordinate for the modern pollen site
#fossite is a two element vector containing the x and y coordinate for the fossil pollen site
# Updated by Steven Mosher  July 23, 2012
        return(fossite[1] - modsite[1]) 
        #get the x-component of the vector (length in x in xy units)
  }