R/lambdaMax.R

lambdaMax <-
function(X){
	tmp = t(X)%*%X
	return(1/nrow(X)*max( abs(tmp[upper.tri(tmp)])))
}

Try the XMRF package in your browser

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

XMRF documentation built on May 2, 2019, 8:18 a.m.