R/sl.cart.dist.R

In helgegoessling/spheRlab: Spherical Geometry, Analysis, and Plotting of Geoscientific Data on Arbitrary Grids

Defines functions sl.cart.dist

Documented in sl.cart.dist

sl.cart.dist <-
function(a,b=NULL,norm=2) {
	
	if (!is.null(b)) {
		a = a - b
	}
	
	return((sum(a^norm))^(1/norm))
	
}