StereoMorph/R/avectors.R

avectors <- function(u, v){
	acos(sum(u*v) / (sqrt(sum(u*u)) * sqrt(sum(v*v))))
}
nitlon/Eartheaters documentation built on May 23, 2019, 7:06 p.m.