R - cumulative probability of at least number of positive outcomes

cumulative_probability_at_least

cumProb <- function(min, trials, prob) {
	x = 0
	if(min == 0) {
		error("Mininum must be greater than 0")
	}

	if(min > trials) {
		return(0)
	}

	for (i in seq(min, trials)) {
		x = x + dbinom(i, trials, prob)
	}

	return(x)
}