R/is.adjacency.R

is.adjacency <- function(y){
	
	is.matrix(y) && nrow(y) == ncol(y) && all(diag(y) == 0) && all(y %in% c(0, 1, NA))

}
igollini/lvm4net documentation built on June 20, 2019, 4:48 p.m.