R/cosSim.R
In ChiungTingWu/CAM3: Convex Analysis of Mixtures Version 3
cosSim <- function (x){
cosUp <- crossprod(x)
cosDown <- sqrt(colSums(x^2))
cosDown <- cosDown %*% t(cosDown)
return(cosUp / cosDown)
}
ChiungTingWu/CAM3 documentation built on Feb. 14, 2024, 9:22 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
cosSim <- function (x){
cosUp <- crossprod(x)
cosDown <- sqrt(colSums(x^2))
cosDown <- cosDown %*% t(cosDown)
return(cosUp / cosDown)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.