R/dominanceEGP.R

dominanceEGP <- function(x){
	if(!all(is.na(x))) {min(x, na.rm=TRUE)
	}else if(all(is.na(x))){return(NA)
	}else{x[which(!is.na(x))]}
}
pdparker/isco88conversion documentation built on May 24, 2019, 11:45 p.m.