R/sM.R

"sM" <-
function(M1,M2) {
  n <- nrow(M1);
  res <- 1 - sum((M1-M2)^2)/n^2;
	return(res);
}

Try the mosclust package in your browser

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

mosclust documentation built on June 8, 2025, 11:23 a.m.