R/sumFunc.R

Defines functions `sumFunc`

`sumFunc` <-
function(x, cutoff) {
	tmp <- x/sum(x)
	final <- rep(0, length(x))
	for(i in 1:length(x)) {
		final[i] <- sum(tmp[1:i])
	}
	dim <- min(which(final > cutoff))
	return(dim)
}
andreamrau/ebdbNet documentation built on Sept. 5, 2023, 4:57 a.m.