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/covEst documentation built on May 5, 2019, 2:40 p.m.