R/zeroPenalty.R

Defines functions zeroPenalty

Documented in zeroPenalty

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 May 18, 2017, 3:26 p.m.