R/priors.R

Defines functions uniformPrior

uniformPrior <- function(x, min=0.00001, max=100){
    ## Returns 1 if within bounds or 0 otherwise.
    ## Works with vectors.
    return( log(as.numeric( all(min <= x & x <= max) ) ) )
}
Caetanods/sequence-trait documentation built on Nov. 25, 2022, 4:32 p.m.