inst/cosineMetric.R

# The cosine angle metric for two vectors
cosineMetric <- function(x,y){
  abs(1 - sum(x * t(y)) / (vecNorm(x) * vecNorm(y)))
}
BenBarnard/covEstR documentation built on May 7, 2019, 7:58 a.m.