R/zeroPenalty.R

zeroPenalty <- function (x) {
	if (is.list(x)) {
		r <- vector("logical", length(x))
		for (i in seq_along(x)) {
			r[i] <- names(x)[i] %in% x[[i]]
		}		
	}
	else {
		r <- names(x) %in% x[[1]]
	}
	return(r)
}
kardinal-eros/linktaxa documentation built on Jan. 13, 2024, 9:15 p.m.