R/s_between_comp.R

Defines functions .s_between_comp

.s_between_comp=function(comp1, comp2)
{
  num=sum(diag(tcrossprod(comp1, comp2)))
  den=sqrt(sum(diag(tcrossprod(comp1)))*sum(diag(tcrossprod(comp2))))
  return(num/den)
}

Try the ClustBlock package in your browser

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

ClustBlock documentation built on Aug. 30, 2023, 5:08 p.m.