R/symetric.R

Defines functions .symetric

.symetric <- function(M){
	p = nrow(M)
	for(i in 1:(p-1)){
		for(j in (i+1):p){
			M[j,i] = M[i,j]
		}
	}
	M
}

Try the hhsmm package in your browser

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

hhsmm documentation built on Aug. 8, 2023, 9:06 a.m.