R/pitman.probability_new_next.R

In lfpaulin/SVhound: SVhound

Defines functions pitman.probability_new_next

Documented in pitman.probability_new_next

pitman.probability_new_next <-
function(theta, sigma, k, n){
    return( (theta + (k*sigma)) / (theta + n) )
}