R/vcosw.R

vcosw <-
function(v,w)
{
# inner product divided by the product of modules
sum(v*w)/(sqrt(sum(v^2)*sum(w^2)))
}

Try the ForImp package in your browser

Any scripts or data that you put into this service are public.

ForImp documentation built on May 2, 2019, 8:17 a.m.